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Preface 



This publication contains reference information for controlling and operating the 1 130 
Disk Monitor System, Version 2. The publication assumes you are familiar with the pro- 
gramming language needed to do your jobs. 

Chapter 1 of this publication describes how you use this book. The rest of the chapters: 

• Describe the disk monitor system (DM2) programs and disk areas 

• Describe the control records for controlling the functions of the disk monitor system 

• Provide tips and techniques for more efficient use of DM2 

• Provide sample operating procedures for loading, reloading, and using DM2 

• Describe the 1 130 RJE Work Station Program 

The minimum system configuration required to operate the IBM 1 130 Disk Monitor 
System, Version 2, Program Number 1 130-OS-005 (card input/output) is: 

• An IBM 1131 Central Processing Unit, Model 2 A or 4 A (with an internal single disk 
storage drive and 4096 words of core storage) 

• An IBM 1442 Card Read Punch, Model 6 or 7, or an IBM 2501 Card Reader, in 
combination with an IBM 1442 Card Punch, Model 5 

or 

• An IBM 1131 Central Processing Unit, Model 1 B (with 8 1 92 words of core storage) 

• An IBM 1 133 Multiplex Control Enclosure 

• An IBM 231 1 Disk Storage Drive, Model 1 2 

• An IBM 1442 Card Read Punch, Model 6 or 7, or an IBM 2501 Card Reader, in 
combination with an IBM 1442 Card Puncli, Model 5 

The minimum system configuration required to operate the IBM 1 130 Disk Monitor 
System, Version 2, Program Number 1 130-OS-006 (paper tape input/output) is: 

• An IBM 1 13.1 Central Processing Unit, Model 2A (with an internal single disk storage 
drive and 4096 words of core storage) 

• An IBM 1 134 Paper Tape Reader 

• An IBM 1055 Paper Tape Punch 

The following publications provide further information about the 1 130 computing system: 

IBM 1130 Functional Characteristics, GA26-588 1 

IBM 1 130 Operating Procedures, GA26-57 1 7 

IBM 1130/ 1800 Assembler Language, GC26-3778 

IBM 1130/1800 Basic FORTRAN IV Language, GC26-3715 

IBM 1 130 RPG Language, GC2 1-5002 

IBM 1130 Subroutine Library, GC26-5929 

IBM 1130MTCA IOCS Subroutines, GC33-3002 

IBM 11 30 Synchronous Communications Adapter Subroutines, GC26-3706 

IBM 1 130/ 1800 Plotter Subroutines, GC26-3755 

IBM System/ 360 Operating System and 1 130 Disk Monitor System: System/ 360 1130 

Data Transmission for FORTRAN, GC27-6937 
IBM System/ 360 Operating System and 1130 Disk Monitor System: User's Guide for Job 

Control from an IBM 2250 Display Unit Attached to an IBM 1130 System, GC27-6938 
IBM System/ 360 Operating System: Remote Job Entry, GC30-2006 

Publications that provide information about IBM 1 130 COBOL, a program product, are: 

IBM 1130 COBOL General Information Manual, GH20-0799 
IBM 1130 COBOL Language Specifications Manual, SH20-0816 
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GC26-3717-9 UPDATED BY VERSION 2 MODIFICATION 11 

231 1 Disk Storage Drive 



New Hardware Feature. The 23 1 1 Disk Storage Drive is a new feature that adds a larger 
online storage capacity and quicker online storage retrieval. 

DCIP Function 

New Programming Feature. The DCIP initialize and copy functions now have a wait for 
verifying that the console entry switches you turn on for the physical drive number and 
cartridge ID are correct before initialization and copying begins. 

FORTRAN Messages 

New Programming Feature. Messages describing errors in FORTRAN statements now indi- 
cate which statement is in error. 
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Chapter 1. How to Use This Publication 



Chapters 2, 3, and 4 include information for the systems planner who is interested in the 
contents and organization of disks, core storage, and the functions of the programs and 
storage areas that comprise the IBM 1 130 Disk Monitor System, Version 2. The information 
in these chapters assists you in planning the contents of your disks, as well as 
maintaining them. The disk maintenance programs are described in Chapter 4. 

Chapters 5 and 6 contain information that is frequently referenced by programmers. 
Chapter 5 contains descriptions of all control records that control the functions of the 
disk monitor system (DM2). Use the programming tips and techniques in Chapter 6 for 
more efficient use of DM2. 

Chapters 7, 8, and 9 include operating information for using the disk monitor system. 
Chapter 7 contains procedures for readying the devices that are a part of your computing 
system, for performing a cold start of the monitor system, for entering jobs and for 
displaying, altering, and dumping core storage. 

Sample procedures for loading and reloading the system are shown in Chapter 8. You may 
use these operating procedures as they are presented, or modify them to meet the needs 
of your computing system. 

Chapter 9 describes stand-alone utility programs. These programs provide for dumping 
core storage to a print device, for initializing, copying, patching, analyzing, dumping and 
comparing disks, and for punching paper tapes. Operating procedures for using 
the utility programs are listed. 

The functions of the flowchart blocks that are used in the sample procedures in Chapters 
7, 8, and 9 are: 



The steps of the procedure that 
you perform. Each block contains 
a heading that describes the 
purpose of the block. 



j A system action that occurs 
I during a procedure. 



References procedures that 
are described elsewhere in 
this publication. 
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Chapter 10 describes the 1 130 RJE Work Station Program. 

When errors occur during monitor system processing, refer to Appendix A for error 
messages and codes, and to Appendix B for wait codes displayed on the console display 
panel. 

The remaining appendixes contain information that you will need to reference at various 
times, such as, the names of the programs and subroutines in the system library and 
listings of LET, FLET, SLET, the resident monitor, and sample programs. 

The terms disk, disk cartridge, and cartridge are used in this publication to refer to the 
single disk in an IBM 2315 Disk Cartridge or to any one of the 3 or 5 usable disks in 
an IBM 1316 Disk Pack, Model 12 or 1 1 , respectively. Each usable disk in a 1316 Disk 
Pack is treated by DM2 as one 2315 disk, thus: 





A disk in an IBM 1316 Disk Pack is the same as one IBM 2315 Disk Cartridge. 

Each disk in the 1131 CPU and 2310 Disk Storage or 231 1 Disk Storage Drive is assigned 
a physical drive number when the devices of an 1 130 computing system are installed. 
Physical drive numbers are assigned in this order: 



Disk locations 



Physical drive number 



1131 CPU 




1 
2 
3* 
4* 
5 
6 
7 

8* 
9* 
10 



2310 Disk Storage or 231 1 Disk Storage Drive 






Internal disk 



First 2310, first disk 
First 2310, second disk 
Second 2310, first disk 
Second 2310, second disk 



First 2311. 
First 2311, 
First 2311, 
First 2311, 
First 2311, 
Second 231 
Second 231 
Second 231 
Second 231 
Second 231 



first disk 
second disk 
third disk* 
fourth disk* 
fifth disk 
1, first disk 
1 , second disk 
1, third disk* 
1, fourth disk* 
1, fifth disk 



*Not used when a 2311 Disk Storage Drive is a Model 12 

From one to 5 of these disks, depending on the configuration of your computing system, 
can be specified for use by assigning logical drive numbers to them. You assign logical 
drive numbers to disks with a // JOB monitor control record or when you code your pro- 
gram to call SYSUP (see "// JOB" in Chapter 5 and "SYSUP" in Chapter 6). The logical 
drive numbers do not have to be assigned in the same order as the physical drive numbers. 
The organization of disks is discussed in Chapter 2. 
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All hexadecimal addresses in this manual are shown in the form /xxxx. 

Symbolic addresses rather than absolute addresses are used throughout this publication. 
Certain constants are also denoted symbolically. Appendix G contains a listing of the resi- 
dent monitor. 

$xxxx All symbolic labels whose first character is a dollar sign ($) are found in the 
core communications area (COMMA). 

#xxxx All symbolic labels whose first character is a number sign (#) are found in the 
disk communications area (DCOM). 

@xxxx All symbolic labels whose first character is a commercial at sign (@) are con- 
sidered to have absolute values (such as @HDNG refers to the page heading 
sector, sector 7, and thus has a value of 7). 

Note. The number sign and commercial at sign are not included in the 1403 Printer or 
1 132 Printer character set; therefore, an equal sign (=) replaces the # and an apostrophe 
(') replaces the @ in printer listings. 
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Chapter 2. Disk Organization 



Two disk devices are used by the IBM 1 130 Disk Monitor System, Version 2 (DM2): 

• The IBM 2315 Disk Cartridge in an IBM 1131 Central'Processing Unit internal disk 
drive and in IBM 2310 Disk Storage drives 

• The IBM 1316 Disk Pack in IBM 231 1 Disk Storage Drives, Models 1 1 and 12 

An IBM 2315 Disk Cartridge contains a single disk on which DM2 stores information on 
the top and bottom surfaces. 

An IBM 1316 Disk Pack contains 6 disks mounted on a vertical shaft. The top surface of 
the top disk and the bottom surface of the bottom disk cannot be used for recording data, 
which leaves 10 possible recording surfaces. The monitor system programs consider the 
lower surface of one disk and the top surface of the disk immediately below as a disk 
(disk cartridge or cartridge). The arrangement of disks in a 1316 Disk Pack is illustrated by: 



Top surface; not used 




Bottom surface; not used 



*The third and fourth disks are not used if 
the 231 1 Disk Storage Drive is a Model 12. 
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The storage area of all disks used by DM2 is arranged into circular patterns called tracks. 
Two tracks one above the other constitute a cylinder. A disk contains 203 concentric 
cylinders; 200 of these are available to the monitor system. The 3 remaining are reserved 
for use if defective cylinders are detected. The following illustrates the innermost and the 
outermost cylinders on a disk. 

Innermost cylinder 

203 two-track 
"cylinders 
Lower surta 



Upper surface track 



Outermost cylinder 
Upper surface track 
Lower surface track s*. I 




Note. The thickness of the disk has been greatly exaggerated in order to 
show the relative positions of the upper and lower surface tracks. 



To complete the picture, the 201 intermediate cylinders, or pairs of tracks, should be 
visualized; they are omitted for the sake of clarity of the diagram. 

For convenience in transferring data between core storage and disk storage, each track is 
divided into 4 equal segments. These segments are called sectors. Thus, each cylinder con- 
sists of eight sectors. Sectors through 3 divide the upper surface track and 4 through 7 
divide the lower. The following illustrates how sectors are numbered. 



Sectors through 3 
(upper surface tracks) 



Sectors 4 through 7 
(lower surface tracks) 
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A sector contains 321 data words. The first data word is used for the sector address. This 
address is the number of that sector, counted in sequence from sector on cylinder 0. 
Another unit of storage within a sector is the disk block. Each sector is divided into 16 
disk blocks, each 20 words long. A disk storage word contains 16 data bits. The organiza- 
tional components of disk storage are shown by the following chart. 



Ji^E/ 


Word 


Disk Mock 


Sector 


Track 


Cylinder 


Disk 


Bits 


16 


320 


5,112 


20,480 


40,960 


8,192,000 


Data words 




20 


320 l 


1,280 


2,560 


512,000 


Disk blocks 






16 


64 


128 


25,600 


Sectors 








4 


8 


1,600 


Tracks 










2 


400 


Cylinders 












200 



These follow the first actual word of each sector, which is used for the address. 

Before continuing with the descriptions of the contents of disk cartridges used by the 
monitor system, several terms must be defined. 

• System cartridge. An initialized cartridge that contains the IBM 1 130 Disk Monitor 
System. If your 1 130 has only one disk (the internal disk in the 1131 CPU), all 
cartridges must be system cartridges. 

• Nonsystem cartridge. An initialized cartridge that does not contain the monitor system. 

• Master cartridge. A system cartridge that is designated as logical drive by the cold 
start program, or by a monitor // JOB control record. This cartridge continues in use 
until another cold start, another // JOB control record, or a CALL instruction to 
SYSUP switches control to a different system cartridge. The disk on an 1 130 with 
only one disk drive (the internal disk in the 1131 CPU) is both a system and a master 
cartridge. 

• Note: If your system has only one disk drive (the internal disk in the 1131 CPU, or 
one 231.1), you should cold start after changing cartridges, or packs, to avoid possible 
errors in the location of disk areas on system cartridges. 

• Satellite cartridge. On an 1 130 with more than one disk drive, this is any cartridge that 
is not the master cartridge. This cartridge can be either a system or a nonsystem car- 
tridge. 

The organization of programs and areas on system and nonsystem cartridges is described 
and illustrated in the following text. 
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SYSTEM CARTRIDGE 



A system cartridge is divided into 5 logical areas as illustrated by the following: 



CylO 



II 



'!&iyy!**iTTiz*i**mm, 
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User Working 
area storage 




Each area is described in the following text. The last section of this chapter, "Summary of 
the Contents of Disk Cartridges," contains a chart that indicates when these areas are 
present, or can be removed, on system cartridges. 

Cylinder on a System Cartridge 

The contents of cylinder on a system cartridge are defined during disk initialization and 
system load. The contents of cylinder are as follows: 

CylO 



Sector Label 



ID and 






"^■^ ■*■ 


■-" — -. 


"~ — - — ._ 


cold 












start 




Resident 




Reload 


Page 


prog. 


DCOM 


image 


SLET 


table 


heading 








@IDAD 


1 




@ DCOM 


2 




@RIAD 


3,4, 


5 


@SLET 


6 




@RTBL 


7 




@HDNG 



Sector 



3,4,5 
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sector @l DAD 



The following is a discussion of each sector. 
Sector @IDAD on a system cartridge consists of: 

• The defective cylinder table 

• The cartridge ID 

• The cartridge copy code 

• The disk type 

• A reserved area 

• The DISKZ system device subroutine 

• The cold start program 

The contents of sector @ID AD on a system cartridge are shown in the following illustra- 
tion. 



r 



DCYL (defective cylinder table) 

CIDN (cartridge ID) 

COPY (copy code) 

Reserved 

DTYP (disktype) 



Reserved 



DISKZ (this copy of 
DISKZ is used only 
during the cold start 
procedure.) 



Cold 
start 
program 



Words: 1 2 3 4 5 6 7 



29 30 



269 270 



319 



The defective cylinder table (DCYL) contains the addresses of the first sector of any 
cylinders that are not capable of accurately storing data. This table is defined during disk 
initialization. If no defective cylinders are found, each of the 3 words of DCYL contains 
/0658 (hexadecimal). A cartridge with a maximum of 3 defective cylinders can be used 
by the monitor system. 

The cartridge ID (CIDN) is a hexadecimal number in the range /0001 through /7FFF 
that uniquely identifies the cartridge. The ID is placed on a cartridge when the cartridge is 
initialized. 

The cartridge copy code (COPY) identifies the copy number of a cartridge that has been 
copied from another cartridge. When a disk is initialized, this word is zero. Each time the 
disk is copied, word 5 of the cartridge being copied to is incremented by one; that is, the 
copy code of the receiving disk is one greater than the copy code of the source cartridge. 

The reserved areas of sector @IDAD are for possible future expansion. 

The disk type (DTYP) is a code that indicates whether or not the disk is a system cartridge. 
The appropriate code is placed in DTYP when the cartridge is initialized by DCIP or DISC 
and when the monitor system is loaded onto the disk. 

The DISKZ subroutine is stored in sector @IDAD and in the system device subroutine 
area in the IBM system area (see "IBM System Area on a System Cartridge" in this chap- 
ter) when the monitor system is loaded on the disk. The cold start program uses DISKZ 
stored in sector @IDAD. All other times that DISKZ is called, the copy stored in the sys- 
tem device subroutine area is used. 

The cold start program is placed in sector @IDAD when the monitor system is loaded onto 
the disk. 
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sector @RTBL 
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Sector 1 contains the disk communications area (@DCOM). This area contains parameters 
that are passed from one monitor program to another. These parameters contain informa- 
tion such as: 

• The number of LOCALs associated with the program in working storage 

• The temporary job indicator switch 

• The cartridge IDs for cartridges on the system 

• The format of programs in working storage for all cartridges on the system 

• The block count of the programs in working storage for all cartridges on the system 

These parameters are listed in Appendix G. They are set and reset during the processing of 
JOB monitor control records or during the DCOM update operation called SYSUP. The 
parameters obtained from nonsystem disks are merged into DCOM on the master cartridge 
during one of the previous operations. The parameter table entries for the nonsystem disks 
are cleared to zero. 

Sector 2 contains the resident image (@RIAD). The resident image is a copy of the skele- 
ton supervisor and the COMMA portion of the resident monitor. (A description of the 
resident monitor is in Chapter 3, "Monitor System Programs.") The resident image is used 
to initialize the resident monitor during a cold start. 

Sectors 3, 4, and 5 are the system location equivalence table (@SLET). SLET is composed 
of an identification number, core loading address, word count, and sector address for 
every phase of every monitor program. Chapter 4 contains information about obtaining a 
listing of SLET, and a sample of a SLET printout is in Appendix E. 

Sector 6 is the reload table (@RTBL). This table is established during an initial system 
load. @RTBL contains a 3-word entry for each monitor system program phase that re- 
quests SLET information during a load or reload operation. Each entry consists of the ID 
number of the requesting phase, the location in the requesting phase where the SLET in- 
formation is to be placed , and the number of SLET entries to be inserted. The reload 
table is updated during a system reload when phases that request SLET information are 
added or modified. The last entry in the reload table is followed by the hexadecimal word 
/FFFF. 

Sector 7 (@HDNG) is used to store the heading that appears at the top of each page printed 
by monitor programs other than RPG. 

IBM System Area on a System Cartridge 

Monitor programs and disk areas are loaded onto a disk during a system load. This entire 
area is called the IBM system area, and is illustrated by the following: 
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FLET is contained on a disk only if a fixed area is defined on the disk. 
See "Fixed Area" in this chapter. 
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The monitor programs in. this area are described in Chapter 3. These programs are: 

• Disk utility program (DUP) 

• FORTRAN compiler (FOR) 

• COBOL compiler (COB) program product 

• Supervisor (SUP) 

• Core load builder (CLB) 

• Core image loader (CIL) 

• RPG compiler (RPG) 

• Assembler (ASM) 

The disk areas of the IBM system area are described in the following text. 
The system device subroutine area consists of the following: 

• The subroutines used by the monitor programs to operate these print devices 

1403 Printer 
11 32 Printer 
Console Printer 

• The subroutines used by the monitor programs to operate these I/O devices 

2501 Card Reader/ 1442 Card Punch, Model 5, 6, or 7 
1442 Card Read/Punch, Model 6 or 7 
1 134 Paper Tape Reader/1055 Paper Tape Punch 
Console Keyboard/Printer 

• The I/O character code conversion subroutines used in conjunction with the I/O sub- 
routines for these devices 

2501 Card Reader/ 1442 Card Punch 

1 134 Paper Tape Reader/1055 Paper Tape Punch 

Console Keyboard/Printer 

• The disk I/O subroutines 

DISKZ 
DISK1 
DISKN 

All of the subroutines in the system device subroutine area, except the disk I/O sub- 
routines, are naturally relocatable and are intended for use only by monitor programs. The 
disk I/O subroutines are located in this area rather than in the monitor system library 
because they are processed by the core load builder differently from subroutines stored 
in the monitor system library. 

DISKZ is stored twice on a system cartridge; once in sector @IDAD with the cold start 
program, and once in the system device subroutine area with DISK1 and DISKN. Cold 
start uses DISKZ in sector @IDAD; all other times that DISKZ is called, the copy that is 
stored in the system device subroutine area is used. 

The cushion area immediately follows the system programs and provides for the possible 
expansion of the monitor system programs in a reload operation. This area occupies the 
remaining sectors of the last cylinder occupied by the system programs, plus the next 
complete cylinder. 

The supervisor control record area (SCRA) is the area in which supervisor control records 
(LOCAL, NOCAL, FILES, G2250, and EQUAT) are saved. These records, except the 
EQUAT record, are read from the input stream (following an XEQ or STORECI control 
record) and are stored in the SCRA for subsequent processing by the core load builder. 
The processing of the EQUAT record is similar to that of the other supervisor control 
records, but it is read from the input stream following a JOB control record. 
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FLET The fixed location equivalence table (FLET) is a directory to the contents of the fixed 

area for the cartridge on which it appears. There is one FLET entry for: 

• Each program stored in disk core image (DCI) format 

• Each data file stored in disk data format (DDF) 

• The padding required to permit a DCI program or data file to be stored beginning on 
a sector boundary 

Each FLET entry includes: 

• The name of the DCI program or the data file 

• The format of the program or data file 

• The size, in disk blocks, of the program or data file 

• The disk block address of the program or data file 

Each cartridge on which you define a fixed area has a FLET (see "Fixed Area" in this 
chapter). Regardless of the fixed area sizes FLET occupies the cylinder preceding the be- 
ginning of the fixed area. 

The sector address of the first sector of FLET on a given cartridge is obtained from the 
location equivalence table (LET). The last item (#FLET) in the first header line of a 
LET dump contains this sector address. A listing of a LET/FLET dump is in Appendix D. 

CIB The core image buffer (CIB) is the disk area in which the portion of a core load that is 

to reside in core storage below decimal location 4096 in a 4K system (decimal location 
5056 in larger systems) is built by the core load builder. The CIB is also used by the core 
image loader during the transfer of control from one link to the next to save any COMMON 
defined below decimal location 4096 or 5056. 

LET The location equivalence table (LET) is a directory to the contents of the user area on the 

cartridge. On a system cartridge, LET occupies the cylinder preceding the user area. There 
is one LET entry for: 

• Each program stored in disk system format (DSF) 

• Each program stored in disk core image (DCI) format 

• Each data file stored in disk data format (DDF) 

• The padding required to permit a DCI program or data file to be stored beginning on 
a sector boundary 

Each LET entry includes: 

• The name of the program or data file 

• The format of the program (DSF or DCI) or data file 

• The size in disk blocks of the program or data file 

• The disk block address of the program or data file 

A listing of a LET/FLET dump is contained in Appendix D. The starting location of the 
beginning of LET on each disk on the system is included in the resident monitor. 



2-S 



Fixed Area 

The fixed area (FX) is the area in which you store programs and data files when you want 
them to occupy the same sectors at all times. Programs stored in this area must be in 
disk core image (DCI) format. This is an optional area and is defined on any 1 130 cartridge 
by the use of the DEFINE FIXED AREA operation of the Disk Utility Program (DUP). 
This DUP operation is also used to increase or decrease the size of the fixed area. (See 
Chapter 3, "Monitor System Programs" for a description of DUP operations.) The contents 
of the fixed area are illustrated by the following: 



Fixed area 



Your programs 
and data files 



A program or data file stored in the fixed area starts at the beginning of a sector. When a 
program or a data file is deleted from this area, the fixed area is not packed. Programs and 
data files stored in this area reside at fixed sector addresses and can be referred to by 
sector address. 



UA 



User Area and Working Storage 

The user area (UA) on a system cartridge contains the monitor system library and programs 
and data files that you write and store there. Programs are stored in this area in disk 
system format (DSF) or in disk core image (DCI) format. Data files are stored in disk 
data format (DDF). The following illustrates the user area and working storage. 
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storage 
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The user area is defined on any 1 130 cartridge during disk initialization. The monitor 
system library is placed in this area during an initial system load. This area occupies as 
many sectors as are required to contain the system library plus any user programs and/or 
data files that are stored there. 

When a program or a data file is entered, it is placed at the beginning of working storage; 
that is, immediately following the end of the user area. The area occupied by the new pro- 
gram or data file is then incorporated into the user area during a store operation. Working 
storage is decreased by the size of the program or data file. The following illustrates the 
contents of the user area and working storage before and after a store operation. 
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DSF programs are stored in the user area starting at the beginnning of a disk block; DCI 
programs and data files are stored starting at the beginning of a sector. 
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The user area is packed when a program or data file is deleted from this area; that is, the 
programs and data files are moved so as to occupy the area formerly occupied by the 
deleted program or data file. During packing, DSF programs are moved to the first disk 
block boundary in the vacancy; DCI programs and data files are moved to the first sector 
boundary. All remaining programs and data files are similarly packed. The area gained by 
packing the user area is returned to working storage as illustrated by: 
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On all cartridges, working storage (WS) is the area that is not defined as cylinder 0, the 
IBM system area, the fixed area, or the user area. Working storage is available to monitor 
programs and user programs alike as temporary disk storage. This area extends from the 
sector boundary immediately following the user area td the end of the cartridge. 
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NONSYSTEM CARTRIDGE 



A nonsystem cartridge on an 1 130 that has more than one disk drive can be used exclu- 
sively for the storage of data and/or programs, and is called a satellite cartridge. The 5 
logical areas of a nonsystem cartridge are: 
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The contents of cylinder and the IBM system area are described in the following sections. 
The contents of the fixed area, the user area, and working storage are the same as described 
for system cartridges, except that the user area does not contain the monitor system 
library. The last section of this chapter, "Summary of the Contents of Disk Cartridges," 
contains a chart that indicates when these areas are present or can be removed. 



Cylinder on a Nonsystem Cartridge 

The contents of cylinder on a nonsystem cartridge are established when the cartridge is 
initialized, and are illustrated by: 
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sector @l DAD 



The first 8 words of sector @IDAD on a nonsystem cartridge are the same as described for 
a system cartridge. The remaining words of this sector are a reserved area, an error message 
program, and an error message. The error message is printed if an attempt is made to cold 
start a nonsystem cartridge. This message and the program that prints it plus part of the 
reserved area are overlaid by the cold start program and the DISKZ subroutine when the 
monitor system is loaded onto a cartridge. Sector @IDAD on a nonsystem cartridge con- 
sists of: 
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sector @DCOM 



LET 



The information in sector @DCOM of cylinder on a nonsystem cartridge is similar to a 
system cartridge. The difference is that the information on a nonsystem cartridge applies 
only to that cartridge. 

The remaining sectors of cylinder are the location equivalence table (LET) for the car- 
tridge. The contents of LET are described under the description of the IBM system area 
on a system cartridge. 



IBM System Area on a Nonsystem Cartridge 

The IBM system area of a nonsystem cartridge can contain the fixed location equivalence 
table (FLET) and the core image buffer (CIB). This area is illustrated by: 
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FLET is described under the description of the IBM system area on a system cartridge. 
This table is on a nonsystem cartridge only if you define a fixed area on the cartridge. 

The CIB is described under the description of the IBM system area on a system cartridge. 
This area is optional on a nonsystem cartridge, and can be deleted with the disk mainten- 
ance program called DLCIB (see Chapter 4). 
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SUMMARY OF THE CONTENTS OF DISK CARTRIDGES 



Figure 2-1 is a chart of the contents of the 5 logical areas of system and nonsystem car- 
tridges. This chart indicates when these areas are present on system and nonsystem car- 
tridges, and when it can be removed if the area is optional. 



Logical area 


Subareas 


Present 


Cylinder 




On system and nonsystem cartridges 


IBM system area 


DUP 

SUP 

CLB 

System device subroutines 

CIL 

Cushion area 

SCRA 


Only on system cartridges 


CIB 


On system and nonsystem cartridges; 
can be removed from nonsystem 
cartridges 


Assembler 


Only on system cartridges; can be 
removed 


FORTRAN compiler 


Only on system cartridges; can be 
removed 


RPG compiler 


Only on system cartridges; can be 
removed 


COBOL compiler 
(program product) 


Only on system cartridges; can be 
removed 


LET 


On system and nonsystem cartridges 


FLET 


Only if a fixed area is defined by user 


Fixed area (FX) 


User programs 
User data files 


Only if defined by user 


User area (UA) 


Monitor system library 
(only on system 
cartridges) 

User programs 

User data files 


On system and nonsystem cartridges. 
As the result of a system load, the 
UA contains the monitor system 
library. 


Working 
storage (WS) 




On system and nonsystem cartridges 



Figure 2-1. The 5 logical areas of disk cartridges 
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Chapter 3. Monitor System Programs 



The IBM 1 130 Disk Monitor System provides continuous operation of the 1 130 com- 
puting system with minimal setup time and operator intervention. The monitor system 
consists of a system library and 7 interdependent system programs. The monitor system 
programs perform monitor control functions and include: 

• The supervisor (SUP), which performs the control functions of the monitor system 
and provides the linkage between user programs and monitor programs. 

• The Disk Utility Program (DUP), which performs operations that involve the disk, 
such as storing, moving, deleting, and dumping programs or data files or both. 

• The assembler (ASM), which translates source programs written in 1 130 Assembler 
language into object programs. 

• The FORTRAN compiler (FOR), which translates source programs written in 1 130 
basic FORTRAN IV language into object programs. 

• The RPG compiler, which translates programs written in 1 130 RPG language into ob- 
ject programs. 

• The core load builder (CLB), which constructs an executable core load from programs 
in disk system format (DSF). The DSF program and all associated subprograms are 
converted into disk core image (DCI) format, and the resultant core load is ready for 
immediate execution or for storing as a core image program. 

• The core image loader (CIL), which transfers core loads into core storage for execution 
and serves as an interface between some monitor programs. 

Although the COBOL compiler (COB) resides in the IBM system area when the monitor 
system is loaded onto a cartridge, the COBOL compiler is not a monitor program. It is 
an IBM program product. 

A flowchart of the general logic flow of the monitor system programs is included under 
"Logic Flow of the Monitor System" at the end of this chapter. The monitor system 
library is a group of disk resident programs that performs I/O functions, data conversion, 
arithmetic functions, disk initialization, and maintenance functions. This library is 
discussed in Chapter 4, and the monitor system programs are discussed in the following 
text. The disk placement of these programs is shown by the following. 

Monitor system 
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SUPERVISOR 



The supervisor is 2 groups of programs that control the monitor system and link the user 
and monitor programs. One portion of the supervisor, the skeleton supervisor, is stored in 
sector @RIAD of cylinder 0. The other portion of the supervisor is stored in the IBM 
system area. 

The skeleton supervisor initially gains control of the monitor system through the cold start 
program. During a cold start, the skeleton supervisor is loaded from sector @RIAD into 
the resident monitor section of core storage. 



COMMA 



skeleton supervisor 



Resident Monitor 

The resident monitor resides at the beginning of core storage and contains (1) the core 
communications area (COMMA), (2) the skeleton supervisor, and (3) a disk I/O sub- 
routine (DISKZ, DISK1 , or DISKN). Appendix G is a listing of the resident monitor. 

The core communications area (COMMA) consists of parameters required by the core 
image loader to link from one core image program to another. These parameters are 
interspersed with parts of the skeleton supervisor in the resident monitor. 

The skeleton supervisor is interspersed with COMMA in the resident monitor and is com- 
posed of: 

• Entry points for linking from one core load to another (SLINK), for linking from a 
core load to monitor system programs ($EXIT), and for dumping core storage ($DUMP). 

• Interrupt level subroutines (ILS02 and ILS04) for handling interrupts on levels 2 and 
4. Disk devices interrupt on level 2, and since disks are used in all operations of the 
monitor system, ILS02 is included. Since the console keyboard INT REQ key inter- 
rupts on level 4 and can be pressed at any time, the ILS04 subroutine for handling 
level 4 interrupts is included. 

• A preoperative error trap that is entered by all interrupt service subroutines (ISS) when 
an error is detected before an operation is performed. The trap consists of a WAIT 
instruction and a branch instruction. (The address of SPRET+1 is displayed in the 
INSTRUCTION ADDRESS indicator on the console display panel during the wait.) 
Pressing PROGRAM START causes the branch to be taken, and execution resumes. 
(Under certain conditions, such as a FORTRAN PAUSE statement, this trap is entered 
when an error has not occurred.) 

• Postoperative error traps (one for each interrupt level) that are entered by all ISS sub- 
routines when an error is detected after an I/O operation has been started. Each trap 
consists of a WAIT instruction and a branch instruction. (The address of $PST1, 
$PST2, $PST3, or $PST4 plus one is displayed in the INSTRUCTION ADDRESS indi- 
cator on the console display panel during the wait.) Pressing PROGRAM START re- 
turns control to the ISS subroutine, which may retry the operation in error. 

• The PROGRAM STOP key error trap that is entered when the PROGRAM STOP key 
is pressed (unless a user-written subroutine associated with interrupt level 5 is in core). 
If a higher level interrupt level is being serviced when PROGRAM STOP is pressed, 
the PROGRAM STOP interrupt is masked until the current operation is complete. 
This trap consists of a WAIT instruction and a branch instruction. (The address of 
SSTOP+1 is displayed in the INSTRUCTION ADDRESS indicator on the console 
display panel during the wait.) Pressing PROGRAM START continues execution of 
the monitor system. 
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disk I/O subroutine 



The disk I/O subroutine (DISKZ, DISK1, or DISKN) required by the program in control 
resides in core storage immediately following the skeleton supervisor. DISKZ is the sub- 
routine used by all system programs. DISKZ is initially loaded into core storage with the 
resident image during a cold start. 

Prior to the execution of a core load that requires DISK1 or DISKN, the core image 
loader overlays DISKZ with the required disk I/O subroutine. When control is returned 
to the supervisor, the core image loader overlays the disk I/O subroutine currently in 
core (if DISK1 or DISKN) with DISKZ. Source programs written in assembler, FORTRAN, 
RPG, or COBOL can call any of the 3 I/O subroutines; however, only one disk I/O sub- 
routine can be referenced in a given core load. The entiy in column 19 of an XEQ moni- 
tor control record specifies the version of the subroutine to be used during execution of 
the core load. (Monitor control records are described in Chapter 5.) 
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Disk-resident Supervisor Programs 

The portion of the supervisor that resides in the IBM system area includes programs that 
analyze monitor and supervisor control records and perform the functions specified, the 
auxiliary supervisor, and the System Core Dump Program. 

The monitor control record analyzer (1) reads a monitor control record from the input 
stream, (2) prints the control record on the principal print device, and (3) calls the re- 
quired monitor system program and transfers control to it. 

The supervisor control record analyzer reads a supervisor control record from the input 
stream, and stores the information in the control record in the supervisor control record 
area (SCRA) on disk. 

The auxiliary supervisor is used by the Cold Start Program, ILS04 subroutine, core image 
loader, and system loader as a pre-entry to the monitor control record analyzer. The 
auxiliary supervisor is entered via the $DUMP entry point in the skeleton supervisor. 
This program sets appropriate parameters in COMMA, writes dummy monitor control 
records (such as the JOB monitor control record printed during a cold start), and prints 
error messages for errors detected by the core image loader. Control is then transferred to 
the monitor control record analyzer through the $EXIT entry point in the skeleton 
supervisor. 

The Supervisor Core Dump Program provides a hexadecimal printout and an EBCDIC trans- 
lation of the contents of core storage. (A portion of a core dump is shown in Appendix F.) 
This program is entered through the $DUMP entry point in the skeleton supervisor in 2 ways. 

• A special calling sequence during execution of an Assembler or FORTRAN program 
(see the publications IBM 1130 Assembler Language, GC26-3778, and IBM 1130/1800 
Basic FORTRAN IV Language, GC26-3715). The portion of core storage specified in 
the assembler or FORTRAN statements, or all of core storage if limits are not specified, 
is dumped. Execution of the core load in process then continues with the statement 
following the one that called the dump. 

• A manual dump of core storage through $DUMP+1 (see "Manual Dump of Core 
Storage" in Chapter 7). The contents of core storage are dumped, and the dump program 
executes a CALL EXIT, which terminates the execution of the core load in progress. 
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DISK UTILITY PROGRAM 



The Disk Utility Program (DUP) allows you to perform the following operations through 
the use of DUP control records: 

• Store programs and data files on disks 

• Make programs and data files on a disk available as printed, punched card, or punched 
paper tape output 

• Delete programs and data files from a disk 

• Determine the status of disk storage areas through a printed copy of LET and FLET 

• Define a fixed area on a disk, and delete monitor system programs from a disk 

• Maintain disk macro libraries 

• Reassign sector addresses on a disk 

• Reserve space for a data file or macro library 

DUP control records are described in Chapter 6. DUP error messages are listed in 
Appendix A. 

General Functions of DUP 

DUP is called into operation when a DUP monitor control record (// DUP) is recognized 

by the supervisor. The control portion of DUP is brought into core to read the next 

DUP control record from the input stream. The DUP control record is printed and analyzed. 

The DUP program required to perform the operation specified in the control record is 
read into core storage from the disk and assumes control. The DUP program performs the 
functions specified in the control record, and when complete, a message is printed on 
the principal printer, and control is returned to the control portion of DUP. The next 
control record is read from the input stream. 

If the next record is a monitor control record, other than a comments control record 
(// *)> system control is returned to the supervisor to process the record. Comments moni- 
tor control records are printed; blank records are passed. If the record is a DUP control 
record, DUP maintains control and reads the next record. 
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ASSEMBLER 

The source language and macro capabilities for the assembler are described in the publi- 
cation IBM 1 130/ 1800 Assembler Language, GC26-3778. This section of this chapter con- 
tains only a general description of the Monitor System Assembler Program. Assembler 
control records are described in Chapter 6. Assembler error detection codes and error 
messages are listed in Appendix A. 

The assembler can be deleted from the monitor system if desired (see "*DEFINE" under 
"DUP Control Records" in Chapter 5). The assembler cannot, however, be operated 
independently of the monitor system. 

A monitor control record, // ASM, is used to call the assembler into operation. The 
assembler reads assembler control records and the source deck from the principal input 
device. The assembler interprets and performs the functions specified in the control 
records and translates the source program into an object program. Control records cause 
the assembler to: 

• Pass the source deck through the assembler twice 

• List the source deck and cross-reference symbol table on the principal printer 

• Punch object decks into cards 

• Print the symbol table on the principal printer, or punch the symbol table into cards 

• Save and add to the symbol table on disk 

• Specify the interrupt level for assembly of ISS subroutines 

• Specify additional sectors for overflow of the symbol table 

• Specify the length of COMMON used when linking between FORTRAN and assembler 
programs 

• Specify the use of the macro library during assembly 

After assembly is complete, the object program resides in working storage. The program 
can now be (1) called for execution, (2) stored in either the user area or the fixed area, 
or (3) punched as a binary deck or tape. 
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FORTRAN COMPILER 



RPG COMPILER 



The source language for the FORTRAN compiler is described in the publication IBM 
1130/ 1800 Basic FORTRAN IV Language, GC26-3715. This section of this chapter con- 
tains only a general description of the monitor system FORTRAN compiler. FORTRAN 
compiler control records are described in Chapter 6. FORTRAN error codes and error 
messages are listed in Appendix A. 

The FORTRAN compiler can be deleted from the monitor system if desired (see "*E>E- 
FINE" under "DUP Control Records" in Chapter 5). The FORTRAN compiler, however, 
cannot be operated independently of the monitor system. 

A monitor control record, // FOR, is used to call the FORTRAN compiler into operation. 
The compiler reads FORTRAN compiler control records and the source program from 
the principal input device. The compiler interprets and performs the functions specified 
in the control records and translates the source program into an object program. Control 
records cause the compiler to: 

• Specify the I/O devices to be used during program.execution 

• List the source program, the names of all subprograms associated with the source 
program, and symbol table information on the principal print device 

• Specify that all variables and real constants are stored in 3 words instead of 2 

• Specify that all integer variables are stored in one word instead of the standard 2 words 

• Print header information at the top of each printed page, and print the program name 
at the end of a listing 

• Trace the values of variables, IF expressions, and computed GO TO statements during 
program execution 

• Specify the origin of an absolute program 

After compilation is complete, the program resides in working storage in disk system 
format (DSF). The program can now be (1) called for execution, (2) stored in the user 
area or fixed area, or (3) punched in binary form into cards or paper tape. 



The source language specifications for the RPG compiler are described in the publication 
IBM 11 30 RPG Language, GC2 1-5002. This section of this chapter contains a general 
description of the monitor system RPG compiler. RPG compiler control cards are des- 
cribed in Chapter 6. RPG error messages and error notes are described in Appendix A. 

The RPG compiler can be deleted from the monitor system if desired (see "*DEFINE" 
under "DUP Control Records" in Chapter 5). The compiler, however, cannot be operated 
independently of the monitor system. 

A monitor control record, // RPG, is used to call the compiler into operation. The com- 
piler reads the RPG compiler control card and the source program from the principal 
input device. The compiler interprets and performs the functions specified in the control 
card and translates the source program into an object program. After compilation is 
complete, the object program, in disk system format (DSF), resides in working storage. 
The program can now be (1) called for execution, (2) stored in the user area or the fixed 
area, or (3) punched in binary form into cards. 
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CORE LOAD BUILDER 



CLBuseof the CIB 



The core load builder constructs an executable core load from a program in disk system 
format (DSF). The DSF program and all required subroutines (including any LOCALs, 
SOCALs, and NOCALs) are converted from disk system format into disk core image 
(DCI) format. The resultant core load is ready for immediate execution or for storing. 

The core load builder is called by any of the following programs. 

• Supervisor. When an XEQ monitor control record is read by the supervisor, the infor- 
mation specified in any supervisor control records that follow is written in the super- 
visor control record area (SCRA). Then, the core load builder is called to begin con- 
struction of the core load. When the core load is complete, the core image loader 
transfers the core load into core for execution. 

• Disk Utility Program. When a STORECI control record is read by the Disk Utility Pro- 
gram (DUP), information specified in any supervisor control records that follow are 
written in the supervisor control record area (SCRA). Then, if the specified program 

is not in working storage, the program is loaded into working storage, and the core 
load builder is called to begin construction of the core load. When the core load is com- 
plete, DUP stores it as a core image program in the user area or fixed area as specified 
in the STORECI control record. 

• Core Image Loader. When a core load calls for a link to another, the core image loader 
determines the format of the program from its LET or FLET entry. If the format is 
DSF, the core load builder is called to begin construction of the core image program. 
When the core load is complete, the core image loader transfers the core load for 
execution. 

Construction of a Core Load 

When the core load builder (CLB) is called by one of the previous monitor programs, the 
core load is constructed by the functions described in this section. The core load builder 
uses 3 storage areas while constructing a core load. These areas are the core image buffer 
(CIB), working storage (WS), and core storage. 

The core load builder places in the core image buffer the parts of a core load that are to 
reside below core location 4096 (decimal) for a 4K system, or 5056 for larger systems, 
during execution. These parts can be the core image header, the main-line program, and 
subroutines. The contents of the CIB during core load construction are illustrated by: 



That part of 
core load below 
4096 (or 5056) 



Not used 



COMMON saved 
from last core 
load 



Core image buffer 
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CL.B use of WS 



The core load builder reserves enough space in working storage for any data files that are 
specified for use by the core load, as well as any LOCAL and/or SOCAL subroutines that 
are referenced by the core load (see "Processing Data Files" and "Incorporating Sub- 
routines" in this section). The contents of working storage during core load construction 
are shown by: 



Data files 
defined by 
core load 



LOCAL 
subroutines 



SOCAL 
subprograms 
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Not used 



Working storage 



CLB use of core 
storage 



In systems larger than 4K, the core load builder places in core storage the parts of a 
core load that are to reside above core location 5055 during execution. These parts of 
a core load can be subroutines and the transfer vector. The contents of core storage during 
construction of a core load are illustrated by: 



Core 




Core 




location 


End of 


location 


End 





DISKZ 


50156 


of core 



Resident 
monitor 



Core load 
builder 



That part of core 
above 5055 



Core storage 



When construction of a core load is finished and is executed immediately, the core image 
loader is called to transfer it into core storage. The layout of a core load in core that is 
ready for execution is illustrated by: 
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When a core load is stored immediately following construction, it is placed in the user 
area or the fixed area as follows: 



Mainline 
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Subprograms 
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flipper 
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• Core image header 



When the core load builder is called, the core load is built by the following functions, but 
not necessarily in the order described. 

Construction of the Core Image Header 

The core image header is established at the beginning of the construction of a core load. 
Throughout the building of a core load, information is placed in this header. The infor- 
mation placed in the header is used by the core image loader to transfer the core load into 
core storage and start program execution. The core image header is a part of the core 
load and resides in core storage during execution. 

Note. The area of core storage occupied by the core image header should not be considered 
as a work area, because FORTRAN subroutines access information in the header during 
execution. 

Assignment of the Origin of a Core Load 

The core location where the core image loader begins loading a relocatable core image pro- 
gram is assigned by the core load builder. This loading address is placed in the core image 
header, and is called the origin. The origin is determined by adding decimal 30 to the next 
higher-addressed word above the end of the disk I/O subroutine used by the core load. 
The following chart lists the origin locations (in decimal and hexadecimal) used by the 
core load builder. 



Disk I/O 
subroutine 
in core 


Core load origin 


Decimal 


Hexadecimal 


DISKZ 
DISK1 
DISKN 


510 
690 
960 


/01FE 
/02B2 
/03C0 
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The origin of absolute programs' is assigned by the assembler or FORTRAN programmer, 
not by the core load builder. The assembler programmer assigns the origin of a program 
with the ORG statement in his program. The FORTRAN programmer defines the origin of 
his program with an *ORIGIN control record. The origin that you define must not be 
less than those in the preceding chart, depending on the disk I/O subroutine used by the 
core load. When the programmer assigns an origin, the addresses printed in a program 
listing are absolute; thus, he can see exactly where his statements and constants are in 
core during execution. 

'Note. When DISKZ is in core, the assembler programmer must specify an even address 
in an ORG statement. Also, an ORG statement specifying an even address must not be 
followed by a BSS or BES statement of an odd number of locations. 

Processing the Contents of the SCRA 

. The core load builder analyzes the LOCAL, NOCAL, FILES, G2250, and SQUAT con- 
trol records stored in the SCRA on disk, and builds tables for the respective control 
( », record types from the information specified. The information placed in these tables; 
is used in later phases °f the construction of the core load. 

Processing Data Files 

The core load builder uses the information in the FILES control records stored in the 
supervisor control record area (SCRA) to equate data files defined in the mainline 
program to data files stored on disk. The mainline program statements that define these 
files are the FORTRAN DEFINE FILE statement and the assembler FILE statement. 
During compilation or assembly, a define file table is built from the DEFINE FILE 
statements or FILE statements. ' 

The core load builder compares a file number from a define file table entry with the file 
numbers specified in the FILES supervisor control records stored in the SCRA. If 
a match occurs, the name of the disk area associated with the file number on the FILES 
control record is found in LET or FLET, and the sector address of that disk area (including 
the logical drive code) is placed in the corresponding define file table entry. If the number 
in the define file table entry does not match any of the file numbers for FILES control 
records or if a name is not specified on the FILES control, record, the core load builder 
assigns an area in working storage for the data file. The sector address of the data file, 
relative to the start of working storage, is placed in the define file table entry. This 
procedure is repeated for each. define file table entry in the mainline program. 

Conversion of the Mainline Program 

The mainline program is converted from disk system format into disk core image format. 
The mainline is always converted before any of the other portions of the core load. 

Incorporating Subrou tines 

Subroutines in general All the subroutines called by other subroutines, by the mainline program and all sub- 
routines specified as NOCALs are included in the core load, except for (1) the disk I/O 
subroutine, (2) any LOCAL subroutines specified, and (3) SOCAL subroutines employed. 
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EQUAT subroutines 
or symbolic names 

FLIPR 



CLB provision 
for LOCALS 



CLB provision for 
SOCALs 



Subroutines called by the core load that is being built can be replaced if indicated in 
EQUAT monitor control records stored in the SCRA. Symbolic names in assembler DSA 
statements are replaced by other symbolic names if so indicated in EQUAT control records. 

The LOCAL/SOCAL flipper, FLIPR, is included in each core load in which LOCAL sub- 
routines are specified or in which SOCAL subroutines are employed. FLIPR is entered 
by special LOCAL/SOCAL linkage through the transfer vector. FLIPR checks to deter- 
mine if the required LOCAL or SOCAL is already in core. If not, FLIPR reads the re- 
quired LOCAL or SOCAL into the LOCAL or SOCAL area in core. If the subroutine or 
subprogram is already in the LOCAL or SOCAL area of core, FLIPR transfers execution 
control to them. 

When execution immediately follows the building of a core load, FLIPR reads a LOCAL or 
SOCAL, as it is called, from working storage into the LOCAL or SOCAL area of core. 
If the core image program was stored following the building of a core load, FLIPR 
reads a LOCAL or SOCAL, as it is called, from the user area or the fixed area (where it 
was stored following construction of the core load) into the LOCAL or SOCAL area 
of core. 

LOCALs (load-on-call) are subroutines that you specify as overlays with LOCAL 
supervisor control records when error messages indicate that a core load is too large to 
fit into core. 

If LOCALs are specified for use by a core load, the core load builder reserves an area in 
the core load as large as the largest LOCAL subroutine specified. LOCAL subroutines 
will be read by FLIPR into this area as required during execution. LOCAL subroutines are 
stored in working storage following any data files stored there. If the core load is executed 
immediately, each LOCAL subroutine is read as it is called from working storage into 
the LOCAL area by FLIPR. If the core load is stored in disk core image format before 
it is executed, LOCAL subroutines are stored following the core load, and will be read 
from the storage area (user area or fixed area) during execution. 

SOCALs (system-overlays-to-be-loaded-on-call) are groups of subroutines (by class, type, 
and subtype) that are made into overlays by the core load builder. SOCALs make it 
possible for FORTRAN core loads that are too large to fit into core to be loaded and 
executed. (SOCALs are not built for mainline programs written in assembler or RPG 
language.) 

If, in constructing a core image program from a FORTRAN mainline program, the core 
load builder determines that the core load will not fit into core, SOCALs are created. An 
area as large as the largest SOCAL overlay (usually SOCAL 2) is reserved in the core 
load. SOCAL overlays will be read by flipper into this area as required during execution. 
The SOCAL overlays are placed in working storage following any data files and LOCALs 
stored there. If the core load is executed immediately, each SOCAL overlay is read, 
as it is called, from working storage into the SOCAL area by flipper. If the core load is 
stored in disk core image format before it is executed, SOCALs are stored following the 
core load and any LOCALs. SOCALs are then read from the storage are (user area or 
fixed area) during execution. 
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The core load builder creates SOCAL overlays by subroutine class, type, and subtype 
(program types and subtypes are described under "Disk System Format" in Appendix I.) 
SOCAL overlays are numbered 1, 2, and 3. The classes of subroutines, their types and 
subtypes, that can be included in each SOCAL overlay are: 



SOCAL overlay 

\ 


Subroutine class 


Type 


Sub- 
type 


| number] | includes ) 


1 


Arithmetic 


3 


2 


Function 


4 


8 


2 


Nondisk FORTRAN 
I/O and "Z" conver- 
sion subroutines 


3 


3 


"Z" device 
subroutines 


5 


3 


3 


Disk FORTRAN 
I/O 


3 


1 



Each SOCAL overlay does not contain all the subroutines of the specified classes, types, 
and subtypes that are available in the monitor system library ; only those subroutines 
required by the core load are included in the SOCAL. The names of the subroutines 
included in the SOCALs associated with a program are listed in a core map. A printout of 
the core map is obtained by placing an L in column 14 of an XEQ monitor control 
record (see "Reading a Core Map and File Map" in Chapter 6). 

Two options are used by the core load builder in creating SOCAL overlays. 

• SOCAL Option 1. An attempt is made to make the core load fit into core by using 
SOCAL overlays 1 and 2. This option reserves enough space in the core load for 
the largest of the 2 SOCALs (usually SOCAL 2) and approximately 115 additional 
words that are required for the special SOCAL linkage. SOCALs 1 and 2 are placed in 
working storage. When this option has been tried and the core load still does not fit 
into core, the second option is used. 

• SOCAL Option 2. An attempt is made to make the core load fit into core by using 
SOCAL overlays 1, 2, and 3. This option reserves enough space in the core load for the 
largest of the 3 SOCALs (usually SOCAL 2) and approximately 120 additional words 
that are required for the special SOCAL linkage. If, after both SOCAL options have 
been tried, the core load still does not fit into core, an error message is printed. 

If you specify as a LOCAL subroutine a subroutine that would usually be included in a 
SOCAL, the core load builder makes that subroutine a LOCAL and does not include it in 
the SOCAL in which it would ordinarily be placed. Further information is contained 
in "The Use of SOCALs" in Chapter 6. 
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Transfer Vector 

The transfer vector (TV) is a table included in each core load that provides linkage to 
subroutines. This table is composed of: 

• CALL TV— the transfer vector for subroutines referenced by CALL statements 

• LIBF TV— the transfer vector for subroutines referenced by LIBF statements 

Each CALL TV entry is a single word containing the absolute address of an entry point 
in a subroutine included in the core load that is referenced by a CALL statement. In the 
case of a subroutine referenced by a CALL statement but specified as a LOCAL, the 
CALL TV entry contains the address of the special LOCAL linkage instead of the sub- 
routine entry point address. If SOCALs are required, the CALL TV entries for function 
subroutines contain the address of the special SOCAL linkage instead of the subroutine 
entry point address. 

Each LIBF TV entry consists of 3 words. Word 1 is the link word in which the return 
address is stored; words 2 and 3 contain a branch to the subroutine entry point. In the 
case of a subroutine referenced by a LIBF statement but specified as a LOCAL, the 
LIBF TV entry contains a branch to the special LOCAL linkage instead of to the sub- 
routine entry point address. The core load builder inserts the address in word 1 of the 
transfer vector entry (link word) into the entry point+2 of the associated LIBF sub- 
routine. If SOCALs are required, the LIBF TV entry for a SOCAL subroutine contains 
a branch to a special entry in the LIBF TV for the SOCAL of which the subroutine is 
a part. This special entry provides the linkage to the desired SOCAL. 

The core load builder can build a core load that references up to approximately 375 
different LIBF and CALL entry points; 80 LIBFs plus 295 CALLs (the maximum 
number of LIBFs allowable is 83 due to the size of the LIBF TV). If the core load is 
built on an 1 130 system with core size of 4K, the maximum number of different LIBF 
and CALL entry points is approximately 110. 

See "Reading the Transfer Vector" in Chapter 6 for more information. 



CORE IMAGE LOADER 



$EXIT entry 



$DUMP entry 



The core image loader (CIL) has 2 functions: 

• Transfer control between some monitor programs 

• Transfer core loads into core for execution 

On an entry to the skeleton supervisor at $EXIT, $DUMP, or $LINK, the core image 
loader is called and control transferred to it. The core image loader determines where the 
skeleton supervisor was entered and calls the appropriate monitor or mainline program. 

When the skeleton supervisor is entered at the $EXIT entry point, the core image loader 
calls the DISKZ I/O subroutine if DISKZ is not already in core. Then, the CIL calls and 
transfers control to the monitor control record analyzer to read monitor control records 
from the input stream. 

When the skeleton supervisor is entered at the $DUMP entry point, the core image loader 
saves words 6 through 4095 (decimal) in the core image buffer. Then the CIL calls and 
transfers control to the Supervisor Core Dump Program. When the dump is complete, 
the dump program either restores core from the CIB and transfers control back to the 
core load in process or terminates execution with a CALL EXIT (see "Disk Resident 
Supervisor Programs" in this chapter). 
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SLINK entry 



When an entry is made to the skeleton supervisor at the SLINK entry point, the core image 
loader saves the sector of core referred to as low COMMON. The sector saved depends on 
the disk I/O subroutine that is in core; locations (in decimal) 896 through 1215 if DISKZ, 
1216 through 1535 if DISK 1, or 1536 through 1855 if DISKN. Then the CIL determines 
from COMMA the lowest-addressed word of COMMON if any was defined by the core 
load just executed. Any COMMON in core below location 4096 (4K system) or 5056 in 
larger systems is saved in the CIB. The following illustrates the saving of COMMON. 



Core address 
OOOO 



If DISKZ 896 
If DISK1 1216 
If DISKN 1536 
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Next, the CIL determines from the LET or FLET entry for the program being called 
whether the program is in disk system format or in disk core image format. 

If the called program is in disk system format, the core load builder is called to construct 
a core load from the mainline program. After the core load is built, the core image loader 
is called to transfer the core load into core for execution. 

If the called mainline program is stored in disk core image format, the disk I/O subroutine 
required by the core load is called, if it is not already in core. Any COMMON defined by 
the core load just executed and saved in the CIB is restored, and the called core load is 
transferred into core for execution. 

The following illustration is the layout of a core load in core ready for execution. 
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LOGIC FLOW OF THE MONITOR SYSTEM 
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Chapter 4. Monitor System Library 



The monitor system library is a group of mainline programs and subroutines that performs 
the following functions for the monitor system: 

• Input/output 

• Data conversion 

• Arithmetic functions 

• Disk initialization 

• Disk maintenance 

• Paper tape utility 

Appendix C is a listing of the names, types and subtypes, required subroutines, and ID 
fields for the programs and subroutines in the monitor system library. 

Monitor system subroutines can be added to or deleted from the monitor system library. 
You add or delete them with Disk Utility Program (DUP) store and delete functions (see 
"♦STORE" and "*DELETE" under "DIJP Control Records" in Chapter 5). Each program 
in the IBM-supplied system deck used in an initial load is preceded by a DUP *STORE 
control record. 

This chapter contains general information about: 

• System library ISS subroutines 

• System library utility subroutines 

• System library mainline programs 

Additional and more detailed information about the system library is contained in the 
publication IBM 1130 Subroutine Library, GC26-5929. 
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ISS Subroutines 



SYSTEM LIBRARY ISS SUBROUTINES 



The interrupt service subroutines (ISS), in the monitor system library, manipulate the 
I/O devices that are part of the computer configuration. Each subroutine has a symbolic 
name that must be used when the subroutine is available, although only one for each 
I/O device can be selected for use in any one program (including subroutines). The fol- 
lowing is a list of the devices available on the 1 130 and the names of the ISS subroutines 
that are available for each device. 



nameZ 

nameO 
namel 



I/O device 

1442 Card Read Punch 

2501. Card Reader 

1442 Card Punch 

Disk 

1132 Printer 

1403 Printer 

Console keyboard/printer 

Console printer 

1134/1055 Paper Tape Reader Punch 

1627 Plotter 

1231 Optical Mark Page Reader 

Synchronous Communications 
Adapter 



I/O device subroutine 

CARDZ, CARDO, or CARD1 

READZ, READ0,or READ1 

PNCHZ, PNCHO, or PNCH1 

DISKZ, DISK1,orDISKN 

PRNTZ, PRNT1.PRNT2 

PRNZ, or PRNT3 

TYPEZ,orTYPEO 

WRTYZ, or WRTYO 

PAPTZ,PAPT1, PAPTN,or PAPTX 

PLOT1,orPLOTX 

OMPR1 

SCAT1 , SCAT2, or SCAT3 



The last character or digit (Z, 0, 1 , or N) of an ISS name indicates the general character- 
istics of the subroutine: 

The nameZ versions are designed for use in an error- free environment; preoperative error 
checking is not provided. FORTRAN and RPG use the nameZ versions of the ISS sub- 
routines, i 

The nameO versions are shorter and less complicated than the namel or nameN versions. 
The nameO versions handle error conditions automatically. 

Use the namel versions rather than the nameO versions when you write an error exit. The 
nameO versions handle error conditions automatically. 
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ISS Subroutines 



nameN 



The nameN versions are available to operate the 1134/1055 Paper Tape Reader/Punch 
simultaneously and to minimize extra disk revolutions when transferring more than 320 
words to or from the disk. DISKN offers more options than DISK1. Depending on your 
computer configuration, it also offers simultaneous operation of any one of the following 
disk combinations. 

• Up to five 23 1 5 Disk Cartridges 

• One 23 15 Disk Cartridge (the 1131 CPU internal disk) and one disk in each of one or 
two 1316 Disk Packs 

• One disk in each of two 1316 Disk Packs 

Preoperative and postoperative errors that occur during the operations of the I/O device 
subroutines are included in Appendix B. 

Extra space on a system cartridge can be gained by deleting the I/O device subroutines that 
are in the system library for devices that are not a part of your computer configuration. 
The following is a list of the subroutines that can be deleted for each device: 



Device not in 
configuration 

1442 Card Read Punch 
(input/output) 

2501 Card Reader 

1442 Card Punch 

1134/1055 Paper Tape 
Reader/Punch 

1132 Printer 



I/O device subroutines 
that can be deleted 

CARDO, CARD1,CARDZ 



READ0,.READ1,READZ 

PNCHO, PNCH1,PNCHZ 

PAPT1 , PAPTN, PAPTX, PAPTZ, 
PAPEB,PAPPR,PAPHL 

PRIMT1, PRNT2, PRTZ2, PRNTZ, 
DMPD1 



Disk blocks 

gained 

(hexadecimal) 

/4E 



/62 
/22 

/75 

/69 



1403 Printer 



1627 Plotter 



PRNT3, PRNZ, EBPT3, CPPT3, 
HLPT3, PT3EB, PT3CP, PTH0L 

PLOT1,PLOTI,PLOTX, FCHRX, 
ECHRX,SCALF, SCALE, FGRID, 
EGRID, FCHAR, ECHAR, FPLOT, 
EPLOT, FRULE, ERULE, POINT, 
XYPLT 



/40 



/BO 



Synchronous 

Communications 

Adapter 

1231 Optical Mark 
Page Reader 

MTCA 



SCAT1 , SCAT2, SCAT3, PRNT2, 
PRTZ2, IOLOG, EBC48, HOL48, 
HXCV,STRTB, HOLCA 

OMPR1 



MTCA0, MTCAZ, TSM41, TSTTY, 
FEB41 



/FA 



/15 



/9A 
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Utility Subroutines 



You should not delete subroutines that are called by subroutines left in the monitor system 
library (see Appendix C for lists of the subroutines called by each subroutine in the moni- 
tor system library). 

The mainline programs required for devices not on the system that can be deleted from 
the system library are: 



Device not in 
configuration 

11 34/1 055 Paper Tape 
Reader/Punch 

2310 Disk Storage or 

231 1 Disk Storage Drive 



Mainline programs that 
can be deleted 

PTUTL 



DLCIB, ID, COPY, DISC, 
IDENT 



Disk blocks 

gained 

(hexadecimal) 

/OA 



/9D 



SYSTEM LIBRARY UTILITY SUBROUTINES 



A group of subroutines that perform utility functions for the monitor system are included 
in the monitor system library. These subroutines are: 

• SYSUP, disk communications area (DCOM) update subroutine, that you call in an 
assembler or FORTRAN program when you need to change disk cartridges or pack:? 
during execution of a core load. This subroutine updates DCOM on the master cart- 
ridge with the IDs and DCOM information from all satellite cartridges that are mount- 
ed on the system and that are specified in the special SYSUP calling sequence. Uses 
and calling sequences of SYSUP are discussed in Chapter 6. 

• CALPR, call system print subroutine, that calls the print subroutines into core storage 
for printing information on the principal printer. 

• FLIPR, LOCAL/SOCAL flipper overlay subroutine, that calls LOCAL (load-onfall) and 
SOCAL (system-load-on-call) subroutines into core storage during execution of a core 
load. LOCALs, SOCALs, and FLIPR are discussed under "Incorporating Subroutines" 
in Chapter 3 and in Chapter 6, "Programming Tips and Techniques". 

• FSLEN, fetch phase IDs and fetch system subroutines, that performs 2 functions. The 
first function obtains system program phase ID headers from SLET as requested by 
monitor system programs. The second function calls system subroutines into core 
storage as needed. 

• RDREC, Read *ID Record, that is called by the disk maintenance programs, discussed 
in this chapter, to read *ID control records. 

Note. SYSUP is the only one of these utility subroutines that can be called by FORTRAN 
programs. The other subroutines are called as needed by monitor system programs or by 
assembler language programs. 
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Disk Maintenance Programs 
IDENT 



SYSTEM LIBRARY MAINLINE PROGRAMS 



disk maintenance 
programs 



PTUTL program 

messages and 
halt codes 



The 1 130 system library mainline programs provide for disk maintenance and paper tape 
utility functions. These programs (except the disk maintenance program, ADRWS) are 
called for execution with a monitor XEQ control record, and are described in the following 
sections of this chapter. These programs can be executed in a stacked job stream. 

The disk maintenance programs reinitialize cartridges, modify the contents of cartridges, 
and print information from cartridges. The disk maintenance programs are: 

• IDENT that prints cartridge IDs 

• DISC that reinitializes satellite cartridges 

• DSLET that prints the contents of the system location equivalence table 

• ID that changes cartridge IDs 

• COPY that copies the contents of one cartridge onto another 

• ADRWS that writes sector address in working storage 

• DLCIB that deletes the core image buffer from a nonsystem cartridge 

• MODIF that modifies the monitor system programs 

• MODSF that modifies programs and subroutines in the system library 

• DFCNV that converts 1 130 FORTRAN and/or commercial subroutine package (1 130- 
SE-25X) disk data files to disk files acceptable to 1 130 RPG programs. 

For execution, some disk maintenance programs require in addition to the monitor XEQ 
control record, special control records. The fields and uses of these special control records 
are described when required in the descriptions of these programs in this chapter. 

The Paper Tape Utility (PTUTL) Program accepts input from the paper tape reader or 
console keyboard and provides output to the console printer and/or the paper tape punch. 

Messages printed by the disk maintenance programs are described in Appendix A. Halt 
codes displayed in the console ACCUMULATOR are described in Appendix B. 

The following sections of this chapter describe the functions and calling sequences of the 
system library mainline programs. 

IDENT 

The Print Cartridge ID (IDENT) mainline program prints the cartridge ID and physical 
drive number of each disk cartridge that is mounted on the system and is ready, not just 
the cartridges that are specified in the current JOB monitor control record (see "Monitor 
Control Records" in Chapter 5). Invalid cartridge IDs, including negative numbers, are 
printed. 

The IDENT program is called for execution with a monitor XEQ control record: 
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Disk Maintenance Programs 
DISC 



DISC 

'The Satellite Disk Initialization (DISC) mainline program requires at least 8K of core star- 
ve to run. DISC reinitializes from one to four satellite cartridges; all but the master cartridge. 
(All new cartridges must be initialized with the stand-alone DCIP utility program, see 
Chapter 9). On each cartridge being reinitialized, the DISC program: 

• Tests disk sectors to determine which, if any, are defective, and fills in the defective 
cylinder table accordingly 

• Writes a sector address on every sector, including defective sectors 

• Establishes a file-protected area for the cartridge 

• Places an ID on the cartridge 

• Establishes a disk communications area, sector @DCOM, a location equivalence uable 
(LET), and a core image buffer (CIB) 

If an error occurs during testing, the cylinder on which the error occurred is retested. If 
the error occurs again, the address of the first sector on that cylinder is written in the 
defective cylinder table. The monitor system I/O subroutines operate with up to 3 
defective cylinders on a cartridge. That is, 3 cylinders that contain one or more defsctive 
sectors. A cartridge cannot be initialized if cylinder is defective, or if a sector address 
cannot be written on every sector. 

A message and the program that prints it are written in sector @RIAD. The message is: 

NONSYST. CART. ERROR 

This message is printed when an attempt is made to cold start a nonsystem cartridge that 
is initialized with DISC. 

The DISC program is called for execution with a monitor XEQ control record followed by 
an *ID control record: 
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*ID fields 



FID1 Through FIDn. Replace FID1 through FIDn with the current IDs on the satellite 
cartridges that are being reinitialized. This program overrides the cartridges that are 
specified in the current JOB monitor control record. 

TID1 Through TIDn. Replace TID1 through TIDn with the new IDs to be placed on the 
satellite cartridges during initialization. A valid cartridge ID is a hexadecimal number from 
/0001 to /7FFF. 
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Disk Maintenance Programs 
DSLET ID 

COPY 

DSLET 

The Dump System Location Equivalence Table (DSLET) mainline program prints the 
contents of SLET on the principal printer. Each SLET entry printed includes a symbolic 
name, phase ID, core address, word count, and disk sector address. Appendix E is a 
printout of a SLET dump. 

The DSLET program is called for execution with a monitor XEQ control record: 
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'ID fields 



ID 

The Change Cartridge ID (ID) mainline program changes the ID on from one to four 
satellite cartridges. The ID program is called for execution with a monitor XEQ control 
record followed by an *ID control record: 
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FID1 Through FIDn. Replace FID1 through FIDn with the IDs currently on the satellite 
cartridges that are to be changed. These IDs must be coded in the same logical order as 
those coded in the current JOB monitor control record. 

TID1 Through TIDn. Replace TID1 through TIDn with new IDs that you want placed on 
the satellite cartridges. A valid cartridge ID is a hexadecimal number between /0001 and 

/7FFF. 

COPY 

The Disk Copy (COPY) mainline program requires at least 8K of core storage to run. COPY 
copies the contents from one cartridge (source) onto another (object cartridge). The 
defective cylinder data and cartridge ID are not copied. The copy code (word 5 of sector 
@IDAD) on the object cartridge is incremented to one greater than the copy code on the 
source cartridge. (The stand-alone DCIP program described in Chapter 9 provides a 
similar disk copy function.) 

If a copy is made of a system cartridge from a system with a different configuration, the 
object cartridge must be reconfigured before a cold start can be performed (see Chapter 
8 for information about reconfiguration). 

The COPY program is called for execution with a monitor XEQ control record followed 
by an *ID control record: 
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Disk Maintenance Programs 
ADRWS DLCIB 
MODIF 

*ID fields 



FID1 Through FIDn. Replace FID1 through FIDn with the IDs of the cartridges that are 
being copied. When multiple copies are being made from a single cartridge, replace FID1 
through FIDn with the same cartridge ID. This program overrides the cartridges that are 
specified on the current JOB monitor control record. 

TID1 Through TIDn. Replace TID1 through TIDn with the IDs of the object cartridges. 

ADRWS 

The Write Sector Addresses in Working Storage (ADRWS) mainline program writes a 
sector address on every sector of working storage of a cartridge. This program is not 
executed with an XEQ monitor control record as the other disk maintenance mainline 
programs are. ADRWS is linked to from the Disk Utility Program (DUP) when a DWADR 
DUP control record is read from the job stream. (The DWADR control record is described 
under "DUP Control Records" in Chapter 5.) 

DLCIB 

The Delete Core Image Buffer (DLCIB) mainline program deletes the CIB from a nonsystem 
cartridge. The areas on the cartridge that followed the CIB before it was deleted are moved 
back 2 cylinders closer to cylinder 0. The new addresses of the areas moved are placed in 
DCOM on the master cartridge and in COMMA on the cartridge from which the CIB was 
deleted. 

The DLCIB program is called for execution with a monitor XEQ control record followed 
by an *ID control record: 
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ID field 



CART. Replace CART with the cartridge ID of the nonsystem cartridge from which the 
CIB is being deleted. 



MODIF 

The System Maintenance (MODIF) mainline program allows you to make updates to the 
monitor system programs and/or the system library. This program changes the word of 
the disk communications area (DCOM) that contains the version and modification level 
of the monitor system, (Information stored in the user area in disk system format can 
also be changed with the MODSF disk maintenance program described later in this chapter.) 

A card deck or paper tape containing corrections to update the monitor system to the 
latest version and modification level is supplied by IBM. All modifications included must 
be run, even if an affected program has been deleted from the system, to update the 
version and modification level. 



Disk Maintenance Programs 
MODIF control records 

The MODIF program is called for execution with a monitor XEQ control record: 
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*MON patch 
control record 



Note. A system program phase that contains reload table entries (references to other 
entries in SLET generated by the system loader during an initial load or reload operation) 
cannot be replaced with MODIF; a system reload must be used (see Chapter 8 for reload 
information). MODIF cannot be used if temporary mode is indicated in the current 
monitor JOB control record. A cold start procedure is recommended prior to a system 
reload if the reload precedes the execution of MODIF, as in a system modification update. 

MODIF Patch Control and Data Records 

The MODIF patch control records that can follow the monitor XEQ control record are: 

• *MON that identifies a monitor program phase that is being modified 

• *SUB that identifies a change to the system library 

• // DEND that specifies the end of MODIF execution 

The *MON patch control record, patch data records, and a // DEND control record 
modify monitor program phases. A typical input card deck for system program mainten- 
ance is: 



A MODIF job 




Next monitor control record 



MODIF define end record 



Following system program maintenance control 
records and data records (if any) 



Data records 



System program maintenance control record 



System maintenance program call 



Each program phase that is changed requires a *MON control record and patch data 
records that specify the changes. If MODIF determines from SLET that the FORTRAN 
compiler or the assembler has been deleted from the disk, any modifications that are 
included for these programs cannot be made; however, the version and modification levels 
for these programs are updated in DCOM. 
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Disk Maintenance Programs 
MODI F control records 



# MON patch 


Card column 


Contents 


Explanation 


control record 








format 


1 through 4 


*MON 


These charac 



Blank 



6 through 8 



or G or R 



10 

11 through 14 



Blank 



15 

16 through 19 

20 
21 



Blank 



Blank 
B or H 



22 

23 through 26 



Blank 
PPPP 



27 

28 through 31 



Blank 
dsis 



any of the monitor system programs 
and/or the system device subroutines. 



A hexadecimal number; 

v is the monitor version, and 

mm is the monitor modification 
level. 

indicates system modification 
update. 

G indicates general temporary fix. 

R indicates restricted temporary 
fix. 



TheSLET ID (in hexadecimal) of 
the monitor program phase to which 
the patch is being made. 0000 
indicates an absolute patch (see 
columns 28 through 31 and 33 
through 36). 



The numbers (in hexadecimal) of 
patch data records that follow this 
control record. 



This character identifies the format 
of the patch data records that follow. 

B indicates binary system format. 

H indicates hexadecimal patch format. 



A hexadecimal number that specif ies 
the total number of patch control 
records to be processed. This field is 
required only on the first patch 
control record. 



A hexadecimal number; 

d is the disk drive code, and 

5ss is the sector address of the 
program being patched. Use this 
field only when columns 1 1 through 
14 contain 0000. 



4-tO 





Contents 


Disk Maintenance Programs 
MODIF data records 


Card column 


Explanation 


32 


Blank 




33 through 36 


cccc 


A hexadecimal number that specifies 



37 through 80 



Not used 



the core address of the sector 
specified in columns 28 through 31. 
Use this field only when columns 1 1 
through 14 contain 0000. 



additional field 
information 



patch data 
records 



*MON. The programs that can be patched are: the FORTRAN compiler, RPG compiler, 
-COBOL compiler (program product), assembler, Disk Utility Program, supervisor, core 
load builder, core image loader, and the system device subroutines. Modifications to the 
system device subroutines must be made with a *MON patch, not a *SUB, *DELETE, and 
*STORE patch. 

OorG or R. A system modification update (0) can be made only on a system of one level 
lower than the level indicated in columns 6 through 8. A general temporary fix (G) can 
be made only on a system of the same or one higher level than the level indicated in 
columns 6 through 8. A general temporary fix does not change the level of the system. 

A restricted fix (R) can be made only on a system of the same level as the level indicated 
in columns 6 through 8. 

pppp. A MODIF job can modify more than one system program and can modify both 
system programs and the system library. 

In the latter case, the specified count in columns 23 through 26 must include the *SUB 
patch control record. The // DEND control record is not included in this count. 

cccc. Core addresses can be obtained from the microfiche listings. 

Patch data records are in either hexadecimal patch format or binary system format. These 
data records specify the beginning address of the patch, and the new data for the patch. 
Patch data records cannot contain CALLs or LIBFs, and the relocation indicators will 
not be used. 



hexadecimal 
patch data 
record format 



Card column 
1 through 4 



Contents 



Explanation 

The beginning core address (in 
hexadecimal) of the patch. Each 
patch data record must contain the 
core address. 



Blank 



6 through 9, 
11 through 14, 
16 through 19, 




66 through 69 




70 through 72 


Blank 


73 through 80 


Not used 



Each 4-column field is one word of 
patch data (in hexadecimal). Up to 
13 words of patch data can be in- 
cluded in one data record. A blank 
must separate each word of data. 
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Disk Maintenance Programs 
MODIF control records 



Hexadecimal patch records can contain ID/sequence numbers in columns 73 through SO. 
Zeros must be punched; leading blanks are not assumed. 



binary system 


Word 


Contents 


patch data 
record format 


1 


Location 




2 


Checksum 




3 


Type code (first 8 bits) 00001010 




4 through 9 


Relocation indicators 




10 through 54 


Data words 1 through 45 




55 through 60 


ID and sequence number or blanks 



Note: Checksum verification is not made if word 2 is blank. 



*SUB patch 
control record 



The *SUB patch control record, DUP *DELETE and *STORE functions, new versions of 
system library programs and subroutines, and a // DEND control record are used to modify 
the system library. A typical input card deck for system library maintenance is: 



A MODIF job 




Next monitor control record 
MODI F define end record 

Next DELETE and STORE and new 
version of system library program, . . , 



New version of system library program XXXXX 



i-DUP control records 



System library maintenance control record 
System maintenance program call 
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Disk Maintenance Programs 
MODIF control records 

Only one *SUB control record is used in a MODIF job; however, any number of deletes 
and stores can be included after a *SUB control record. When a MODIF job is used to 
modify system programs and the system library, the *SUB control record must be the 
last patch control record before // DEND in the MODIF job. The *SUB control record 
is also included in the count of MODIF patch control records coded in columns 23 
through 26 of the *MON control record. 



*SUB patch 


Card column 


Contents 


Explanation 


control record 








format 


1 through 4 


*SUB 


These charac 



to the monitor system library. 



Blank 



6 through 8 



or G or R 



A hexadecimal number; 

v is the monitor version, and 

mm is the monitor modification 
level. 

indicates system modification 
update. 

G indicates general temporary fix. 

R indicates restricted temporary 
fix. 



10 through 15 
16 through 19 

20 through 80 



Blanks 



Not used 



The number (in hexadecimal) of 
delete and store control records 
that follow this control record. 



additional field 
information 



//DEND patch 
control record 

//DEND patch 
control record 
format 



OorGorR, A system modification update (0) can be made only on a system of one level 
lower than the level indicated in columns 6 through 8. 

A general temporary fix (G) can be made only on a system of the same or one higher level 
than the level indicated in columns 6 through 8. A general temporary fix does not change 
the level of the system. 

A restricted fix (R) can be made only on a system of the same level as the level indicated 
in columns 6 through 8. 

All MODIF jobs must end with a define end control record (// DEND). This record termin- 
ates MODIF execution and passes control to the supervisor. 



Card column 
1 through 7 
8 through 80 



Contents 

//tfDEND 
Not used 



Explanation 

\b indicates blank. 
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MODIF example 



MODIF Example 

This example illustrates how to change an instruction in the Disk Utility Program (DUP). 
The following data is used to make the change: 

• The SLET phase ID of the subroutine is /0009. 

• Hexadecimal patch format is used. 

• The instruction address (from an assembly listing) is /03B6. 

• The instruction is /D7F0. 

• The instruction is to be changed to /D7D6. 

• The new modification level is 1 2. 

• One patch data record is required. 

• Only one patch control record (// DEND) follows the *MON control record. 
The coding sequence for making this change is: 
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The following is printed on the console printer when the example is executed: 
MODIF EXECUTION 020B 

MON 20C0 0009 0001 H 001 

DAAA REL-WD ADDR OLD NEW 
002B 0096 03B6 D7F0 D7D6 

SW OFF=PATCH 

SW ON =ABORT 



MODIF COMPLETED 
Where: 

MODIF EXECUTION 020B 

DAAA 

REL-WD 

ADDR 

OLD 

NEW 

SW OFF=PATCH 
SW ON =ABORT 



Note. To prevent the printing 
MODIF COMPLETED 020C 



020C 

Execution of MODIF starts on DM2, Version 11 

Drive code and sector address of the patch 

Relative word within the sector that is to be patched. 

Instruction address (from an assembly listing) 

Original instruction 

New instruction 

The system waits after these 2 lines are printed for 
operator intervention. Set data entry switch to OFF 
and press PROGRAM START to write the patch to 
disk or set data entry switch to ON to prevent the 
patch from being made. 

of patch information, set data entry switch 1 to ON. 

The patch is installed, and the new level is 12. 
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MODSF 

The Library Maintenance (MODSF) mainline program allows you to update programs 
that are stored in the user area in disk system format. (Monitor system programs are modi- 
fied or replaced with the MODIF program discussed in the previous section of this chapter.) 

MODSF updates a program by replacing existing code and/or inserting additional code 
at the end of the program. Existing code is replaced in the program as it resides in the 
user area. The existing code of several programs can be updated in one MODSF job, 
but code can only be added to the last program included in the MODSF job. When 
additional code is added to a program, MODSF moves the program into working storage 
before inserting the new code. The modified program is still in working storage when 
MODSF execution is finished and can be transferred back to the user area with DUP 
*DELETE and *STORE functions. 

On the basis of where the addresses you specify are in the program being modified, MODSF 
determines whether a particular update is a replacement or an addition of code. A maxi- 
mum of 31 words can be updated in one MODSF job. 

The MODSF program is called for execution with a monitor XEQ control record: 
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*PRO patch 
control record 



Disk Maintenance Programs 
MODSF control records 

MODSF Patch Control and Data Records 

The MODSF patch control records that can follow the monitor XEQ control record are: 

• *PRO that identifies the program that is being modified. 

• *END that specifies the end of MODSF execution. 

The *PRO patch control record, patch data records, and an *END control record are used 
to modify programs and subroutines stored in the user area. A typical input card deck 
for library program maintenance is: 




These DUP control records are 
included only if last program 
was expanded. 



—J < MODSF terminator record 



Any number of programs may be 
updated, but only the last may be 
expanded. 



Patch control and data records 
if second program is to be updated. 



Patch control and data records for 
modification of first (or only) program. 



Each program or subroutine that is being modified requires a *PRO control record and 
patch data records that specify the changes being made. 
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*PRO patch 


Card column 


Contents 


Explanation 


control record 








format 


1 through 4 


•PRO 


These charac 



6 through 8 



10 through 14 

15 

16 through 19 

20 
21 



22 

23 through 26 



67 through 72 
73 through 80 



Blank 



Blank 
pname 

Blank 



Blank 



Blank 



27, 37, 47, 57 


Blan 


28 through 31 


aeaa 


38 through 41 


aeaa 


48 through 51 


aeaa 


58 through 61 


as aa 


32, 42, 52, 62 


Blan 


33 through 36 


WW 


43 through 46 


WW 


53 through 56 


WW 


63 through 66 


WW 



Reserved 
Not used 



patch control record. 



A. hexadecimal number; 

v is the current monitor version, and 

mm is the current monitor modification 
level. 



The name of the DSF program being 
updated. (If the program has 
secondary entry points, this must be 
the name of the primary entry point.) 



The number (in hexadecimal) of 
patch data records that follow this 
control record. 



Indicates addressing mode, where 
m is: 

P for program -address mode, or 

D for disk-displacement mode. 



Cartridge ID of the cartridge on 
which the program being modified 
is stored. (A cartridge ID is not 
necessary if the program is stored 
on the master cartridge.) 



Each of these optional fields specifies 
an address (in hexadecimal) at which 
the current content of the program 
is compared with the values specified 
beginning in column 33. 



The value (in hexadecimal) that is 
being compared with the program 
content at the addresses specified 
beginning in column 28. These 
optional fields are used when 
the aaaa fields are used. 
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additional field 
information 



patch data 
records 



m. Addresses at which modifications are being made to the program are expressed as 
either P for P-mode (program-address) or D for D-mode (disk-displacement). In P-mode, 
each address represents a relative address within the program such as is printed on the left 
of an assembly listing. 

In D-mode, each address represents a relative location on a disk; a location that the number 
of words indicated by the displacement beyond word of the DSF program header. Each 
D-mode address corresponds to an address on a DUP *DUMP of the program to the printer. 

Note. D-mode should be used if the program or subroutine being updated contains a back- 
ward origin. If P-mode is used when a program contains a backward origin, the results of 
MODSF execution are unpredictable. 

aaaa . . . and vvvv . . . These optional fields allow you to verify whether or not a specific 
update has been made by checking the contents of the program at specified addresses 
(aaaa . . .) with specified values (vwv . . .). If the contents of the words checked are not 
exactly as specified, the MODSF job is terminated. The addresses (aaaa . . .) are inter- 
preted by MODSF as P-mode or D-mode according to the addressing mode specified in 
column 21 of this control record. 

Note. The second word of a LIBF or CALL cannot be verified. 

Code can be replaced or added in either P-mode or D-mode. You specify the addressing 
mode in column 21 of the *PRO control record. The patch data records for MODSF are 
in either P-mode or D-mode format. For the patch data records, choose the format 
according to the addressing mode you specify in the *PRO control record. 

In P-mode, you can update any word in a program, including the relocation code for 
that word. (You cannot update the program header or any data header in the program 
text because these are not a part of the program.) You can add words to the end of a 
program; a relocation code must be specified for each new word. The program length and 
the disk block count in the program header are automatically updated by MODSF when 
an addition is made. 

Because the object code of a LIBF occupies 2 words as stored on disk but only one 
word in a subsequent core load of the program, you can only replace a LIBF with another 
LIBF. 
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P-rnode patch data 
record format 



Card column 
1 through 4 

5 
6 



Contents 



Bltink 



Explanation 

The address (in hexadecimal) in the 
program of the first word being 
changed. 



Relocation code of the first word 
being changed; enter: 

A for an absolute expression or the 
second word of an LIBF or a CALL 
(relocation code 0), 

R for a relocatable expression or the 
second word of a DSA statement 
(relocation code 1), 

L for the first word of an LIBF 
(relocation code 2)— an update with 
an L relocation code must be im- 
mediately followed (on the same 
patch data record) by a second update 
word with an A relocation code, 

C for the first word of a CALL or 
DSA statement (relocation code 3). 



7 


Bltiink 


8 through 1 1 


xxxx 


12 


Bltank 


13 


r 


14 


BUink 


15 through 18 


xxxx 



64 through 67 

68 through 72 
73 through 80 



Reserved 
Not used 



The value (in hexadecimal) that is 
being inserted in the first location. 



Relocation code of the second word 
being changed (see column 6). 



The value that is being inserted in the 
next location. As many as 9 con- 
secutive words can be updated with 
one data record. A relocation code 
must precede each value specified, 
and a blank must separate a relocation 
code from a value. 



4-18 



Disk Maintenance Programs 
MODSF control records 

In D-mode, you can change any word in a program. You can also change the program 
header or any data headers in the program text. You must update the program length and 
the disk block count in the program header when you add code to the end of a program. 
You must also modify any data headers and indicator data words affected by your changes 
or additions. Be careful to change only the required information in headers. 



D-mode data 
control record 
format 



Card column 
1 through 4 



Contents 



Explanation 

Disk displacement (in hexadecimal) of 
the first word being changed with this 
data record. 



Blank 



6 through 9 

10 

11 through 14 

66 through 69 

70 through 72 
73 through 80 



Blank 



Reserved 
Not used 



The value (in hexadecimal) that is 
being inserted in the location 
specified by columns 1 through 4. 



The next value that is being inserted 
in the next location. As many as 
13 consecutive words can be updated 
with one data control record. Each 
value specified must be separated 
from the next with a blank. 



*END patch 
control record 



All MODSF jobs must end with a MODSF 
ates MODSF execution and passes control 



terminator record (*END). This record termin- 
the the supervisor. 



*END control 
record format 



Card column 
1 through 4 

5 through 72 
73 through 80 



Contents 

*END 

Reserved 
Not used 



Explanation 

These characters signify the end 
of input for MODSF. 
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MODSF Example 

This example illustrates how to change three instructions to NOP instructions. The fol- 
lowing data is used to make the changes: 

• The name of the program is FADD. 

• The instruction addresses (from an assembly listing) are 001 B, 001 C, and 001 D 
(hexadecimal). 

• The values that are compared with the contents at these locations are C900, D839, and 
18D0, respectively. 

• The instructions are all changed to 1000. 

• The addressing mode is P. 

• One P-mode patch data record is used. 

• The modification level is 9. 

The coding sequence for making these changes is: 



1 5 10 15 20 25 30 35 40 45 50 55 60 65 72 


// JOB 










































IL X£Q HQ1)$E _ 












I 






























#220 2£9 M>» tl£* 


t V 0^ 


<B C9$& 0</)i 


f -CJ)6 


ll_ 


£ 


l 


D_ 


L&Pt 




._. 




-- 












Hid A 1M6 A ll&£ 


A lMl . 












MAD 












































- ----- - ----- 










































When execution is complete, the following messages are printed on the principal printer: 

MODIFICATIONS MADE The changes are made and did not expand the program. 

SUCCESSFUL COMPLETION This message is printed when the *END record is read 

and the program is not expanded. 

DFCNV 

The Disk Data File Conversion (DFCNV) mainline program converts 1 130 FORTRAN and/ 
or commercial subroutine package (1 130-SE-25X) disk data files to disk files acceptable 
to 1 130 RPG. The program operates in a minimum 8K core DM2 system and uses DISK1 
and the system device subroutines for the principal input device and principal printer. 

DFCNV accepts all FORTRAN and commercial subroutine package (CSP) disk data for- 
mats for conversion to acceptable RPG disk data format. FORTRAN or CSP input to 
DFCNV can be a disk file created with or without 2-word integers, or a deck of cards 
produced by a DUP *DUMPDATA operation. 

Prior to executing DFCNV, use a DUP *STOREDATA or *DFILE operation to reserve 
an output file in the user or fixed area and to enter its file name in LET or FLET. The 
DFCNV output file can be defined on the same disk as the input file or on a cartridge 
residing on another drive. DFCNV converts one input file to one output file ; subsequent 
DFCNV program executions must be performed to convert more than one file. 

RPG programs can process the converted files sequentially or randomly, but not as in- 
dexed sequential access method (ISAM) files. 

Note. The disk file protection indicators $FPAD-$FPAD+4 in COMMA are modified 
during the conversion portion of DFCNV. These modified indicators must be restored 
prior to further monitor processing if unforseen problems, such as accidentally pressing 
IMM STOP, cause abnormal ending of DFCNV. Normally, these indicators are restored 
by DFCNV after a successful file conversion. 
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The DFCNV program is called for execution with a monitor XEQ control record: 



1 5 10 15 20 25 30 35 40 45 50 


77 


X£fl 




DFCNV 
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file description 
control record 



DFCNV Control Records 

Three types of control records are required by the conversion program: 

• File description 

• Field specification 

• End-of-file 

A file description control record is required and must immediately follow the XEQ con- 
trol record. Only one file description record is used. A typical input card deck for the con- 
version program is: 



End of file card 




Field specification card 



_ J «1 File description card 
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file description 
control record 
format 



The file description control record contains the following information. 

Card column Contents Explanation 

1 through 5 Name The file name'(left-justif ied) of the 

file whose data is being converted. 
This field is ignored if card input is 
specified in column 31. 



6 


Btank 


7 through 1 1 


RPG name 


12 


Blank 


13 through 17 


Number of 




input records 


18 


Blank 


19 through 21 


Input-file 




record size, 




in words 


22 


Blank 


23 through 25 


RPG file 




record size. 




in characters 


26 


Blank 


27 


Sor E 


28 


Blank 


29 


1 or blank 


30 


Blank 


31 


C or blank 


32 


Blank 


33 


W or blank 



The file name (left-justified) of the 
file where the RPG data is to be placed. 



A right-justified decimal number with 
leading zeros or blanks and in the 
range 1 through 32767. 



A right-justified decimal number with 
leading zeros or blanks and in the 
range 1 through 320. 



A right-justified decimal number with 
leading zeros or blanks and in the 
range 1 through 640. 



S indicates standard precision. 
E indicates extended precision. 



1 indicates one-word integers are 
used. 



C indicates input from cards. 

Blank indicates that input is from disk. 



W indicates that an object time 
warning message is to be printed if 
a real number (see "R-Field Type" in 
Appendix J) is out of range upon 
conversion. 

Blank indicates that the object time 
warning message is not printed. 



34 through 71 


Blanks 


72 


P 


73 through 80 


Not used 



This character identifies this record as 
a file description record. 
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computing DFCNV file sizes 

Name. Use the exact name of the FORTRAN or CSP file that is being converted. 

RPG name. The RPG file name cannot contain any special characters, although the input 
file name can contain the character $. DFCNV does not check the RPG file name for $. 

Both the input and RPG file sizes are calculated from the information that you specify 
in the file description control record. These computed sizes are checked against their 
corresponding LET or FLET entries for correct size. The following formulas are used 
to calculate the input and output file sizes. 

1. Compute the number of words (L) in a record: 

C_ 

2 



3. 



L = 



where 

C is the record size in characters. Round the answer to the next higher number 
if the answer has a remainder. 

Compute the number of records (TV) that can be contained in one sector: 

where 

L is the length in words of each record computed in Step 1, and 320 is the 
number of words in a sector. Disregard the remainder, if any. 

Compute the input file size (I) in sectors: 

N 
where 

R is the number of records in the file, and N is the number of records per 
sector computed in Step 2. Round the answer to the next higher number if 
the answer has a remainder. 

Compute the output file size (O) in sectors: 
R+l 



= 



N 



where 



R is the number of records in the file, and N is the number of records per 
sector computed in Step 2. Round the answer to the next higher number if 
the answer has a remainder. 

These are the same formulas that you use to calculate record and file sizes of sequentially 
organized files, see "File Processing" in Chapter 6. 
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field specification 
control record 



The second required control record, field specification, describes the RPG fields for the 
converted data. Descriptions and examples of each field type supported by the program 
are in Appendix J. 

Caution: DFCNV does not check data format; therefore, you must know in detail the 
format of the fields of your FORTRAN or CSP input file. 

You can use as many complete field specifications on a field specification control record 
as can be placed in columns 1 through 71. Column 72 of each record must contain an S. 
Field specifications must be placed on the control records in the same order as the cor- 
responding fields of the input record. Each field specification must be separated from 
the next with a comma. Blanks embedded in specifications or blanks between specifica- 
tions are not allowed. The following is an example of a field specification control record: 



1 5 10 15 20 25 30 35 40 45 50 55 60 65 72 
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repeat specification 
option 



optional control 
record 



Selected field conversion can be done by using the X-field type. See Appendix J for a 
description of this field type. Data can be rearranged and field size can be modified with 
the m term of field types. When data is rearranged or fields are expanded, you must pre- 
vent data overlay in the converted field. 

Identical fields that are sequentially repeated can be specified with only one field specifi- 
cation for any field type except the X-field type. You specify the repeat option by im- 
mediately following the specification being repeated with the character R and the total 
number of identical fields. Each repeat field begins in the first vacant output column after 
the previous field; that is, columns are not skipped when the repeat specification is used. 

For example, the following field specification describes three integer fields, the first 
beginning in column 15 of the RPG record. Each field is packed and is five characters long 
with 2 places to the right of the decimal point: 

15-I5.2(P)R3 

The 3 resulting output fields start in the eighth word of the output record as: 

Word: 8 9 10 11 12 

Contents: XX X0 0FXY Y00F ZZZ0 0F40 

where 

XXX, YYY, and ZZZ represent the three integer fields. 

When any F- field type conversions are specified on the field specification control record, 
an optional control record is required. This control record must contain the 40 character 
translation table for CSP A3 format and the character A in column 72. This control record 
immediately precedes the first field specification control record that specifies F-field 
type conversion. Only one conversion table is allowed per file; if more than one is in- 
cluded in the control records, the additional tables are ignored. The conversion table 
must correspond to the original table used to convert to CSP A3 format. 
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Paper Tape Utility Program 
PTUTL 

The third required control record for DFCNV is the end-of-file control record. All other 
DFCNV control records must precede the end-of-file (/*) control record. 

DFCNV Example 

This example illustrates how to convert the FORTRAN file named FORFL to an RPG 
file named RPGFL. The FORTRAN file contains 1,000 records, each 10 words long. 
The file is standard precision with one-word integers. One such FORTRAN record is as 
follows: 



Word: 
Content: 


1 

3A7E 


2 
D64B 


3 
40D5 


4 
D540 


5 
D4C1 


6 
BCOO 


7 
0080 


Word: 
Content: 


8 
03C8 


9 
COOO 


10 
0083 











The RPG file consists of records 40 characters long. The coding for converting the 
FORTRAN file is: 



1 5 10 15 20 25 30 35 40 65 72 


// JOB i 




// XEQ DFCNV 1 




FOWL RPGFL fcl£_& M ~$4fr ~S 1 


z> 


l-23.f,S-14.U12-Z7.5>Zl-B8.Z->54,-28.Z ~l f 


5 


ll _ __ _ L 




|. ( T 





After conversion, the RPG record that corresponds to the previous FORTRAN record is 



F3F1 



i on disk as 
















Word: 
Content: 


1 
F0F0 


2 
D440 


3 
F9F6 


4 
F8F0 


5 
4040 


6 
40F0 


7 
F0F5 


Word: 
Content: 


9 
F2D5 


10 
4040 


11 
D4C1 


12 
D540 


13 
40D5 


14 
D64B 


15 
40F0 


Word: 
Content: 


17 
F9F7 


18 
F4F0 


19 
F040 


20 
4040 









16 
F1F4 



PTUTL 

The Paper Tape Utility (PTUTL) mainline program accepts input from the keyboard or 
the 1 134 Paper Tape Reader and provides output on the console printer and/or the 1055 
Paper Tape Punch. You can make changes and/or additions to FORTRAN and assembler 
language source records and monitor control records with PTUTL. 

The PTUTL program is called for execution with a monitor XEQ control record: 



1 5 10 15 20 25 30 35 40 45 50 


LI XE 


Q 




P 
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L 
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The PTUTL program is also available as an IBM-supplied stand-alone program on tape 
BP17. The operating procedure for both PTUTL programs is in Figure 9-12, Chapter 9. 
An example of using this program is also included under "Stand-alone Paper Tape Utility 
Program (PTUTL)" in Chapter 9. 
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Chapter 5. Control Records 



You use control records to specify operations performed by the Disk Monitor 2 System. 
The use of these control records provides for stacked jobs with a minimum of operator 
intervention. The order of control records, source statements, and data in stacked jobs 
is described under "Stacked Input Arrangement" in Chapter 6. 

The control records in this chapter are grouped according to the monitor program that 
they are associated with. These groups are: 

• Monitor control records 

• Supervisor control records 

• DUP control records 

• Assembler control records 

• FORTRAN control records 

• RPG control records 

Each section of this chapter consists of a general function description, the order in which 
the control records are placed in the input stream, general coding considerations, and a 
description of each control record. 

Other less frequently used control records are included in Chapter 4, "Monitor System 
Library." The control records described in Chapter 4 apply to specific, infrequently per- 
formed procedures. 

Note. The System 2501/1442 conversion routine interprets the following character punches 
as equal: ' and @, + and &, = and #, ) and <, ( and %. 

The characters ', +, =, ), and ( are printed. The conversion routine is used during analysis 
of control records, source input for language processors, and DUP input/output data. 
This routine provides uniformity for 024 and 029 prepared input. 

MONITOR CONTROL RECORDS 

functions The monitor control records described in this section define control and load functions 

that are performed by the monitor system. These functions are: 

• Initializing jobs 

• Loading the assembler, the language compilers, or the Disk Utility Program into core 
for execution 

• Starting the execution of your programs 

• Printing comments during monitor system operations 

• Changing print devices during monitor system operations 

The JOB monitor control record defines and initializes the beginning of jobs. Other 
monitor control records are placed behind the JOB control record to specify the operations 
to be performed during a job. A detailed description of the order of control records, pro- 
gram statements, and data files in the input stream is in Chapter 6 under "Stacked Input 
Arrangement." 

coding Information must be coded in the indicated card columns in monitor control record for- 

mats. Columns 1 and 2 always contain slashes (//). The character \/> and reserved card 
columns indicate that the columns must be blank. You can replace card columns shown as 
not used with comments. 
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general function 



//JOB 

A JOB monitor control record defines the start of a new job. This control record causes 
the supervisor to initialize a job, which includes: 

• The initialization of parameters in the core communications area (COMMA) and in 
sector @DCOM 

• The setting of the temporary mode indicator if the job is executed in temporary mode 

• The definition of the cartridges to be used during the current job 

• The definition of the cartridge that contains the core image buffer used for the current 
job 

• The definition of the cartridge that contains working storage used during the current 
job 

• The definition of the cartridge that contains the unformatted I/O disk buffer area for 
use during the current FORTRAN job 

• The definition of a new heading printed on each page printed by the principal print 
device 

• The reading of EQUAT supervisor control records into the supervisor control record 
area (SCRA) 



format 



Card column 


Contents 


Explanation 


1 through 6 


imoB 




7 


Reserved 




8 


Temporary mode 


T or blank. A T indicates that 




indicator 


temporary mode is desired for 
this job. 


9 through 10 


Reserved 




11 through 14 


First ID 


This is the ID of the master earth 
(logical drive 0). 


15 


Reserved 




16 through 19 


Second ID 


This is the ID of the cartridge on 
logical drive 1 . 


20 


Reserved 




21 through 24 


Third ID 


This is the ID of the cartridge on 
logical drive 2. 


25 


Reserved 




26 through 29 


Fourth ID 


This is the ID of the cartridge on 
logical drive 3. 


30 


Reserved 




31 through 34 


Fifth ID 


This is the ID of the cartridge on 
logical drive 4. 


35 


Reserved 




36 through 39 


CIB ID 


This is the ID of the cartridge con 
taining the CIB to be used during 
this job. 
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Card column 

40 

41 through 44 



45 

46 through 49 

50 

51 through 58 

59 

60 and 61 

62 through 80 



Contents 

Reserved 

Working 
storage ID 



Reserved 

Unformatted disk 
I/O ID 



Reserved 
Date, name, etc. 

Not used 

EQUAT 
record count 

Not used 



Explanation 



This is the ID of the cartridge con- 
taining the working storage to be 
used by the monitor during this job. 
See *FILES, for details on working 
storage for your programs. 



This is the ID of the cartridge con- 
taining the unformatted disk I/O 
area to be used during this job. 



This information is printed at the top 
of every page of the listing on the 
principal print device during this job. 



This number specifies how many 
EQUAT records follow this JOB 
record. 



Control Records 5-3 



Monitor Control Records 
//JOB 

additional field Temporary Mode Indicator. A T in column 8 causes all programs and/or data files stored 

information by DUP in the user area during the current job to be deleted from the user area when the 

next // JOB control record is read. Temporary mode places restrictions on some of the 

DUP operations as shown in the followng chart: 

DUP operations Restrictions 

DUMP None 

DUMPDATA, DUMPDATAbE None 

STORE None 

STORECI To UA only 

STOREDATA, STOREDATAE To UA and WS only 

STOREDATACI To U A only 

STOREMOD Not allowed 

DUMPLET None 

DUMPFLET None 

DWADR Not allowed 

DELETE Not allowed 

DEFINE FIXED AREA Not allowed 

DEFINE VOID ASSEMBLER Notallowed 

DEFINE VOID FORTRAN Notallowed 

DEFINE VOID RPG Notallowed 

DEFINE VOID COBOL Notallowed 

DF1LE To UA only 

MACRO UPDATE Not allowed 

First ID through Fifth ID. These IDs define the cartridges that are used during the current 
job. These cartridges can be mounted on the physical disk drives in any order; the order of 
the IDs on the JOB control record specifies the logical assignments for the cartridges. 
The first through the fifth IDs correspond to logical drives through 4, and must be speci- 
fied consecutively. When 3 drives are being used, only the first through the third IDs are 
specified. 

The cartridge-related entries of the core communications area (COMMA) and sector @DCOM 
are filled according to the logical order specified by the JOB control record. The first ID can 
be left blank, in which case the master cartridge for the last JOB will also be the master 
cartridge for the current JOB. A cartridge ID is not required when only one cartridge is used 
during the current JOB. In this case, the master cartridge from the last JOB or that was 
specified during a cold start is used. 

The first cartridge ID can be used to define a system cartridge that is different from the one 
currently being used as logical drive 0. The specified cartridge must be the same monitor 
modification level as the one it replaces. 

CIB ID. This is the ID of the cartridge that contains the core image buffer to be used 
during the current job. The CIB ID is optional. If this ID is omitted, the CIB on the master 
cartridge is assumed by the system. If the CIB on the specified cartridge has been deleted, 
the CIB on the master cartridge is assumed for the current job. Core image programs are 
built faster when the specified CIB is on a cartridge other than the master cartridge. 

Working Storage ID. This field specifies the cartridge that contains the working storage 
thatjs used during the current job. The working storage ID is optional. If this ID is 
omitted, working storage on the master cartridge is used except when otherwise specified 
on DUP control records (see "DUP Control Records" in this chapter). 

Core image programs are built faster when the specified working storage is on a cartridge 
other than the master cartridge. They can be built even faster when the IBM system area, 
the CIB, and working storage are all on separate cartridges. 
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Monitor Control Records 
//JOB 
// ASM 



Programs are assembled or compiled faster when system working storage is on another car- 
tridge. (See "*FILES" under "Supervisor Control Records" in this chapter for specifying 
working storage for use by your programs.) 

Unformatted Disk I/O ID. This field specifies the'cartridge that contains the unformatted 
I/O disk buffer area to be used during the current job. The unformatted disk I/O ID is 
specified when only unformatted I/O (data file named $$$$$) is used during execution 
of a FORTRAN program. (See "Initializing $$$$$ Data Files for Use With FORTRAN 
Unformatted I/O" in Chapter 6 for more information.) 

Date, Name, Etc. This information is printed on the top of each page printed by monitor 
system programs, except RPG. This causes a skip to channel 1 on the 1 132 or 1403 printer 
or 5 consecutive carriage returns on the console printer. The page count is reset to one, 
and the current page heading is replaced with whatever appears in columns 5 1 through 
58 of the JOB control record. HDNG statements (assembler language) and ** records 
(FORTRAN header control record) cause additional information to be printed. 

EQUAT Record Count. This parameter specifies the number of EQUAT supervisor con- 
trol records (if any) that follow the JOB control record. These records are read and 
written in the supervisor control record area (SCRA). 
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(^ This is all that is necessary for a one-drive system. 

^p This specifies temporary mode for the current job, a heading 
for each printed page, and that 2 EQUAT control records 
follow. 

^ This specifies disk IDs 1004, 1005, and 1006 on logical drives 
0, 1, and 2, respectively, and that 1005 contains the CIB and 
1006 contains working storage for this job. 
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general function 



format 



//ASM 

This control record causes the supervisor to read into core storage and transfer control to 
the assembler. Any assembler control records used and the source program statements to 
be assembled must follow an ASM control record. Monitor comments control records 
(// *) cannot follow an ASM control record. 



Card column 
1 through 6 
7 through 80 



Contents 

//ttASM 
Not used 



Explanation 
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Monitor Control Records 
// FOR // RPG 

// COBOL // DUP 



general function 



//FOR 

This control record causes the supervisor to read into core storage and transfer control to 
the FORTRAN compiler. Any FORTRAN control records used and the source statements 
being compiled must follow a FOR control record. Monitor comments control records 
(// *) cannot follow this control record. 



format 



Card column 


Contents 


Explanation 


1 through 6 


//tfFOR 




7 through 80 


Mot used 





general function 



//RPG 

This control record causes the supervisor to read into core storage and transfer control to 
the RPG compiler. RPG control cards and specification statements must follow an 
RPG control record. Monitor comments control records (// *) cannot follow an RPG 
control record. 



format 



Card column 
1 through 6 
7 through 80 



Contents 

/VtfRPG 
Not used 



Explanation 



general function 



// COBOL 

This control record causes the supervisor to read into core storage and transfer control to 
the COBOL compiler (a program product). Monitor comments (// *) control records 
cannot follow a COBOL control record. 



format 



Card column 
1 through 8 
9 through 80 



Contents 
//liCOBOL 
Not used 



Explanation 



general function 



format 



//DUP 

This control record causes the supervisor to read into core storage and transfer control to 
the control portion of the Disk Utility Program (DUP). A DUP control record (see "DUP 
Control Records" in this chapter) must follow this control record. Only one // DUP moni- 
tor control record is required to process any number of DUP control records. Monitor 
comments control records (// *) can follow the DUP monitor control record. 



Card column 


•Contents 


Explanation 


1 through 6 


//bDUP 




7 through 80 


Not used 
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Monitor Control Records 
//XEQ 



general function 



format 



// XEQ 

This control record causes the supervisor to initialize for execution of a core load. 

Comments control records (// *) can follow an XEQ control record if supervisor control 
records do not follow and if data is not entered through the principal input device 
during execution. The comments control records are printed after execution is complete. 



Card column 


Contents 


Explanation 


1 through 6 


//tfXEQ 




7 


Reserved 




8 through 12 


Name 


This is the ni 



13 
14 

15 

16 and 17 

18 
19 

20 

21 through 24 



25 
26 

27 
28 

29 through 80 



Reserved 

Core map 
indicator 



Reserved 
Count 

Reserved 

Disk I/O 

subroutine 

indicator 

Reserved 
Cartridge ID 



Not used 

LOCAL-call- 
LOCAL indicator 



Not used 

Special ILS 
indicator 



DSF program or DC I program to be 
executed. 



L or blank. An L indicates that a core 
map is to be printed for this and all 
DSF programs linked to during this 
execution. 



A decimal number (right-justified) 
that indicates the number of 
supervisor control records that follow. 



This specifies the disk I/O subroutine 
to be loaded into core by the core 
image loader for use by the core load 
during execution. 



The ID of the cartridge that contains 
the mainline program in its working 
storage (valid only if a name is not 
specified in columns 8 through 12; 
blanks in this field indicate that the 
program is in system working storage 
when a name is not specified in 
columns 8 through 12). 



A punch in this column enables a 
LOCAL subroutine to call another 
LOCAL. 



A punch in this column indicates that 
ILSs for this core load should be 
chosen from the special I LSs. 



Not used 



Note: When column 14 is blank, no warning is given if a file is truncated while a 
FORTRAN core load is being built. 
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Monitor Control Records 
//XEQ 

additional field Name. This is the name of the program, stored in the user area or fixed area, that is execu- 

information ted. 

When this field is omitted, the program to be executed is assumed to be stored in system 
working storage, or in working storage on the cartridge specified in columns 21 through 
24 of this control record. 

Core Map Indicator. An L punched in column 14 of this control record causes the printing 
of a core map for the program being executed and for all programs linked to during 
execution (see "Reading a Core Map and a File Map" in Chapter 6 for examples of core 
maps). 

Count. A right-justified decimal number in columns 16 and 17 indicates the number of 
supervisor control records (LOCAL, NOCAL, FILES, and G2250) that follow this control 
record. 

Disk If O Subroutine Indicator. A decimal number in column 19 identifies the disk I/O 
subroutine used by the core load during execution. 

Column 1 9 Disk I/O subrou tine 

blank or Z DISKZ 

or 1 DISK1 

N DISKN 

Any other character is invalid and causes execution to be bypassed. AH DSF programs that 
are linked to during execution must use the same disk I/O subroutine as the program that 
calls them. 

LOCAL-Call-LOCAL Indicator. A punch (any character) in column 26 provides for a 
LOCAL subroutine to call another LOCAL subroutine during execution, provided the 
restrictions listed under " LOCAL-Calls-a-LOC AL" in Chapter 6 are met. 

Special ILS Indicator. A punch (any character) in column 28 indicates that special interrupt 
level subroutines (ILSs named with an X before the number, as ILSX4) are used for this 
core load. If column 28 is blank, the standard set of ILSs is used. 

In addition to the functions of the standard ILSs, special ILSs at the beginning of their 
execution save the contents of index register 3 and set this register to point to the trans- 
fer vector. Special ILSs restore the original contents of index register 3 at the end of their 
execution. Because the special ILSs save and restore the contents of index register 3, 
you can use this register in your programs. 

Special ILSs require 5 more words of core storage per ILS than standard ILSs. The special 
ILSs for interrupt levels 2 and 4 are loaded, together with other subroutines, as part of 
the core load. You can write ILSs to replace any of the IBM-supplied ILSs, standard or 
special. 
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//XEQ Examples 



Monitor Control Records 
//XEQ 
// * (comments) 
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Q This specifies execution of the program stored in working 
storage on the master cartridge. 

G% This specifies that the named program (in the UA or WS) is 
to be executed, that two supervisor control records follow, 
that a LOCAL calls another LOCAL, and that the special 
1 LSs are to be used for this core load. 

£% This specifies the printing of a core map, and that the pro- 
gram stored in working storage on disk 1004 is to be 
exectued. 
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general function 



// * (Comments) 

This control record causes the alphameric comments contained on the // * control record 
to be printed on the principal print device. The information is read and printed, and the 
next control record is read from the input stream. Comments control records can be used 
preceding a PAUS monitor control record to instruct the operator as to what he is to do 
during the pause in monitor system operations. 

When the console printer is used to print monitor and supervisor control records as a 
result of a CPRNT monitor control record, comments control records are printed on the 
principal printer. 

Comments control records cannot immediately follow an ASM, RPG, FOR, or COBOL 
monitor control record. Comments control records can follow an XEQ control record if 
supervisor control records do not follow and if data is not entered from the principal input 
device during execution. 



format 



Card column 


Contents 


Explanation 


1 through 4 


ll\t>* 




5 through 80 


Comments 


Any alpham 
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Monitor Control Records 
// PAUS // TYP 

//TEND 



general function 



format 



// PAUS 

This control record causes the supervisor to pause at a WAIT instruction. Supervisor opera- 
tion continues when you press PROGRAM START on the console. This pause allows you 
to perform operator actions, such as add cards to the card reader, change satellite disk 
cartridges, or change paper tapes within a JOB stream. The status of the monitor system 
is not changed during a pause. 

Monitor comments control records (// *) preceding a PAUS control record can describe 
the operator actions performed during the pause. 



Card column 


Contents 


Explanation 


1 through 7 


//&PAUS 




8 through 80 


Mot used 





general function 



format 



//TYP 

This control record temporarily assigns the console keyboard as the principal input device. 
The keyboard replaces the card or paper tape reader as the principal input device until a 
TEND monitor control record is entered through the keyboard. 

The use of the keyboard as the principal input device for entering control records, program 
statements, and data is described under "Entering Jobs from the Console Keyboard" in 
Chapter 7. 



Card column 


Contents 


Explanation 


1 through 6 


//tiTYP 




7 through 80 


Not used 





general function 



format 



// TEND 

This control record reassigns the card or paper tape reader as the principal input device. 
The reassignment is to the device that was the principal device before the TYP monitor 
control record was read. 

A TEND control record can be entered only from the keyboard. 

Card column Contents Explanation 

1 through 7 //&TEND 

8 through 80 Not used 
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general function 



format 



Monitor Control Records 
// EJECT // CPRNT 
//CEND 



// EJECT 



This control record causes the 1403 Printer or 1 132 Printer, whichever is the principal 
print device, to skip to a new page and print the page header. When the console printer is 
assigned as the principal printer, or when a CPRNT monitor control record has been 
processed, 5 lines are skipped and the page header is printed. 



Card column 
1 through 8 
9 through 80 



Contents 

//ttEJECT 
Not used 



Explanation 



general function 



// CPRNT 

This control record causes monitor and supervisor control records that follow CPRNT to be 
printed on the console printer. All other control records and monitor comments control 
records are printed on the principal print device. 

An EJECT monitor control record read after a CPRNT affects the console printer rather 
than the principal print device. 

A CEND monitor control record is used to return the printing of monitor and supervisor 
control records to the principal print device. A system reload and/or the DEFINE VOID 
function of the Disk Utility Program (DUP) also restores the original principal print 
device. 



format 



Card column 
1 through 8 
9 through 80 



Contents 

//BCPRNT 
Not used 



Explanation 



general function 
format 



// CEND 

This control record restores the printing device that was the principal printer before a 
CPRNT monitor control record was processed. 



Card column 
1 through 7 
8 through 80 



Contents 

//ttCEND 
Not used 



Explanation 
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Supervisor Control Records 
how to code 



SUPERVISOR CONTROL RECORDS 



functions 



Supervisor control records are used by the core load builder to: 

• Provide for subroutine overlays during execution, *LOCAL 

• Include in the core load subroutines that are not called, *NOCAL 

• Equate disk storage data files defined in a mainline program during compilation or 
assembly to specific files that are stored on disk, *FILES 

• Provide graphic display capabilities, *G2250 

• Substitute a subroutine with another subroutine, *EQUAT 

LOCAL, NOCAL, FILES, and G2250 supervisor control records are placed in the input 
stream following an XEQ monitor control record, which names a mainline program stored 
in disk system format, or following a STORECI DUP control record. 




f 



G2250 



£ 



/*R 



LES 



•NOCAL 



♦LOCAL 



•STORECI 04 



In either case, the control records are written on disk in the supervisor control record 
area (SCRA), from which the core load builder reads them for processing during con- 
struction of a core load. 

Up to 99 supervisor control records can follow an XEQ or STORECI control record. 
Supervisor control records do not have to be placed in any special order by type; how- 
ever, all the control records of one type must be kept together. 

EQUAT control records are placed after a JOB monitor control record and maintain 
their function until the next JOB control record is read from the input stream. 



L 



•EQUAT 



// JOB 01 



coding 



The supervisor reads EQUAT control records and writes them into the SCRA, from which 
the core load builder reads them for processing during construction of a core load. 

An asterisk (*) is coded in column one of all supervisor control records. The rest of the 
information specified in supervisor control records, except the G2250 control record, is 
coded continuously; that is, blanks (referred to as embedded blanks) cannot be coded 
within the characters in a record. Information specified in the G2250 control record must 
be coded in the fields indicated in the G2250 format description in this section. 

The program name that is coded in all types of supervisor control records can be either 
the primary entry point name or any secondary entry point name in the program. 
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general function 



format 



Supervisor Control Records 
*LOCAL 



*LOCAL 

This control record specifies the names of LOCAL (load-on-call) subroutines that are to 

be read, when called during execution, into the LOCAL overlay area of a core load. 

(See "Rules for LOCAL and NOCAL Usage" and "LOCAL-Calls-a-LOCAL" in Chapter 6.) 
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Note: Embedded blanks are not allowed in a LOCAL control record. 



additional field 
information 



continuation 
records 



continuation 
example 



MAIN1. You replace MAIN1 with the name of the DSF mainline program that is already 
stored in the user area on disk. 

,SUB1,SUB2, . . . SUBn. You replace SUB1 through SUBn with the names of the sub- 
routines that are used as LOCALs with the specified mainline program. 

The specification of LOCAL subroutines can be continued from one LOCAL control 
record to another by placing a comma after the last subroutine specified on each LOCAL 
control record, except the last. The name of the mainline program is not included on the 
continuation control records. 
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The results would be the same if the control records were: 
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Supervisor Control Records 
•LOCAL 
•NOCAL 



coding for 
linked programs 

example 



All LOCAL subroutines that are used by each mainline program during execution must be 
specified on LOCAL control records following the XEQ monitor control record that 
starts execution. 

Separate LOCAL control records must be used for each mainline program that calls 
LOCAL subroutines during execution. 
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mainline program in 
working storage 



example 



MAIN2. You replace MAIN2 with the name of a mainline program that is called by the 
program represented by MAIN1. 

When the mainline program is to be executed from working storage, the name of the 
mainline program is omitted from LOCAL control records. This same format is used when 
LOCAL control records are specified with the Disk Utility Program (DUP) STORECI 
operation. 
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general function 



format 
examples 



*NOCAL 

This control record specifies the names of NOCAL (load-although-not-called) subroutines 
that are to be associated with a specified mainline program. NOCAL subroutines are in- 
cluded: in the core load even though they are not called. (See "The Use of NOCALs" and 
"Rules for LOCAL and NOCAL Usage" in Chapter 6.) 

NOCAL control records are coded in the same format as LOCAL supervisor control 
records, except that *NOCAL is coded in place of *LOCAL. 
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In the first format example, the specified NOCAL subroutines are included in the core 
load built for the stored mainline program, MAIN1. In the second format example, the 
specified NOCAL subroutines are included in the core load built for a mainline program 
in working storage. See "*LOCAL" for information about continuing a control record 
to another, and coding for linking between programs. 
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general function 



format 



Supervisor Control Records 
*FILES 

*FILES 

This control record equates the file numbers specified in FORTRAN DEFINE FILE state- 
ments or in assembler FILE statements to the names of data files that are stored in the 
user area and fixed area, or in working storage other than system working storage. 

All the data files in the user area or fixed area that are used by core loads during execution 
must be defined on FILES control records following the XEQ monitor control record 
that starts execution. All files thus defined are available for use by each core load in the 
execution. 

Data files that are equated for a program that is stored in disk core image (DCI) format 
must be stored in fixed areas for successful execution of the program. (See "Disadvan- 
tages of Storing a Program in Disk Core Image Format" in Chapter 6.) When data files 
are equated for a DCI program and are stored on other cartridges, the data files must be 
stored in the same location on the other cartridges as they were when the DCI program 
was stored for successful program execution. Also, the other cartridges must be on the 
same logical drives as they were when the DCI program was stored. These restrictions are 
necessary because the core load builder places in the define file table in the DCI program 
header an absolute sector address, including the drive code, for each equated data file. 

No more than 159 data files can be equated for one execution. 
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Note: Embedded blanks are not allowed in a Fl LES control record. 



additional field 
information 



continuation 
records 



FILE1 Through FILEn. You replace these with the file numbers that are specified in the 
FORTRAN DEFINE FILE statements or assembler FILE statements in your program. 

NAME1 Through NAMEn. You replace these with the names of the data files that are 
stored on disk. Names can be omitted as in the third * FILES record in the format. When 
omitted, 2 commas are required in the control record format, and the file is placed in 
working storage on the specified disk. 

CAR1 Through CARn. These are the IDs of the cartridges on which the respective data 
files are stored. The cartridge ID can be omitted. When omitted, the corresponding data 
file is assumed to be on the cartridge on the lowest logical drive. 

The specification of data files can be continued from one *FILES control record to 
another by placing a comma after the last right parenthesis on each *FILES control record, 
except the last. 



continuation 
example 
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Supervisor Control Records 
•G2250 



general function 



•G2250 

This control record causes the graphic subroutine package (GSP) communication module 
(GCOM) to be included in a core load immediately following the mainline program. Other 
supporting subroutines are also loaded into this area depending on the parameters speci- 
fied in the *G2250 control record. (See the publication IBM 1130/2250 Graphic Sub- 
routine Package for Basic FORTRAN IV, GC27-6934, for instructions on properly 
loading the mainline program, and for information concerning the use of GSP subroutines 
as LOCALs and core storage layout requirements. 



format 



Card column 
1 through 11 



Contents Explanation 

*G2250mlmne Specifies that graphic support is 

required for the named mainline 
program. You replace mlmne with 
the name of the program. If the 
program being executed is in 
working storage, the program name 
is omitted. 



12 
13 



Reserved 

U, blank, or N 



U indicates the character stroke 
subroutine containing upper case, 
numeric, and special characters is 
loaded. 

Blank indicates the character stroke 
subroutine containing upper case, 
lower case, numeric, and special 
characters is loaded. 

N indicates that a character stroke 
subroutine is not loaded. 



14 
15 



Reserved 
Blank or N 



Blank indicates the scissoring 
subroutine is loaded. 

N indicates the scissoring subroutine 
is not loaded. 



16 
17 



Reserved 
Blank or N 



Blank indicates the ICA area 
expansion subroutine is loaded. 

N indicates the ICA area expansion 
subroutine is not loaded. 



18 
19 



Reserved 
Blank or N 



Blank indicates the index controlled 
entity subroutine is loaded. 

N indicates the index controlled 
entity subroutine is not loaded. 



20 
21 



Reserved 
Blank or N 



Blank indicates the level controlled 
direct entry subroutine is loaded. 

N indicates the level controlled 
direct entry subroutine is not loaded. 



22 through 80 



Not used 
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Supervisor Control Records 
*G2250 
*EQUAT 



examples 
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general function 



format 



*EQUAT 

With this control record, you specify the substitution of subroutines during the building of 
a core load. This control record can also substitute symbolic names in assembler language 
DSA statements (limited to assembler programs). The EQUAT control record cannot be 
used to substitute subroutines for RPG programs. 

More than one EQUAT control record can be used if the exact number of records used 
is punched in columns 60 and 61 of the preceding // JOB monitor control record. (Infor- 
mation about using EQUAT control records is under "Use of the EQUAT Record" in 
Chapter 6.) 
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additional field 
information 



SUB1, SUBm represents the name of the old subroutine. SUB2, SUBn represents the name 
of the new subroutine. SUB2 is substituted for SUB1. This same order of substitution is 
used when substituting symbolic names for DSA statements. 



example 



Note. The maximum number of pairs of subroutines that can be specified is 25. 

During the following functions, the substitution of SUB2 for SUB1 is accomplished in the 
execution of the mainline program from working storage and the storing of MAIN. 
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DUP Control Records 
how to code 



DUP CONTROL RECORDS 

functions 



DUP control records arc used to specify operations to be performed by the Disk Utility 
Program. The types of operations that DUP control records specify are: 

• Dumping and deleting programs and data files from disk 

• Storing programs and data files on disk 

• Printing the contents of the fixed location equivalence table (FLET) and the location 
equivalence table (LET) 

• Rewriting sector addresses in working storage 

• Defining a fixed area on disk 

• Deleting monitor system programs from disk 

• Allocating disk space for data files and macro libraries 

• Calling the Macro Update Program (MUP) into operation 

DUP control records are placed in the input stream after a DUP monitor control record 
(// DUP) as follows: 



//JOB 



Data cards 



Source program 



Assembler control records 




coding 



DUP control records generally follow the format described in the following text. All fields 
in the control record, except the count field, are left-justified and, unless otherwise 
stated, are required. Additional field information is included, when necessary, in the 
description of the specific control record. 
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DUP Control Records 
how to code 

Column 1. Column 1 always contains an asterisk (*). 

Operation Field. Code the name of the desired DUP operation in columns 2 through 12 
(2 through 21 for the DEFINE operation, and 2 through 13 for the MACRO UPDATE 
operation). Columns 2 through 6 identify the basic operation (STOi^DATACI); 
columns 7 through 12 (or 21) identify the extended operation (STOREZX4 TACT). Where 
shown in the control record format, a blank character (#) is required within or following 
the operation name. 

From and To Fields. Code the from symbol in columns 13 and 14; that is, the symbol 
specifying the disk area or I/O device from which information is to be obtained (the 
source). Code the to symbol in columns 17 and 18; that is, the symbol specifying the 
disk area or I/O device to which information is to be transferred (the destination). The 
valid from and to symbols are: 

Symbol Disk area or I/O device 



UA 


User area on disk 


FX 


Fixed area on disk 


ws 


Working storage on disk 


CD 


Card I/O device. If the 1 134 Paper Tape Reader is defined as the principal input 




device, CD is equivalent to PT. 


PT 


Paper tape 


PR 


Principal print device 



Note. The symbols UA, FX, and WS, when used, each specify an area on disk but do not identify 
the cartridge on which the area is found. 

Name Field. Code the name of the program, data file, or macro library involved in the 
specified operation in columns 21 through 25. The name that you specify in this field 
for a store operation is the name assigned to the program, data file, or macro library, and 
is used to generate or search for a LET or FLET entry. The name can consist of up to 5 
alphameric characters, and must be left-justified in the field. The first character must be 
alphabetic (A-Z, $, #, @), and blanks (embedded blanks) are not allowed between charac- 
ters of the name. 

When referencing a program or data file stored on disk, the specified name must be an 
exact duplicate of the LET or FLET entry. 

Count Field. The count coded in columns 27 through 30 is a right-justified decimal inte- 
ger. The function of the count field is defined in the individual control record formats 
for those operations that require it. 

From and To Cartridge ID Fields. Code the from cartridge ID in columns 31 through 34; 
that is, the ID of the cartridge that contains the disk area from which information is to 
be obtained. Code the to cartridge ID in columns 37 through 40; that is, the ID of the 
cartridge that contains the disk area to which information is to be transferred. 

Either or both of these cartridge IDs can be omitted. When a cartridge ID is omitted, and 
the corresponding from or to field (columns 13 and 14 or 17 and 18) is the user area or 
fixed area, a search is made of the LET (and FLET) on each cartridge specified in the 
current JOB monitor control record. The search starts with the cartridge on logical drive 
zero (the master cartridge) and continues through logical drive 4. If the from or to field 
(columns 13 and 14 or 17 and 18) is working storage, a default to system working 
storage is made when cartridge IDs are omitted. When a cartridge ID is specified, the 
LET (and FLET) only on the specified cartridge is searched, or working storage on the 
specified cartridge is used. 



Control Records 5-19 



DUP Control Records 
altering LET/ F LET 
summary of operations 



The use of the from and to cartridge IDs makes it possible for DUP (1) to transfer 
programs and data files from one cartridge to another without deleting them from the 
source cartridge, and (2) to process a program or data file even though the same name 
appears in the LET or FLET on more than one cartridge. 

Unused Columns. All columns indicated as reserved between column 2 and the last format 
field on each control record must be left blank. The columns between the last format field 
and column 80 are not used by DUP and are available for your remarks. 

Altering LET and FLET 

The 2 tables, location equivalence table (LET) and fixed location equivalence table (FLET), 
are directories to the contents of the user area and fixed area, respectively, on disk. You 
can alter the contents of these 2 tables through the use of DUP store and delete operations 
only. 

Before storing a program or data file, DUP searches LET and FLET for the name specified 
in the control record. When a cartridge is specified in the to cartridge ID field on the con- 
trol record, LET (and FLE^T) on only that disk is searched for the specified name. When a 
to cartridge ID is not specified, LET (and FLET) on all cartridges defined in the current 
JOB monitor control record is searched. If the specified name is not found in any LET or 
FLET, disk storage is allocated for the program or data file. The specified name is assigned 
to the program or data file and is used to generate a new entry in LET or FLET. 

When dumping or deleting a program or data file from the user area or fixed area, the 
name specified in the control record is searched for in LET and FLET in the same order 
as the search before a store operation. If the specified name is found, the program or data 
file is dumped or deleted as specified in the control record. 

Information Transfer and Format Conversion 

Figure 5-1 summarizes the DUP operations that transfer information from one device or 
disk area to another device or disk area. In addition, the format conversions that are made 
during the transfer of information are shown. The different formats are described in 
Appendix I. The acronyms used in Figure 5-1 for the various formats are: 



Acronym 


Format 


DSF 


Disk system format 


DDF 


Disk data format 


DCI 


Disk core image format 


CDS 


Card system format 


CDD 


Card data format 


CDC 


Card core image format 


PTS 


Paper tape system format 


PTD 


Paper tape data format 


PTC 


Paper tape core image format 


PRD 


Printer data format 


NCF 


Name code format 



You should pay particular attention to Figure 5-1 when performing dump, store, and 
delete operations, such as, dumping to cards and later using the cards to store the infor- 
mation back on the disk. Note that more than one way to dump and store data and por- 
grams is allowed, such as dumping a program to cards and later storing it back to disk. 
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From Am 


To Area Symbols, with Formats 


Formats 


UA 


FX 


WS 


CD 


PT 


PR 


DSF 


DDF 


DCI 


DDF 


DCI 


DSF 


DDF 


DCI 


CDS 


CDD 


CDC 


PTS 


PTD 


PTC 


PRO 


UA 


DSF 












DUMP 


DUMPDATA 




DUMP 


DUMPOATA 




DUMP 


DUMPDATA 




DUMP 
DUMPDATA 


DDF 














DUMP 
DUMPDATA 






DUMP 
DUMPDATA 






DUMP 
DUMPDATA 




DUMP 
DUMPDATA 


DCI 














DUMPDATA 


DUMP 




DUMPDATA 


DUMP 




DUMPDATA 


DUMP 


DUMP 
DUMPDATA 


FX 


DDF 














DUMP 
DUMPDATA 






DUMP 
DUMPDATA 






DUMP 
DUMPDATA 




DUMP 
DUMPDATA 


DCI 














DUMPDATA 


DUMP 




DUMPDATA 


DUMP 




DUMPDATA 


DUMP 


DUMP 
DUMPDATA 


WS 


DSF 


STORE 
STOREMOD 


STOREDATA 


STORECI 


STOREDATA 


STORECI 








DUMP 


DUMPDATA 




DUMP 


DUMPDATA 




DUMP 
DUMPDATA 


DDF 




STOREMOD 
STOREDATA 




STOREMOD 
STOREDATA 












DUMP 
DUMPDATA 






DUMP 
DUMPDATA 




DUMP 
DUMPDATA 


DCI 




STOREDATA 


STOREMOD 
STOREDATACI 


STOREDATA 


STOREMOD 
STOREDATACI 










DUMPDATA 


DUMP 




DUMPDATA 


DUMP 


DUMP 
DUMPDATA 


CO 


CDS 


STORE 


STOREDATA 


STORECI 


STOREDATA 


STORECI 


STORE 


STOREDATA 


















CDD 




STOREDATA 


STOREDATACI 


STOREDATA 


STOREDATACI 




STOREDATA 


STOREDATACI 
















CDC 




STOREDATA 


STOREDATACI 


STOREDATA 


STOREDATACI 




STOREDATA 


STOREDATACI 
















PT 


PTS 


STORE 


STOREDATA 


STORECI 


STOREDATA 


STORECI 


STORE 


STOREDATA 


















PTD 




STOREDATA 


STOREDATACI 


STOREDATA 


STOREDATACI 




STOREDATA 


STOREDATACI 
















PTC 




STOREDATA 


STOREDATACI 


STOREDATA 


STOREDATACI 




STOREDATA 


STOREDATACI 








1 1 




AbW: DUMPDATA E and STOREDATAE are the same at DUMPDATA and STOREDATA, 
respectively, except that information on disk for DUMPDATA E is assumed to be in packed 
EBCDIC format, and input for STOREDATAE is converted to packed EBCDIC format. 
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DUP Control Records 
restrictions in T-mode 
•DUMP 



Restrictions Caused by Temporary Mode 

When temporary mode is indicated in the current JOB monitor control record, some DUP 
operations are restricted or not allowed. The following chart shows the restriction, if any, 
on DUP operations when temporary mode is indicated. 



DUP operations 

DUMP 

DUMPDATA, DUMPDATABE 

STORE 

STORECI 

STORE DATA, STOREDATAE 

STORE DATAC! 

STOREMOD 

DUMP LET 

DUMPFLET 

DWADR 

DELETE 

DEFINE FIXED AREA 

DEFINE VOID ASSEMBLER 

DEFINE VOID FORTRAN 

DEFINE VOID RPG 

DEFINE VOID COBOL 

DFILE 

MACRO UPDATE 



Restrictions 

None 

None 

None 

To UA only 

To UA and WS only 

To UA only 

Not allowed 

None 

None 

Not allowed 

Not allowed 

Not allowed 

Not allowed 

Not allowed 

Not allowed 

Not allowed 

To UA only 

Not allowed 



general function 



*DUMP 

This control record (1) transfers information from the user area or fixed area to working 
storage, or (2) makes information from the user area, fixed area, or working storage 
available as card, paper tape, or printed output. Card, paper tape, and print formats are 
illustrated in Appendix I. 

DSF programs are transferred from the user area or fixed area to output devices in 2 phases, 
The programs are first moved to system working storage, then to the output device. As a 
result, information residing in working storage before the DUMP operation is destroyed. 

DCI programs and data files are transferred directly from the user area or fixed area to the 
output device. The contents of working storage remain unchanged. 
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DUP Control Records 
*DUMP 

DUP obtains the number of disk blocks to be dumped from the LET or FLET entry for a 
DSF program or a data file, or from the appropriate working storage indicator in sector 
@DCOM if the dump is from working storage. The actual core load length in words of a 
DCI program is dumped. The word count is obtained from the core image header. Dumps 
of a DSF program and a DCI program are contained in Appendix I. 



format 



Card column 


Contents 


Explanation 


1 through 6 


*DUMPt6 




7 through 12 


Reserved 




13 and 14 


From symbol 


See the following summary chart. 


15 and 16 


Reserved 




17 and 18 


To symbol 


See the following summary chart. 


19 and 20 


Reserved 




21 through 25 


Name 


A name is required except when the 
dump is from working storage to the 
printer. 


26 through 30 


Reserved 




31 through 34 


From 
cartridge ID 




35 and 36 


Reserved 




37 through 40 


To 
cartridge ID 




41 through 80 


Not used 





The following chart is a summary of the information transfers and format conversions per- 
formed by the DUMP operation. 



"DUMP 


From symbols. 


To symbols. 


summary chart 


including formats 


including formats 




UA(DSF) 


WS(DSF) 




UA or WS(DSF) 


CD(CDS) 

PT(PTS) 

PR(PRD) 




UAor FX(DDF) 


WS(DDF) 




UA, FX, orWS(DDF) 


CD(CDD) 

PT(PTD) 

PR(PRD) 




UAor FX(DCI) 


WS(DCI) 




UA,FX,orWS(DCI) 


CD(CDC) 

PT(PTC) 

PR(PRD) 
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DUP Control Records 
•DUMP 
•DUMP DATA 



additional field 
information 



From Symbol. When a dump is from working storage and the corresponding working 
storage indicator is zero, an error message is printed. 

To Symbol. When a dump is to cards and a 1442, Model 6 or 7, is used, each card is 
checked to see that it is blank before it is punched. If a nonblank card is read, the monitor 
system prints an error message and waits at $PRET with /100F displayed in the ACCUMU- 
LATOR. 

Note 1. The program name in a DSF mainline program header is cleared to zeros when the 
program is transferred from the user area to working storage. 

Note 2. The subtype in a subroutine header is set to zero when the subroutine is dumped 
from the user area to cards. 



*DUMP Examples 
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£h This dumps a program from working storage to the printer. 

(^ This dumps a program named MAIN from the user area to 
working storage. 

Q This dumps a program named MAIN1 from the fixed area 
on disk 1003 to system working storage. 
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general function 



*DUMPDATA 

This control record (1) transfers information from the user area or fixed area on disk to 
working storage, or (2) makes information from the user area, fixed area, or working 
storage available as card, paper tape, or printed output. Card, paper tape, and print formats 
are illustrated in Appendix I. 

The contents of working storage are not changed when dumping to output devices, be- 
cause information is transferred from the user area, fixed area, or working storage directly 
to the output devices. 

The DUMPDATA operation differs from the DUMP operation in that the information is 
always in data format after transfer. Also, the amount of information transferred depends 
on the count field, if present, of the DUMPDATA control record or the block count of 
the program or data file. 
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format 





Contents 


DUP Control Records 
'DUMPDATA 


Card column 


Explanation 


1 through 10 


•DUMPDATAb 




11 and 12 


Reserved 




13and14 


From symbol 


See the following summary chart. 


15 and 16 


Reserved 




17 and 18 


To symbol 


See the following summary chart. 


19 and 20 


Reserved 




21 through 25 


Name 


A name is required except when the 
dump is from working storage to the 
printer. 


26 


Reserved 




27 through 30 


Count 


The count (a right-adjusted decimal 



number) specifies the number of 
sectors to be dumped. If this field is 
blank, the working storage indicator 
or disk block count in LET or FLET 
is used. 



31 through 34 


From 
cartridge ID 


35 and 36 


Reserved 


37 through 40 


To 
cartridge ID 


41 through 80 


Not used 



The following chart is a summary of the information transfers and format conversions 
performed by DUMPDATA. 



•DUMPDATA 
summary chart 


From symbols, 
including formats 


To symbols, 
including formats 




UA(DSF) 


WS(DDF) 




UA or WS(DSF) 


CD(CDD) 

PT(PTD) 

PR(PRD) 




UA or FX(DDF) 


WS(DDF) 




UA,FX,orWS(DDF) 


CD(CDD) 

PT(PTD) 

PR(PRD) 




UA(DCI) or FX(DDF) 


WS(DDF) 




UA, FX,orWS(DCI) 


CD(CDD) 

PT(PTD) 

PR(PRD) 
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DUP Control Records 
* DUMP DATA 
•DUMPDATA E 



additional field 
information 



To Symbol When a dump is to cards and a 1442, Model 6 or 7, is used, each card is 
checked to see that it is blank before it is punched. If a nonblank card is read, the monitor 
system prints a message and waits at $PRET with /100F displayed in the ACCUMULATOR. 

Count. This field specifies the number of sectors to be dumped. If present, the count 
overrides the contents of the working storage indicator or the disk block count in the 
LET' of FLET entry; when present, this number of sectors is dumped regardless of 
the length of the program or data file. 

* DUMPDATA Examples 



o 

© 
© 



15 10 15 20 25 30 35 40 45 50 


nvvivn 


T 


A 








u 


A 






C 


D 






D 


A 


T 


A 






<t> 





10 




p 






100 


7 








— 


— - 




















































_. 


I 


$ 








#DUMPDf\ 


T 


A 








FA 






W 


S 






D 


A 


T 


A 


1 




















tlUHPM 


T 


A 




























TA 


I 














































WS 






PT 






U 






Hi 


2 


- 




























































































(fy This dumps a data file named DATA from the user area to cards. 

(Q This dumps a data file named DATA1 from the fixed area on 
cartridge 1003 to working storage on cartridge 1007. 
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(general function 



*DUMPDATA E 

This control record (1) transfers information from the user area or fixed area to working 
storage, or (2) makes information from the user area, fixed area, or working storage 
available as card or printed output. 

The DUMPDATA E operation to output devices differs from the DUMPDATA operation 
in that the information on disk, which is assumed to be in packed EBCDIC form, 40 
words per 80 card columns, is converted to card image format. Thus; the information 
printed on a printer is one line per source card (80 print positions), and card output is an 
exact, full 80 column duplicate of the input cards in the corresponding STORED AT AE 
operation. When the destination is working storage, format conversion does not occur. 
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DUP Control Records 
*DUMPDATA E 



format 



The contents of working storage are not changed when dumping to output devices, be- 
cause information is transferred from the user area, fixed area or working storage directly 
to the output devices. 



Card column 


Contents 


Explanation 


1 through 11 


*DUMPDATAtfE 




12 


Reserved 




13 and 14 


From symbol 


See the following summary chart. 


15 and 16 


Reserved 




17 and 18 


To symbol 


See the following summary chart. 


19 and 20 


Reserved 




21 through 25 


Name 


A name is required except when the 
dump is from working storage to the 
printer. 


26 


Reserved 




27 through 30 


Count 


The count (a right-adjusted decimal 



31 through 34 


From 




cartridge I D 


35 and 36 


Reserved 


37 through 40 


To 




cartridge ID 


41 through 80 


Not used 



number) specifies the number of 
sectors to be dumped. If this field is 
blank, the working storage indicator 
or disk block count in LET or 
F LET is used. 



The following chart is a summary of the information transfers performed by DUMPDATA 
E. 



*DUMPDATA E 
summary chart 



From symbols 
UA or FX 
UA, FX,orWS 



To symbols 

WS 

CD 
PR 



additional field 
information 



To Symbol. When a dump is to cards and a 1442, Model 6 or 7, is used, each card is 
checked to see that it is blank before it is punched. If a nonblank card is read, the system 
prints a message and waits at $PRET with ./l OOF displayed in the ACCUMULATOR. 

Count. This field specifies the number of sectors to be dumped. If present, the count 
overrides the contents of the working storage indicator or the disk block count in the 
LET or FLET entry; when present, this number of sectors is dumped regardless of the 
length of the program or data file. 
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DUP Control Records 
•DUMPDATA E 
•DUMPLET 



*DUMPDA TA E Examples 



© 

© 
© 



1 5 10 15 20 25 30 35 40 45 50 


iUkPUiA 


E 


UA 




l\S 


DA 


T 


A 


































































































wmzuiK 


E 


F 


X 




CD 


DATA1 






1 


Q$3 
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This dumps a data file named DATA from the user area to 
working storage. 

This dumps a data file named DATA1 from the fixed area to 
cards. 

This dumps a data file from working storage to the printer. 
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general function 



*DUMPLET 

This operation prints the contents of the location equivalence table (LET) on the principal 
print device. Also, the contents of the fixed location equivalence table (FLET) are 
printed if a fixed area has been defined on the disk. A program name or data file name can 
be specified in this control record to dump only the LET or FLET entry for that program 
or data file. A printout of a DUMPLET operation is in Appendix D. 



format 


Card column 
1 through 8 
9 through 20 


'Contents 

*DUMPLET 
Reserved 




Explanation 




21 through 25 


Name 




Name specifies that only the LET 
or FLET entry for that program or 
data file is printed. 




26 through 30 


Reserved 








31 through 34 


From 
cartridge ID 




The cartridge ID specifies that only 
the LET (and FLET) on that 
cartridge is dumped. 




35 through 80 


Not used 






additional field 
information 


Name. This optional 
entry is to be printec 


field specifies the 
L. LET and FLET 


name 
on all 


of a program or data file whose 
cartridges defined in the curren 



control record are searched unless a cartridge ID is specified in columns 31 through 34. 
When the name field is omitted, the entire contents of LET (and FLET) are printed. 

From Cartridge ID. The from cartridge ID specifies that only the LET (and FLET) on 
that cartridge is printed or searched when a name is specified in columns 21 through 25. 
When the from cartridge ID field is omitted, LET (and FLET) on all cartridges defined by 
the current JOB monitor control record are printed or searched. 
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"DUMPLET Examples 



DUP Control Records 
*DUMPLET 
* DUMP F LET 
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This dumps LET (and FLET) from the disks defined by the 
current JOB monitor control record. 

This dumps LET (and FLET) from cartridge 1004. 

This dumps the LET (or FLET) entry for the program named 
MAIN. 
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general function 



format 



additional field 
information 



*DUMPFLET 

This operation prints the contents of the fixed location equivalence table (FLET) on the 
principal print device. A program name or data file name can be specified in this control 
record to dump the FLET entry only for that program or data file. 



Card column 

I through 10 

I I through 20 
21 through 25 

26 through 30 
31 through 34 

35 through 80 



Contents 


Explanation 


*DUMPFLETtt 




Reserved 




Name 


Name specifies that only the FLET 




entry for that program or data file 




is printed. 



Reserved 

From 
cartridge ID 

Not used 



The cartridge ID specifies that only 
the FLET on that cartridge is printed. 



Name. This optional field specifies the name of a program or data file whose FLET entry 
is to be printed. FLET on all cartridges defined in the current JOB monitor control 
record is searched for the name unless a cartridge ID is specified in columns 31 through 
34. When the name field is omitted, the entire contents of FLET are printed. 

From Cartridge ID. The from cartridge ID specifies that only the FLET on that cartridge 
is printed or searched when a name is specified in columns 21 through 25. When the car- 
tridge ID field is omitted, the FLET on all cartridges defined by the current JOB monitor 
control record is printed or searched. 
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DUP Control Records 
•DUMPFLET 
•STORE 



*DUMPFLET Examples 
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{} This dumps FLET from the disks defined by the current 
JOB monitor control record. 

^^ This dumps the FLET entry for the program named MAIN1. 

ft} This dumps the FLET entry for the program named MAIN2 
from cartridge 1002. 
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general function 



*STORE 

This operation (1) transfers information from working storage to the user area, or (2) 
accepts information from the input devices and transfers it to working storage or the user 
area. 

All transfer of information from the input devices to the user area is accomplished in 2 
phases. The information is first moved to system working storage, then to the user area. 
Because of this, information residing in working storage before the STORE operation is 
destroyed, and the appropriate working storage indicator in sector @DCOM is set to zero. 

The Disk Utility Program (DUP) makes the required LET entry for the program being 
stored. The name you specify in columns 21 through 25 is assigned to the program and 
is used to generate the LET entry. The LET entry includes the program name, the format 
of the program, the number of disk blocks the program occupies, and the disk block 
address. An entry is also made in LET for each entry point in the program being stored. 
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format 





Contents 


DUP Control Records 
•STORE 


Card column 


Explanation 


1 through 6 s 


•STORE 




7 through 10 


Reserved 




11 


Subtype (0, 1 , 
2, 3, or 8) 


For type 3, 4, 5, and 7 subroutines 
only. 


12 


Reserved 




13 and 14 


From symbol 


See the following summary chart. 


15 and 16 


Reserved 




17 and 18 


To symbol 


See the following summary chart. 


19 and 20 


Reserved 




21 through 25 


Name 


A name is required except when the 
STORE operation is to working 
storage. 


26 through 30 


Reserved 




31 through 34 


From 
cartridge I D 




35 and 36 


Reserved 




37 through 40 


To 
cartridge ID 




41 through 80 


Not used 





The following chart is a summary of the information transfers and format conversions 
performed by the STORE operation. 



'STORE summary chart From symbols, 

including formats 

WS(DSF) 

CD (CDS) 

PT(PTS) 



To symbols, 
including formats 

UA(DSF) 

UA or WS(DSF) 

UA or WS(DSF) 
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DUP Control Records 
'STOR E 

additional field 
information 



Subtype. This optional field places a subtype number in the header of a subroutine, type 
3, 4, 5, or 7. The subtype number that can be specified for each type of subroutine is: 



Subroutine description 

In-core subroutines 

Disk FORTRAN I/O subroutines 

Arithmetic subroutines 

Nondisk FORTRAN I/O and "Z" 

"Z" device subroutines 

Function subroutines 

Dummy I LS02, I LS04 stored in 
monitor system library 

User-written ILS02, ILS04 that 
replace dummy ILS02, ILS04 





Code in 


Type 


subtype field 


3,4 





3 


1 


3 


2 


3 


3 


5 


3 


4 


8 


7 


1 



From Symbol. If the STORE operation is from working storage and the corresponding 
working storage indicator is zero, an error message is printed. 

*STORE Examples 
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A This reads a program from cards and stores it in working 
storage. 

G% This names a program in working storage MAIN and stores 
it in the user area. 

G$ This reads from cards an 1 LS04 you have written and stores 
it in the user area. 
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general function 



DUP Control Records 
*STOREDATA 

*STOREDATA 

This control record (1) transfers information from working storage to the user area or 
fixed are, or (2) accepts information from input devices and moves it to working storage, 
the user area, or fixed area. DUP assumes that input to this operation is in data format; 
output from this operation is always in data format. 

Information is transferred directly from the input devices to the user area or fixed area. 
Thus, the contents of working storage remain the same if the STORE operation is to the 
fixed area. Because the boundary between the user area and working storage is moved by 
store and delete operations, a STOREDATA operation to the user area destroys informa- 
tion residing in working storage before the STOREDATA operation. 

DUP makes the required LET or FLET entry. The name you specify in columns 21 through 
25 is assigned to the data file or macro library and is used to generate the LET or FLET 
entry. DUP also supplies the disk block count required in the LET or FLET entry if the 
source is cards or paper tape. If the source is working storage, the sector count coded 
in the STOREDATA control record is used. 



format 



Card column 

I through 10 

II and 12 
13 and 14 
15 and 16 
17 and 18 
19 and 20 

21 through 25 

26 

27 through 30 



Contents 
*STOREDATA 
Reserved 
From symbol 
Reserved 
To symbol 
Reserved 
Name 

Reserved 
Count 



Explanation 



See the following summary chart. 



See the following summary chart. 



A name is not required when the 
STOREDATA operation is from cards 
or paper tape to working storage. 



If the source is working storage, the 
count is the number (in decimal) of 
sectors of data to be stored. This 
count overrides the contents of the 
working storage indicator. If the 
count field is blank, the contents of 
the working storage indicator are 
used. If the source is cards, the 
count is the number (in decimal) of 
cards to be read. If the source is 
paper tape, the count is the number 
(in decimal) of paper tape records 
to be read. 



31 through 34 


From 
cartridge ID 


35 and 36 


Reserved 


37 through 40 


To 
cartridge 1 D 


41 through 80 


Not used 
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DUP Control Records 
*STOREDATA 
*STOREDATAE 



"STOREDATA 
summary chart 



The following chart is a summary of the information transfers and format conversions per- 
formed by STOREDATA. 



From symbols, 
including formats 

WS(DSF, DDF.DCI) 

CD(CDS, CDD,CDC> 

PT(PTS, PTD, PTC) 



To symbols, 
including formats 

UAor FX(DDF) 

UA, FX,orWS(DDF) 

UA, FX,orWS(DDF) 



Note. When temporary mode is indicated in column 8 of 
the current JOB monitor control record, the STOREDATA 
operation is restricted to storing in the UA and WS only. 



*STOREDA TA Examples 
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SB This reads a data file from paper tape, and stores it in system 
working storage. 

KA This transfers a data file named Fl LE1 that occupies 5 
sectors from system working storage to the user area on 
cartridge 1005. 

SC9 This reads a data file named Fl LE2 from cards, and stores 
it in the user area. 200 cards are read. 

CB This transfers a data file named FILE3 from working storage 
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general function 



*STOREDATAE 

This control record (1) transfers information from working storage to the user area or 
fixed area, or (2) accepts information from the card reader and transfers it to working 
storage, the user area, or fixed area. 

When input is from cards, the source cards are converted to packed EBCDIC format, that 
is 2 columns per word, or 3 cards per sector. Thus, the input is assumed to be any of the 
256 EBCDIC characters in card code. When the source is working storage, no conversion 
takes place. 

Information is transferred directly from the input device to the user area or fixed area.. 
Thus, when the STORED AT AE operation is to the fixed area, the contents of working 
storage are not changed. When the STOREDATAE operation is to the user area, the 
contents of working storage are destroyed because the boundary between the user area and 
working storage is moved back and forth by delete and store operations. 
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DUP Control Records 
*STOREDATAE 

The Disk Utility Program (DUP) makes the required LET or FLET entry. The name that 
you specify in columns 21 through 25 is assigned to the data file and is used to generate 
the LET or FLET entry. Also, DUP supplies the disk block count required in the LET or 
FLET entry if the source is cards or paper tape. If the source is working storage, the 
sector count specified in the STOREDATAE control record is used. 



format 



Card column 
1 through 11 
12 

13 and 14 
15 and 16 
17 and 18 
19 and 20 
21 through 25 

26 

27 through 30 



Contents 

*STOREDATAE 

Reserved 

From symbol 

Reserved • 

To symbol 

Reserved 

Name 

Reserved 
Count 



Explanation 



See the following summary chart. 



See the following summary chart. 



A name is not required when the 
STOREDATAE operation is from 
cards to working storage. 



If the source is working storage, 
the count is the number (in decimal) 
of sectors of data to be stored. This 
count overrides the contents of the 
working storage indicator. If the 
source is cards, the count is the 
number (in decimal) of cards to be 
read. 





31 through 34 


From 
cartridge ID 




35 and 36 


Reserved 




37 through 40 


To 
cartridge ID 




41 through 80 


Not used 




The following chart 


is a summary of the infor 


"STOREDATAE 


From symbols. 


To symbols. 


summary chart 


including formats 


including formats 




WS 


UA or FX 




CD 


UA, FX.orWS 



Note. When temporary mode is indicated in column 8 
of the current JOB monitor control record, the 
STOREDATAE operation is restricted to storing in the 
UA and WS only. 
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DUP Control Records 
*STOREDATAE 



additional field 
information 



Count. The corresponding clump operation, DUMPDATA E, transfers a whole number of 
sectors to cards. To avoid unwanted output, the number of cards stored should conse- 
quently be a multiple of 8 (blank cards can be added for that purpose). 



*STOREDATAE Examples 
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ft This transfers a data file named Fl LE5 from working storage 
to the fixed area. The file occupies 2 sectors. 

^^ This reads a data file of 56 cards into working storage on 
cartridge 1 003. 
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DUP Control Records 
"STORE DAT AC I 



general function 



•STOREDATACI 

ITiis control record (1) transfers information from working storage to the user area or 
fixed area on disk, or (2) accepts information from input devices and moves it to working 
storage, the user area, or fixed area. 

If the input is from cards or paper tape, the STOREDATACI operation assumes the input 
is in card or paper tape core image format. If the input is from working storage (the 
information has been previously dumped to working storage or stored in working storage 
from an input device), the appropriate working storage indicator must indicate disk core 
image (DCI) format; otherwise, the STOREDATACI operation is not performed. Output 
from the STOREDATACI operation is always in disk core image format. 

All transfer of information from input devices to the user area or fixed area is done directly; 
that is, the transfer is not made via working storage. Thus, when the STOREDATACI 
operation stores information from an input device to the fixed area, the contents of 
working storage are not destroyed. Note, however, the contents of working storage are 
destroyed when storing from an input device to the user area because the boundary 
between the user area and working storage is moved back and forth by delete and store 
operations. 

The Disk Utility Program (DUP) makes the required LET or FLET entry. The name that 
you specify in columns 21 through 25 is assigned to the data file and is used to generate 
the LET or FLET entry. Also, DUP computes the disk block count required in the LET 
or FLET entry from the count specified in the STOREDATACI control record. 



format 



Card column 


Contents 


Explanation 


1 through 12 


•STOREDATACI 




13 and 14 


From symbol 


See the following summary chart 


15 and 16 


Reserved 




17 and 18 


To symbol 


See the following summary chart 


19 and 20 


Reserved 




21 through 25 


Name 


A name is not required when the 
STOREDATACI operation is to 
working storage. 


26 


Reserved 




27 through 30 


Count 


The count (a right-justified decirr 



31 through 34 


From 
cartridge ID 


35 and 36 


Reserved 


37 through 40 


To 
cartridge ID 


41 through 80 


Not used- 



number) is the number of records 
(sectors, cards, or paper tape 
records) in the core image input. The 
count is not required if the source is 
working storage; however, when used 
in this case, the count overrides the 
contents of the working storage 
indicator. 
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DUP Control Records 
*STOREDATACI 
•STORECI 



*STOREDATACI 
summary chart 



The following chart is a summary of the information transfers and format conversions 
performed by STOREDATACI. 



From symbols, 
including formats 

WS(DCI) 

CD(CDC, CDD) 

PT(PTC, PTD) 



To symbols, 
including formats 

UAor FX(DCI) 

UA, FX,orWS(DCI) 

UA, FX,orWS(DCI) 



Note. When temporary mode is indicated in column 8 
of the current JOB monitor control record, the 
STOREDATACI operation is restricted to storing in 
the UA only. 

*STOREDATACI Examples 
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This transfers the data file, Fl LE5, from working storage on 
cartridge 1001 to the fixed area on the system cartridge. 

This reads a data file from cards and stores it in working 
storage. 1 08 cards are read. 
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general function 



*STORECI 

This control record obtains an object program from working storage or from an input de- 
vice, converts it into a core image program using the core load builder, and stores the core 
image program in the user area or fixed area. 

The core load builder (CLB) is called to build a core image program for the STORECI 
operation as if execution were to follow; that is, that portion of the core load residing below 
core location 4096 (decimal) in 4K systems, or 5056 in larger systems, is placed in the sys- 
tem core image buffer, and LOCALs and/or SOCALs are placed in system working storage. 
(See "Construction of a Core Load" in Chapter 3.) The STORECI operation stores all 
these portions of the core image program in the user area, fixed area, or working storage. 

A DCI program stored in the user area or fixed area includes the transfer vector built by the 
core load builder; however, neither the disk I/O subroutine nor COMMON, if any, is in- 
cluded. 
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DUP Control Records 
•STORECI 



format 



The Disk Utility Program (DUP) makes the required LET or FLET entry for the core image 
program as it is stored. The name that you specify in columns 2 1 through 25 is assigned 
to the DCI program and is used to generate the LET or FLET entry. Also, DUP obtains 
the disk block count required in the LET or FLET entry from the core load builder. 



Card column 
1 through 8 
9 

10 
11 

12 



Contents 

•STORECI 

Disk I/O 

subroutine 

indicator 

Reserved 

LOCAL-can- 
call-LOCAL 
indicator 

Special ILS 
indicator 



13 and 14 


From symbol 


15 and 16 


Reserved 


17 and 18 


To symbol 


19 and 20 


Reserved 


21 through 25 


Name 


26 


Reserved 


27 through 30 


Count 



Explanation 



This column specifies the disk I/O 
subroutine to be used by the core 
load during execution. 



A punch (any character) in this 
column enables a LOCAL sub- 
routine to call another LOCAL. 

A punch (any character) in this 
column indicates that ILSs for this 
core load should be chosen from 
the special I LSs. 

See the following summary chart. 



See the following summary chart. 



A decimal number (right-justified) 
that indicates the number of 
supervisor control records (FILES, 
LOCAL, NOCAL, and G2250) that 
follow. 



31 through 34 


From 




cartridge ID 


35 and 36 


Reserved 


37 through 40 


To 




cartridge ID 


41 


Reserved 


42 


Core map 




indicator 



N or blank. An N indicates that a core 
map is not to be printed for this core 
load. A blank causes a core map to be 
printed. 



43 through 80 



Not used 
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DUP Control Records 
*STORECI 



additional field 
information 



The following chart is a summary of the information transfers and format conversions per- 
formed by STORECI. 



STORECI 


From symbols. 


To symbols. 


ummary chart 


including formats 


including formats 




WS(DSF) 


UAor FX(DCI) 




CD(CDS) 


UAor FX(DCI) 




PT(PTS) 


UAor FX(DCI) 



Note. When temporary mode is indicated in column 8 
of the current JOB monitor control record, the 
STORECI operation is restricted to storing in the UA 
only. 

Disk I/O Subroutine Indicator. This column specifies the disk I/O subroutine that is loaded 
into core by the core image loader for use by the core load during execution. The charac- 
ter punched in this column for each disk I/O subroutine is: 

Column 9 



Disk I/O subroutine 

DISK1 
DISKN 
DISKZ 

Any other character is invalid and causes the printing of an error message. 



Oor 1 

N 

blank or Z 



LOCAL-Call-LOCAL Indicator. A punch (any character) in column 1 1 allows a LOCAL 
subroutine to call another LOCAL subroutine during execution if the restrictions listed 
under "LOCAL-Calls-a-LOCAL" in Chapter 6 are met. 

Special ILS Indicator. A punch (any character) in column 12 indicates that special interrupt 
level subroutines (ILSs named with an X before the number, as ILSX4) are to be used for 
this core load. If column 12 is blank, the standard set of ILSs is used. 

In addition to the functions of the standard ILSs, special ILSs at the beginning of their 
execution save the contents of index register 3 and set this register to point to the trans- 
fer vector. Special ILSs restore the original contents of index register 3 at the end of 
their execution. Because the special ILSs save and restore the contents of index register 3, 
you can use this register in your programs. 

Special ILSs require 5 more words of core storage per ILS than standard ILSs. The special 
ILSs for interrupt levels 2 and 4 are loaded, together with other subroutines, as part of the 
core load. You can write ILSs to replace any of the IBM-supplied ILSs, standard or special. 
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DUP Control Records 
*STORECI 

Count. A right-justified number in columns 27 through 30 that indicates the number of 
supervisor control records following this control record. DUP reads these control records 
for use by the core load builder before the STORECI operation is performed. The program 
name (columns 21 through 25 of this control record) must not be used on the LOCAL, 
NOCAL, and G2250 control records. Data files specified in the FILES supervisor control 
records that follow must be stored in the fixed area (see "Use of Defined Files" in Chapter 
6). 

*STORECI Examples 
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^^ This converts the DSF program, MAIN1, into DCI format 
and transfers it from working storage to the user area. 

£) This specifies that DISK1 is to be used by this core load, 
and that special I LSs are to be used. The program, 
MAIN7, is read from cards and stored in the fixed area 
on cartridge 1003. N in column 42 suppresses the 
printing of a core map. 

ft) This reads program MAIN2 from paper tape and stores 
it in the user area. The X in column 1 1 indicates that a 
LOCAL calls another, and 0002 in 27-30 indicates that 
two supervisor control records follow. 
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DUP Control Records 
•STOREMOD 



general function 



*STOREMOD 

This control record transfers information from working storage into the user area or fixed 
area. 

If the name specified in columns 21 through 25 is identical to an entry in LET or FLET, 
the information in working storage overlays the DSF program, DCI program, or data file 
in the user area or fixed area for that entry. The format of working storage must match 
the format of the LET or FLET entry that is replaced. 

The STOREMOD operation permits you to modify a DSF program, DCI program, or 
data file stored in the user area or fixed area without changing its name or relative posi- 
tion within the storage area. However, the length of the program or data file in working 
storage after being changed cannot be greater than the length of the old version of the 
program or data file that it replaces in the user area or fixed area. No change is made to the 
LET or FLET entry as a result of this operation. 

If the name on the STOREMOD control record does not match an entry in LET or FLET, 
the contents of working storage are stored by STORE, STOREDATA, or STOREDATACI, 
when the respective format is DSF, DDF, or DCI. The STOREMOD operation is not allowed 
when temporary mode is indicated in the current JOB monitor control record. 



format 



Card column 


Contents 


Explanatior 


1 through 10 


*STOREMODb 




11 


Subtype 




12 


Reserved 




13 and 14 


From symbol 


The source 


15 and 16 


Reserved 




17 and 18 


To symbol 


See the foil 


19 and 20 


Reserved 




21 through 25 


Name 




26 through 30 


Reserved 




31 through 34 


From 
cartridge ID 




35 and 36 


Reserved 




37 through 40 


To 
cartridge ID 




41 through 80 


Not used 
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DUP Control Records 
*STOREMOD 



The following chart is a summary of the information transfers and format conversions 
performed by STOREMOD. 



*STOREMOD 


From symbols. 


To symbols. 


summary chart 


including formats 


including formats 




WS(DSF) 


UA(DSF) 




WS(DDF) 


UAor FX(DDF) 




WS(DCI) 


UAor FX(DCI) 



Note: The format and size indicators of a data file in working storage must match those 
of the existing LET or FLET entry. Since the execution of your program that references 
data files stored in working storage does not set these indicators, a subsequent STOREMOD 
does not work. These indicators can be set prior to execution by performing a DUMPDATA 
operation of the stored data file to WS. 

"STOREMOD Examples 



O 

© 



10 



20 



25 



30 



35 



40 



45 



50 



#s 



XSlTOREMCD 



TOE 



MOD 



US 



WS 



UAI 

F 



MAI 



HI 



0A 



C% This replaces the program, MAI N1 , stored in the user area 
with an updated version from working storage. 

@ This replaces the data file, FILE1, stored in the fixed area 
on cartridge 1002 with an updated version from working 
storage on cartridge 1003. 



tttttrmH-m+frt+ttl+rrl H \ t Hi I H 
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DUP Control Records 
•DELETE 



general function 



♦DELETE 

This operation removes a specified DSF program, DCI program, or data file from the user 
area or fixed area. The deletion is accomplished by the removal of the program or data 
file LET or FLET entry, including the dummy entry for associated padding, if any. The 
DELETE operation is not allowed if temporary mode is indicated in the current JOB 
monitor control record. 

When a program or data file is deleted from the user area, that area is packed so that 
(1) the areas represented by the remaining LET entries are contigious, and (2) working 
storage is increased by the amount of disk storage formerly occupied by the deleted 
program or data file. The contents of working storage are not destroyed by the DELETE 
operation. 

When .a DCI program or a data file is deleted from the fixed area, that area is not packed. 
The FLET entry for the deleted DCI program or data file, including the dummy entry 
for associated padding, if any, is replaced by a single dummy entry (1DUMY). This 1DUMY 
entry represents the area formerly occupied by the deleted DCI program or data file, and 
its padding. DUP store operations can place new entries in the deleted areas of the fixed 
area. 



format 



Card column 


Contents 


Explanation 


1 through 8 


•DELETED 




9 through 20 


Reserved 




21 through 25 


Name 




26 through 30 


Reserved 




31 through 34 


From 


The deletion 




cartridge ID 


specified car 



cartridge ID is not specified, and the 
program or data file name (columns 
21 through 25) is present in LET or 
FLET of more than one cartridge 
specified for this JOB, deletion is from 
the first logical drive on which the 
name is found. 



35 through 80 



Not used 



* DELETE Examples 



O 

© 



1 5 10 15 20 25 30 35 40 45 50 


m 


EL 


E" 


FE 












._ 
















M 


A 


I 


K) 


1 










































































































































m 


EL 


E" 


rE 




























F 


I 


L 


E 


1 












1 


i 


# 


4 


















































































































































^} This deletes LET or FLET entry for the program, MAIN1, 
from the cartridge on the first logical drive where the name 
is found. 

(Q This deletes the data file, Fl LE1 , from cartridge 1004. 
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DUP Control Records 

*DEFINE FIXED AREA 



general function 



define a FX 



increase or 
decrease the FX 

delete FX 



*DEFINE 

This control record performs 4 functions. 

• It initially establishes the fixed area and its size on disk. 

• It increases or decreases the size of the fixed area. 

• It deletes the fixed area and FLET. 

• It deletes the assembler, FORTRAN compiler, RPG compiler, or COBOL compiler, or 
any combination of these 4 programs from the IBM system area on the master cartridge. 

The definition of a fixed area on disk allows you to store in fixed locations the programs 
and data files, which you can subsequently refer to by their sector addresses. The fixed 
area is defined in cylinder increments; the minimum required storage space is one cylinder. 
When a fixed area is defined, the system uses one cylinder for the fixed location equiva- 
lence table (FLET). This cylinder used for FLET is included in the total size of the fixed 
area; therefore, the initial definition of the fixed area must be at least 2 cylinders. 

The fixed area is increased in cylinder increments. It is decreased in cylinder increments 
by deleting unused cylinders after the last program or data file stored in the fixed area. 

If all DCI programs and data files have been deleted from the fixed area (by using 
*DELETE), the fixed area and FLET can be deleted by specifying a number in the count 
field that reduces the fixed area and FLET to one cylinder or less. 



format of 
DEFINE 
FIXED 
AREA 



Card column 

1 through 8 
9 through 18 
19 through 26 
27 through 30 



31 

32 through 36 
37 through 40 

41 through 80 



Contents 

*DEFINEtf 
FIXEDtfAREA 
Reserved 
Count 



Explanation 



Sign 

Reserved 
Cartridge ID 

Not used 



In initial definition of the fixed area, 
the count is the number (in decimal) 
of cylinders to be allocated as the 
fixed area; a minimum of 2 must be 
specified. After initial definition, the 
count is the number of cylinders by 
which the fixed area is to be increased 
or decreased. 

Blank if the fixed area is being increased; 
a minus sign if the fixed area is being 
decreased. 



This ID specifies the cartridge that is 
being altered; when omitted, the system 
cartridge is assumed. 



Note. The DEFINE FIXED AREA operation is not allowed if temporary mode is 
indicated in the current JOB monitor control record. 
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DUP Control Records 

*DEFINE FIXED AREA 
*DEFINE VOID 



* Define Fixed Area Examples 



1 5 10 15 20 25 30 


35 40 45 50 


#DEFIME FIXED) AREA 




V&5 
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M2- 


1J002 
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^p This defines a 5 cylinder fixed area on the master cartridge. 






^} This decreases the size of the fixed area on cartridge 1002 


by 2 cylinders. 








---H+fH-H+hmH-htt4+^^ 



o 

© 



delete the assembler 
or compiler 



Deletion of the assembler, FORTRAN compiler, RPG compiler, or COBOL compiler 
causes the specified monitor program to be removed from the IBM system area on the 
master cartridge. The IBM system area is then packed so that remaining programs and 
areas occupy the area formerly occupied by the deleted monitor program. SLET entries 
are updated to reflect the new disk storage allocations for the monitor programs. The 
reload table is used to make adjustments in the programs that use disk storage addresses 
from SLET. 

When the assembler, FORTRAN compiler, RPG compiler, or COBOL compiler is to be 
deleted, you must perform this deletion before defining a fixed area on the cartridge, or 
after completely removing a defined fixed area (see the previous discussion of decreasing 
the size of the fixed area). Once one of these programs is deleted, it can be restored by 
performing an initial load only. 



format of 

DEFINE 

VOID 



Card column 


Contents 


Explanation 


1 through 8 


•DEFINED 




9 through 13 


VOIDtt 




14 through 22 


ASSEMBLER or 
FORTRANtttt or 
RPGttttttttttttor 
COBOLM6M6 




23 through 80 


Not used 





Note. The DEFINE VOID operation is not allowed when temporary 
mode is indicated in the current JOB monitor control record. 

The processing of a DEFINE VOID operation restores the original system principal 
printer if a CPRNT monitor control record has specified that monitor and supervisor 
control records be printed on the console printer. 
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DUP Control Records 
*DWADR 



general function 



*DWADR 

This operation causes a sector address to be written on every sector of working storage 
on the cartridge specified by the DWADR control record or, if a cartridge ID is not speci- 
fied, on every sector of system working storage. The operation restores correct disk sector 
addresses in working storage if they have been modified during execution of your program. 
The contents of working storage prior to the DWADR operation are destroyed. 

A dummy // DUP monitor control record is printed on the principal printer following the 
printing of the *DWADR control record and the DUP exit message. 



format 



Card column 


Contents 


Explanation 


1 through 6 


•DWADR 




7 through 36 


Reserved 




37 through 40 


Cartridge ID 


This ID specifies the cartridge 
on which the working storage 
sector addresses are to be re- 
written. 



41 through 80 



Not used 



Note, The DWADR operation is not allowed if temporary mode is indicated in the current 
JOB monitor control record. 
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DUP Control Records 
*DFILE 



general function 



*DFILE 

This operation reserves disk space in either the user area or fixed area as a named data file 
or macro library. Data is not moved as a result of the DFILE operation; this function pro- 
vides disk space allocation only. The contents of working storage are not changed except 
when defining space in the user area; the contents of working storage on that drive are 
destroyed since the user area and working storage are adjacent areas. (See "Use of Defined 
Files" in Chapter 6 for a suggested use of this control record.) 

DUP makes the required LET or FLET entry. The name specified on the DFILE control 
record is assigned to the area and is used to generate the LET or FLET entry. DUP uses, 
the sector count specified on the DFILE control record to supply the disk block count in 
the LET or FLET entry. 



format 



Card column 


Con-tents 


Explanation 


1 through 6 


•DFILE 




7 through 16 


Reserved 




17 and 18 


To symbol 


Area in which the file is to be 
reserved: UA for user area, 
FX for fixed area. 


19 and 20 


Reserved 




21 through 25 


File name 


The name assigned to the area 
reserved for the data file or 
macro library. 


26 


Reserved 




27 through 30 


Count 


The number (in decimal) of 
sectors to be reserved 


31 through 36 


Reserved 




37 through 40 


To 
cartridge ID 




41 through 80 


Not used 





Note. The DFILE operation is restricted to reserving space only in the UA when 
temporary mode is indicated in the current JOB monitor control record. 
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DUP Control Records 
*MACRO UPDATE 



general function 



*MACRQ UPDATE 

This operation causes execution of the Macro Update Program (MUP). The MUP performs: 

• Initialization of a macro library 

• Physical or logical concatenation of macro libraries 

• Addition, deletion, or name redefinition of stored macros 

• Statement addition or deletion within a stored macro 

• Punching of stored macros into cards 

• Listing of macro library contents either at statement or macro level 

The functions to be performed by MUP are indicated by means of MUP control statements. 
The format and functions of these control statements are described in the publication 
IBM 1 130/1800 Assembler Language, GC26-3778. The MUP control statements immedi- 
ately follow the MACRO UPDATE DUP control record in the job stream. 

The Macro Update Program requires an IBM 1 131 Central Processing Unit, Model 2 or 3, 
with 8192 (decimal) or more words of core storage. If the MACRO UPDATE DUP control 
record is read by a system with 4096 words of core storage, it is considered an invalid con- 
trol record. The MUP cannot be used if temporary mode is indicated in the current JOB 
monitor control record. 



format 



Card column 
1 through 13 
14 through 36 
37 through 80 



Contents Explanation 

*MACR0I4UPDATE 

Reserved 

Not used 



Note. Keyboard or paper tape input to the MUP of the Disk Utility Program assumes a 
one-to-one relationship with any corresponding card input record. Thus, position 1 of 
assembler statements that are input record for MUP corresponds to card column 1 and not 
to column 21. 
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Assembler Control Records 



ASSEMBLER CONTROL RECORDS 



functions 



Assembler control records are used to specify optional operations that affect the assembler 
and assembly output. These control records are placed in the input stream as follows: 




Next monitor 
control record 



Assembler source statements 



Assembler control records 



Assembler control records can be entered in card or paper tape form along with the source 
program card deck or paper tape, or they can be entered from the console keyboard (see 
"Entering Jobs From the Console Keyboard" in Chapter 7). 

In most cases, the source program is passed through the assembler only once. This is always 
true when input is from the keyboard or paper tape reader. When input is from cards, 
passing the source deck through the assembler a second time (2-pass mode) may be re- 
quired. Further information about 2-pass mode is presented in the descriptions of the 
TWO PASS MODE, LIST DECK, and LIST DECK E control records in this section. These 
3 control records and the PUNCH SYMBOL TABLE control record are ignored when en- 
tered from the keyboard or paper tape reader. 
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coding assembler 
control records 



All assembler control records have the following format: 
Card column Contents Explanation 



1 



2 through 71 



72 through 80 



Assembler Control Records 
how to code 



Option 



Not used 



Asterisk 

Replace option with the key- 
words for the control record 
being used. 



coding keyboard and 
paper tape input 



Note. Assembler control records are coded in free form; that is, any number of 
blanks can occur between the characters of the option. However, only one blank 
can separate the last character of the option and the first character of any required 
numeric field. Remarks can be included after the option or numeric field; how- 
ever, at least one blank must separate the last character of the option or numeric 
field and the remarks. 

If an assembler control record contains an asterisk in column one, but the option is not 
identical with the format shown for the control record, the control record followed by an 
assembler error message is printed in the control record listing. The control record in error 
is ignored; an error does not result, but the specified option is not performed. 

Assembler control records are coded the same for card, paper tape, and keyboard input. 
Assembler language source statements are coded the same for keyboard and paper tape 
input as for cards, with the following exceptions: 

• The source statements do not contain leading blanks corresponding to card columns 
1 through 20. 

• The source statements are limited to 60 characters 

The first record processed by the assembler is checked for an asterisk as the first character. 
If an asterisk is the first character, the record is considered an assembler control record. 
This procedure continues until the first nonasterisk character is detected as the first charac- 
ter. For this record, and all following records (up to and including the END statement), 
the first character of each record is treated as if it were in card column 21 ; therefore, the 
first noncontrol record should not be an * comments statement. 

Note 1. Paper tape input to the assembler is punched into paper tape in PTTC/8 code, one 
frame per character. Any delete codes punched in paper tape are passed over by the 
assembler; assembly is continuous until the end. 

Note 2. Keyboard and paper tape input to the Macro Update Program (MUP) of DUP 
assumes a one-to-one relationship with the corresponding card input. Thus, position one 
of assembler statements that are input for MUP corresponds to card column 1 and not to 
column 2 1 . 
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Assembler Control Records 
•TWO PASS MODE 



general function 



*TWO PASS MODE 

This control record causes the assembler to read the source program deck twice. TWO 
PASS MODE must be specified when: 

• You want a list deck punched by the 1442 Card Read Punch, Model 6 or 7 (see "*LIST 
DECK" and "*LIST DECK E" in this chapter). 

• A one-pass operation cannot be performed because the intermediate output (source 
records) exceeds the capacity of working storage. 

This control record is ignored if source statements are entered through the keyboard or the 
paper tape reader. 



format 



Card column 


Contents 


Explanation 


1 


• 


Asterisk 


2 through 71 


TWO PASS 

mode; 




72 through 80 


Not used 





If a copy of the source deck, including all assembler control records, is placed behind the 
original, the source deck is read twice, and a stacked job is possible in 2-pass mode. 

When a deck is being assembled in 2-pass mode, the assembler is ready to read another card 
as soon as pass one processing of the END card is completed. Therefore, the source deck 
or a copy of the source deck must be placed immediately behind the END card of the 
first-pass deck. A monitor control record after the first END card causes the assembler to 
execute a CALL EXIT; the assembly is not completed. 

If the source deck has not been copied, the END card must be the last card in the hopper. 
To continue: 

1. Press START on the card reader and PROGRAM START on the console to process 
the END card when the reader goes not ready. 

2. Remove the source deck from the stacker and place it in the hopper. 

3. Press START on the card reader and PROGRAM START on the console again. 

The operation can be made continuous if you remove the source cards from the stacker 
during pass one and place them behind the END card in the hopper. 

To complete the assembly at the end of pass 2, press START on the card reader and 
PROGRAM START on the console to process the END card for the second pass. 
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Assembler Control Records 
'LIST 

*LIST 

general function This control record causes the assembler to provide a printed listing of the source program 

on the principal print device (1403 Printer, 1 132 Printer, or console printer). If a LIST 
control record is not used, only those statements inwhich assembly errors are detected 
are listed. When 2-pass mode is specified, all BSS, BES, ORG, and EQU statements that 
contain errors are listed during pass one of the assembly. 

format 



Card column 


Content! 


Explanation 


1 


• 


Asterisk 


2 through 71 


LIST 




72 through 80 


Not used 
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Assembler Control Records 
*LIST 



The format of a printed listing for an 8K or larger system is shown by: 



© © © © 




100F 
1010 
1011 
1012 
1014 



A814 
8012 
3000 
6038 
0000 



C0018 M 
00019 M 
00020 
00021 
00022 



1014 00 0000C000 00023 
1016 00 0000E000 00024 



D 

A 

WAIT 

EXIT 

BSS E 

DEC 

DEC 



SAVE+2 
SAVE+1 





49152 

57344 



DIVIDE BY 
AND ADD 



( I+J) 
(A+BJ/C 



O 

e 
e 



© 

© 
® 



Address of the instruction; address of the label, if any 
Relocation indicators 

One of the following: 

a. First word of the assembled code 

b. For EBC statements, the number of EBC characters 

c. For BSS and BES statements, the number of words reserved for the block 

d. For ENT, I LS, and ISS statements, ^9 and ^m are the entry label in name code 

e. For LI BF and CALL statements, £& and Bl are the name of the subroutine in name code 

One of the following: 

a. Second word of assembled code 

b. For ENT, ILS, and ISS statements, ^9 and ^p are the entry label in name code 

c. For LIBF and CALL statements, ^9 and ^M are the name of the subroutine in name code 

Statement number 

Error flags, if any 

Macro code indicator, if any 

Label 

Operation code 

Format 

Tag 

Operands (and your comments) 

ID and sequence number, if any 
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Assembler Control Records 
•LIST 



When LIST is specified for a 4K system, or with 2-pass mode, the format of the printed 
listing is: 



O OOOO 00 

A AAA I IA A 




100F 
1010 
1011 
1012 
1014 



A814 
8012 
3000 
6038 
0000 





D 


SAVE+2 


DIVIDE BY U+J) 




A 


SAVE+1 


AND ADD <A+B)/C 




WAIT 








EXIT 








BSS E 







B 


DEC 


49152 




F 


DEC 


57344 





1014 00 oooocooo 

1016 00 0000EOOO 



M Address of the instruction; address assigned to the label, if any 
^y Relocation indicators 

^P One of the following: 

a. First word of the assembled code 

b. For EBC statements, the number of EBC characters 

c. For BSS and BES statements, the number of words reserved for the block 

d. For ENT, ILS, and ISS statements, ^9and C9 are the entry label in name code 

e For DBF and CALL statements, (Ml and KB are the name of the subroutine in name code 

One of the following: 

a. Second word of assembled code 

b. For ENT, ILS, and ISS statements, ^9 and ^9 are the entry label in name code 

c. For LIBF and CALL statements, M and Eflare the name of the subroutine in name code 






Error flags, if any 





Macro code indicator, if any 





Label 


VsV 


Operation code 





Format 


© 


Tag 


0) 


Operands (and your comments) 


© 


ID and sequence number, if any 



A complete sample program listing is in Appendix H. 
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Assembler Control Records 
*XREF 



general function 



*XREF 

This control record causes the assembler to produce a statement numbered listing and a 
statement numbered cross-reference symbol table on the principal print device if the core 
size is 8K or larger. This control record is invalid if the core size is 4K, and, if detected, 
is ignored. A warning message is printed. 

A LIST control record is not needed when XREF is used. When neither an XREF nor a 
LIST control record is used, only those statements in which assembly errors or warnings 
are detected are listed. When 2-pass mode is specified, all BSS, BES, ORG, and EQU state- 
ments that contain errors are listed during pass one of the assembly. 

The cross-reference symbol table is not printed if 2-pass mode is specified or if symbol 
table overflow occurs during assembly. When either of these conditions occur, the XREF 
control record produces only a listing. 

The assembler does not assign sequence numbers to comments statements when a LIST 
OFF statement in your program is in effect. Because of this, the statement numbers in a 
cross-reference symbol table listing for the same program may be different from one assem- 
bly to another, depending on whether or not the program contains LIST OFF (and LIST 
ON) statements. 



format 



Card column 


Contents 


Explanation 


1 


* 


Asterisk 


2 through 71 


XREF- 




72 through 80 


Not used 
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Assembler Control Records 
*XREF 
*LISTDECK 



The format of the statement-numbered listing is the same as the format shown under 
"*LIST" for a system with a core size of 8K or larger. The format of the cross-reference 
symbol table is: 



Kl 

K16 

K20 

K32 

K40 

K640 

LINE 

LINES 

LOOP 



O0O 



105D 
106C 
105E 
105F 
1060 
1061 
159F 
1064 
1022 



00071 
00083 
00072 
00073 
00074 
00075 
00131 
00078 
00026 












00007.R 00013tR 
00123»R 



00038»R 00057#R 00063iR 



00065»R 
00003»R 
00044»R 
00062»R 
00040»B 



00019tR 
00116»R 
00064»M 



00117»R 00121»R 
00068#M 



^P Symbol 

^9 Value of the symbol 

Bey Relocation indicator 

KB Statement number of statement that defines the symbol 

K9 Statement numbers and associated reference type indicators (B for branch to, M for modification, 
or R for reference to) for the statements that use the symbols 



general function 



format 



Multiply defined symbols are flagged in the cross-reference symbol table with the message 
***MULTIPLY-DEFINED***. Undefined symbols are listed separately under the header 
***UNDEFINED SYMBOLS***. Symbols that refer to the system symbol table are 
flagged with SYSMB in the statement number field of the cross-reference entry. 

A list of the statement numbers of all statements flagged with errors or warnings is printed 
at the end of the statement numbered listing under the header: ERROR STATEMENT 
LINE NUMBERS. 

*LIST DECK 

This control record causes a list deck to be punched when the principal I/O device is a 
1442 Model 6 or 7 Card Read Punch. This control record is ignored if entered from the 
2501 Card Reader, the paper tape reader, or the keyboard. 



Card column 

1 

2 through 71 

72 through 80 



Contents 

* 

LIST DECK 
Not used 



Explanation 

Asterisk 
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Assembler Control Records 
•LIST DECK 



The LIST DECK option requires 2 passes of the source deck (TWO PASS MODE) through 
the assembler. Object information is punched into columns 1 through 19 during pass two. 

The card column contents of a punched list deck card are: 



Card column 
1 through 4 

5 

6 and 7 

8 

9 through 12 



13 through 16 



Contents 

Address of the instruction; address assigned to the 
label, if any. 

Blank 

Relocation indicators 

Blank 

One of the following: 

1 . First word of the assembled code. 

2. For EBC statements, the number of EBC 
characters. 

:$. For BSS and BES statements, the number of 
words reserved for the block. 

4. For ENT, ILS, and ISS statements, columns 
9 through 16 contain the entry label in name 
code. 

5. For LIBF and CALL statements, columns 9 
through 16 contain the name of the subroutine 
in name code. 

One of the following: 

1 . Second word of the assembled code. 

2. For ENT, I LS, and ISS statements, columns 
9 through 16 contain the entry label in name 
code. 

3. For LIBF and CALL statements, columns 9 
through 16 contain the name of the subroutine 
in name code. 



17 


Blank 


18 and 19 


Error flags, if any 


20 


Macro code indicator, if any 


21 through 25 


Label 


26 


Blank 


27 through 30 


Operation code 


31 


Blank 


32 


Format 


33 


Tag 


34 


Blank 


35 through 71 


Operands (and your comments) 


72 


Blank 


73 through 80 


ID and sequence number, if any 
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general function 



Assembler Control Records 
*LIST DECK E 
•PRINT SYMBOL TABLE 
*PUNCH SYMBOL TABLE 

*LIST DECK E 

This control record causes a list deck to be punched when the principal I/O device is a 
1442 Model 6 or 7 Card Read Punch. This control record is ignored if entered from a 
2501 Card Reader, paper tape reader, or the keyboard. 

The LIST DECK E option requires 2 passes of the source deck (TWO PASS MODE) through 
the assembler. Only error flags, if any, are punched (columns 18 and 19) during the second 
pass. Assembler error detection codes are described in Appendix A. 



format 



Card column 

1 

2 through 71 

72 through 80 



Contents 

* 

LIST DECK E 
Not used 



Explanation 

Asterisk 



general function 



*PRINT SYMBOL TABLE 

This control record causes the assembler to print a listing of the symbol table on the prin- 
cipal print device. The printed symbols are grouped 5 per line. Multiply defined symbols 
are preceded by the letter M. Symbols with absolute values in a relocatable program are 
preceded by the letter A. These M and A flags are not counted as assembly errors. 



format 



Card column 


Contents 


Explanation 


1 


* 


Asterisk 


2 through 71 


PRINT 

SYMBOL 

TABLE 




72 through 80 


Not used 





general function 



format 



*PUNCH SYMBOL TABLE 

This control record causes the symbol table to be punched as a series of EQU source cards. 
Each source card contains one symbol. These cards can be used as source input to the 
system symbol table when the SAVE SYMBOL TABLE control record is used with an 
assembly in which they are included. 

This control record is ignored if entered from the paper tape reader or the keyboard. 



Card column 


Contents 


Explanation 


1 


• 


Asterisk 


2 through 71 


PUNCH 

SYMBOL 

TABLE 




72 through 80 


Not used 
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Assembler Control Records 
•SAVE SYMBOL TABLE 
•SYSTEM SYMBOL TABLE 



general function 



If the principal input device is the 1442 Model 6 or 7 Card Read Punch, sufficient blank 
cards must be placed between the source program END card and the next monitor control 
record when stacked job input is being used. In estimating the number of blank cards re- 
quired, allow one card for each symbol used in the source program. Unnecessary blank 
cards are passed. (If a nonblank card is read when punching on the 1442 Model 6 or 7, the 
assembler waits at SPRET with /100F displayed in the ACCUMULATOR.) 

If the system configuration is 2501/1442, place blank cards in the 1442 hopper and press 
START on the 1442 before beginning the assembly. 

Note. Do not place nonblank cards in the 1442 Model 5. The punch may be damaged if 
an attempt is made to punch a hole where a hole exists. An error is not detected. 

*SAVE SYMBOL TABLE 

This control record causes the symbol table generated by this assembly to be saved on 
disk as a system symbol table. This system symbol table is saved until another assembly 
with a SAVE SYMBOL TABLE control record causes a new system symbol table to re- 
place the old one. This control record is also used with the SYSTEM SYMBOL TABLE 
control record to add symbols to the system symbol table. 

Note. The SAVE SYMBOL TABLE requires that the assembly be absolute (an ORG state- 
ment defining the core load origin must be used in your program). Thus, all symbols in the 
system symbol table have absolute values. 

When the symbol table punched by a PUNCH SYMBOL TABLE control record is included 
in the system symbol table being generated by this assembly, place the punched EQU cards 
after the SAVE SYMBOL TABLE control record. 

If any assembly errors are detected, or if the symbol table exceeds 100 symbols, the sys- 
tem symbol table is not saved, and an assembler error message is printed. 



format 



Card column 


Contents 


Explanation 


1 


• 


Asterisk 


2 through 71 


SAVE SYMBOL 
TABLE 




72 through 80 


Not used 





general function 



•SYSTEM SYMBOL TABLE 

This control record causes a previously built system symbol table to be added to the sym- 
bol table for this assembly as the assembly begins. This allows you to refer to symbols in 
the system symbol table without redefining the symbols in your source program. Also, 
this control record can be used with a SAVE SYMBOL TABLE control record to add 
symbols from this assembly to the system symbol table. 

Note. All symbols in the system symbol table have absolute values. 



format 



Card column 


Contents 


Explanation 


1 


• 


Asterisk 


2 through 71 


SYSTEM 
SYMBOL 
TABLE 




72 through 80 


Not used 
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Assembler Control Records 
♦LEVEL 
♦OVERFLOW SECTORS 



general function 



*LEVEL 

This control record specifies the interrupt levels serviced by an ISS and the associated ILS 
subroutines. This control record is required for the assembly of an ISS subroutine. The 
interrupt level number is a decimal number in the range through 5. If the device operates 
on 2 interrupt levels (for example, the 1442 Card Read Punch), one LEVEL control 
record is required for each interrupt level on which the device operates. The assembler 
accepts no more than 2 interrupt levels for a device. At least one blank must separate 
the word LEVEL and the interrupt level number. 

If a LEVEL control record is not used when assembling an ISS subroutine, an error message 
is printed at the end of the assembly. 



format 



Card column 


Contents 


Explanation 


1 


• 


Asterisk 


2 through 71 


LEVELttn 


n is an interrupt level number 
(decimal) 


72 through 80 


Not used 





general function 



♦OVERFLOW SECTORS 

This control record allows you to specify the number of sectors of working storage to be 
used by the assembler for symbol table overflow and/or macro processing. When this con- 
trol record is used, the assembler allocates one more sector than the total number speci- 
fied. This additional sector is used as a working sector by the assembler. 

If more than one OVERFLOW SECTORS control record is used, the last record is used to 
allocate the overflow sectors. 



format 



Card column 

1 

2 through 71 



72 through 80 



Contents 



OVERFLOW 
SECTORS!* 
n1, n2, n3 



Not used 



Explanation 

Asterisk 

n1 is the number of sectors for 
symbol table overflow; n2 is the 
number of sectors for macro 
parameter list overflow; n3 is 
the number of sectors for temp- 
orary macro definition. 



Note. If any of the number fields are not specified in an OVERFLOW SECTORS 
control record, the commas within the record cannot be eliminated. 
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Assembler Control Records 
♦OVERFLOW SECTORS 



additional field 
information 

n1 



n2 



compute largest 
parameter list size 



compute n2 



n3 



compute n3 



OVERFLOW SECTORS. The decimal numbers coded after OVERFLOW SECTORS specify 
the number of sectors to be allocated for (1) symbol table overflow, nl, (2) macro param- 
eter list overflow, n2, and (3) temporary macro definition overflow, n3. 

The number of sectors (nl) reserved for symbol table overflow is specified as a decimal 
number in the range through 32. When the entry is zero or not specified, symbol table 
overflow is not allowed. If the entry is greater than 32, only 32 sectors are assigned for 
symbol table overflow. If, during assembly, the symbol table overflow exceeds the number 
of sectors allocated by the OVERFLOW SECTORS control record, an error message is 
printed. The approximate maximum number of symbols that can be defined in a program 
is determined by the size of core storage: 

Size of core storage Approximate maximum 

(in decimal words) number of symbols 

4096 3500 

8192 4165 

16384 6895 

32768 12355 

The macro processor portion of the assembler uses working storage to contain macro 
parameter list overflow. The OVERFLOW SECTORS control record specifies the number 
of sectors (n2) to be reserved. If n2 is zero or not specified, a comma must be coded, but 
macro parameter list overflow is not allowed. 

The size (in words) of the total parameter list storage required for an assembly is the size 
of the largest parameter list within the assembly. The size of a parameter list (in words) 
can be estimated by using the following formula: 

N 

Number of words = 3+N+S ^(mj+l) 

i=l 

where 

N is the number of parameters, including nested macros, within a macro call., 
M( is the number of characters per parameter. 

For example, the macro call: 

EXPND APHA,BETA,C is computed as 3+3+ 1 / 2 (5+l)+ 1 /2(4+l)+ 1 /2(H-l)=12 words. 

If the computed size of the largest parameter list within an assembly does not exceed 100 
words, parameter list overflow sectors are not required. Otherwise, the number of sectors 
(n2) required can be computed with the following formula: 

n2=l/100(x-100) 

where 

x equals the size (in words) of the largest parameter list. 

The macro processor portion of the assembler uses working storage to store temporary 
macro definitions (macros that apply only to the assembly in which they are defined). The 
OVERFLOW SECTORS control record specifies the number of sectors (n3) to be reserved 
for storing the temporary macros. If n3 is zero or not specified, a comma must be coded, 
but storage of temporary macro definitions is not allowed. 

The number of working storage sectors (n3) required for storing temporary macro defini- 
tions is calculated as: K/40 

where 

K is the sum of the number of statements in each temporary macro definition. 
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general function 



format 



Assembler Control Records 
•COMMON 
»MACLIB 

"COMMON 

This control record allows you to specify the length (in words) of COMMON that is shared 
by the program being assembled and a FORTRAN program compiled prior to this assembly. 
The number of words of COMMON used by the FORTRAN program can be obtained from 
a listing of the program. The use of this control record provides for the saving of COMMON 
when linking between FORTRAN mainlines and assembler mainlines. 



Card column 

1 

2 through 71 

72 through 80 



Contents 



COMMONS 
nnnnn 



Not used 



Explanation 

Asterisk 

nnnnn is the number (in deci- 
mal) of words of COMMON 
to be saved between links. 



general function 



*MACLIB 

This control record specifies that the macro library is used during assembly. The M ACLIB 
control record is invalid on 4K systems and with both LIST DECK options. 



format 



Card column 

1 

2 through 8 

9 through 13 

14 through 71 
72 through 80 



Contents 



MACLIBti 

Macro library 
name 

Reserved 

Not used 



Explanation 

Asterisk 



additional field 
information 



Macro library name. This name must be an exact duplicate of the name given to the macro 
library when it was defined by a STOREDATA or DFILE DUP control record. A MACLIB 
control record is ignored if an invalid macro library name is specified. 
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FORTRAN Control Records 
how to code 



FORTRAN CONTROL RECORDS 



functions 



FORTRAN control records specify optional operations that affect the FORTRAN com- 
piler arid program execution. These control records are placed in the input stream as fol- 
lows: 




Next monitor 
control record 



FORTRAN source statements 



FORTRAN control records 



coding 



FORTRAN control records can be entered in card or paper tape form along with the 
source program deck or tape, or they can be entered from the console keyboard (see 
"Entering Jobs from the Console Keyboard" in Chapter 7). 

The IOCS, NAME, and ORIGIN control records can be used only with mainline programs; 
the others can be used with both mainline programs and subprograms. 

All FORTRAN control records have the following format: 



Card column 


Contents 


Explanation 


1 


* 


Asterisk 


2 through 72 


Option 


Replace option with the 
keywords for the control 
record being used. 


73 through 80 


Not used 





Note. FORTRAN control records are coded in free form; that is, any number 
of blanks can occur between the characters of the option. Remarks are not 
allowed. 

If a FORTRAN control record contains an asterisk in column one, but the option is not 
identical with the format shown for the control record, the asterisk is replaced with ai minus 
sign on the control record listing. The control record in error is ignored; an error does not 
result, but the specified option is not performed. This same action is taken if the specified 
address is not valid in an ORIGIN control record. 
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general function 



FORTRAN Control Records 
*IOCS 

*IOCS 

This control record specifies the I/O devices that are used during execution of a FORTRAN 
core load. Only the devices required should be included. Any number of IOCS control 
records can be used to specify the required devices. 

All I/O devices that are used by FORTRAN subprograms called in a FORTRAN core load 
must be included on the IOCS control records associated with the mainline FORTRAN 
program. Assembler language subroutines that are included in a FORTRAN core load can 
use any of the other I/O device subroutines in addition to those specified on the IOCS 
control records for the FORTRAN mainline program. 



format 



Card column 

1 

2 through 72 

73 through 80 



Contents 



IOCS 

(d,d, . . .,d) 



Not used 



Explanation 



d is a valid device name 
selected from the following 
list. 



Names for I/O devices to be used are specified in the IOCS control record. These names 
are enclosed in parentheses and separated by commas. The devices, their associated IOCS 
names, and the I/O subroutines called for each device are: 



Device 


*IOCS device name 


Subroutine called 


1442 Card Read/Punch, 


CARD 


CARDZ 


Model 6 or 7 






2501 Card Reader 


2501 READER 


READZ 


1442 Card Punch, Model 5 


1442 PUNCH 


PNCHZ 


(1442 Model 6 or 7 if used 






as a punch only) 






Console printer 


TYPEWRITER 


TYPEZ 


Keyboard 


KEYBOARD 


WRTYZ 


1132 Printer 


1132 PRINTER 


PRNTZ 


1403 Printer 


1403 PRINTER 


PRNZ 


11 34/1 055 Paper Tape 


PAPER TAPE 


PAPTZ 


Reader/Punch 






1627 Plotter 


PLOTTER 


PLOTX 


Disk 


DISK 


DISKZ 


Disk (unformatted disk I/O) 


UDISK 


DISKZ 



Note. CARD is used for the 1442 Card Read/Punch, Model 6 or 7, and 1442 PUNCH is 
used for the 1442 Card Punch, Model 5 (1442 PUNCH can be used for a 1442, Model 6 
or 7, if the function is punch only; 1442 PUNCH uses less core storage). CARD and 
1442 PUNCH are mutually exclusive; therefore, the use of both of these names in IOCS 
control records for the same compilation is not allowed. 
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FORTRAN Control Records 
•LIST SOURCE PROGRAM 
•LIST SUBPROGRAM NAMES 



*fOCS Examples 



15 10 15 20 25 30 35 40 45 50 


tflOCSfl 


CARD, 
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03 
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*LIST SOURCE PROGRAM 



general function 


This control recoi 
pal print device. 


d causes the source program, as it is er 


format 


Card column 


Contents Explanation 




1 


* Asterisk 




2 through 72 


LIST SOURCE 
PROGRAM 




73 through 80 


Not used 



general function 



*LIST SUBPROGRAM NAMES 

This control record causes the names of all subprograms (including subprograms called 
by EXTERNAL statements) called by the compiled program to be listed on the principal 
print device. 



format 



Card column 


Contents 


Explanation 


1 


* 


Asterisk 


2 through 72 


LIST 

.SUBPROGRAM 

NAMES 




73 through 80 


Mot used 
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FORTRAN Control Records 
*LIST SYMBOL TABLE 
*LISTALL 



general function 



format 



*LIST SYMBOL TABLE 

This control record causes the absolute or relative addresses for the following items to be 
listed on the principal print device. 

• Variable names 

• Numbered statements 

• Statement functions 

• Constants 

The addresses are relative unless an ORIGIN control record specifies the core address where 
the first word of the core load is placed for execution. 

A constant in a STOP or PAUSE statement is treated as a hexadecimal number. This hexa- 
decimal number and its decimal equivalent appear in the list of constants. The hexadeci- 
mal number is displayed in the ACCUMULATOR when the system waits at $PRET during 
the execution of the PAUSE or STOP statement. 



Card column 

1 

2 through 72 

73 through 80 



Contents 



LIST 

SYMBOL 

TABLE 

Not used 



Explanation 

Asterisk 



general function 



format 



*LIST ALL 

This control record causes the source program, associated subprogram names, and the sym- 
bol table to be listed on the principal print device. When this control record is used, the 
previously described LIST SOURCE PROGRAM, LIST SUBPROGRAM NAMES, and 
LIST SYMBOL TABLE control records are not required. 

Card column 

1 

2 through 72 

73 through 80 

The FORTRAN sample program in Appendix H is listed by a LIST ALL control record. 



Contents 


Explanation 


* 


Asterisk 


LIST ALL 




Not used 
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FORTRAN Control Records 
•EXTENDED PRECISION 
•ONE WORD INTEGERS 



general function 



•EXTENDED PRECISION 

This control record allocates 3 words of core storage for arithmetic values (real and integer) 
instead of the standard two and generates linkage to the extended precision subprograms. 

The FORTRAN compiler normally operates in standard precision; that is, 2 words (a sign, 
23 significant bits, and an exponent) of core storage are allocated for each arithmetic 
value. Through the use of the EXTENDED PRECISION control record, the compiler can 
be made to yield 31 significant bits by allocating 3 words of core storage for each arith- 
metic value. 

Standard precision, extended precision, and arithmetic subprograms are discussed in the 
publication IBM 11 30 Subroutine Library, GC26-5929. 



format 



Card column 


Contents 


Explanation 


1 


* 


Asterisk 


2 through 72 


EXTENDED 
PRECISION 




73 through 80 


Not used 





general function 



*ONE WORD INTEGERS 

The FORTRAN compiler normally assigns 2 words of core storage for each real and inte- 
ger value (see the previous discussion of the EXTENDED PRECISION control record). 
The ONE WORD INTEGERS control record causes all integer values to be assigned one 
word of core rather than the standard 2 words, or 3 words when an EXTENDED PRECI- 
SION control record is used. 

An 1 130 FORTRAN integer can have any value in the range of -2 1S +1 to2 15 -l. Any 
value in this range can be contained in one word (16 bits) of core storage ; therefore, inte- 
ger values can contribute rather significantly to inefficient use of core storage because of 
the extra word allocated for standard or extended precision. Because of this, the use of 
the ONE WORD INTEGERS control record conserves core. 

Note. If this control record is used, the program does not conform to the USASI Basic 
FORTRAN standard for data storage, and will require modification for use with non- 
1130 FORTRAN systems„ 



format 



Card column 


Contents 


Explanation 


1 


• 


Asterisks 


2 through 72 


ONE WORD 
INTEGERS 




73 through 80 


Not used 
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general function 



FORTRAN Control Records 
•NAME 
**(header information) 

*NAME 

This control record causes the specified program name to be printed at the end of the pro- 
gram listing. 



format 



Card column 

1 

2 through 72 



Contents 



NAMEttxxxxx 



Explanation 

Asterisk 

xxx xx is the name of the 
mainline program and is five 
consecutive characters (includ- 
ing blanks) starting in the first 
nonblank column after NAME. 
At least one blank must separ- 
ate NAME and the mainline 
program name. 



73 through 80 



Not used 



general function 



** (Header Information) 

This control record causes the information specified in columns 3 through 72 to be printed 
at the top of each page printed during compilation when a 1403 Printer or 1 132 Printer 
is the principal print device. When the first statement of the program is read, the printer 
skips to a new page (a skip to channel 1), prints the heading, and begins listing the program 
statements. 



format 



Card column 

1 and 2 

3 through 72 

73 through 80 



Contents 



Any string of 
characters 

Not used 



Explanation 

Asterisks 
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FORTRAN Control Records 
♦ARITHMETIC TRACE 
•TRANSFER TRACE 



general function 



♦ARITHMETIC TRACE 

This control record causes the value of each variable to be printed each time it is changed 
during program execution. An asterisk immediately precedes each printed value. 

Console entry switch 15 must be turned on, and an IOCS control record specifying the 
console printer, 1 132 Printer, or 1403 Printer must be included in the FORTRAN con- 
trol records. When more than one of these print devices is specified, the fastest device is 
used for printing the traced values. Tracing is stopped if console entry switch 15 is turned 
off. This provides for tracing only a part of a program. Tracing can be restarted by turning 
console entry switch 15 back on. 

You can trace selected portions of your program by placing statements that start and stop 
tracing in the source program. These statements, CALL TSTRT and CALL TSTOP, are 
placed where needed in the program. In addition to these statements, console entry switch 
15 must be on and an IOCS control record specifying a print device and an ARITHMETIC 
TRACE control record must be included in the FORTRAN control records. 



format 



Card column 


Contents 


Explanation 


1 


* 


Asterisk 


2 through 72 


ARITHMETIC 
TRACE 




73 through 80 


Mot used 





general function 



♦TRANSFER TRACE 

This control record causes the values of IF expressions and computed GO TO indexes to 
be printed during program execution. Two asterisks immediately precede each printed 
value of an IF statement. Three asterisks immediately precede the value printed for the 
index of a computed GO TO statement. 

Console entry switch 15 must be turned on, and an IOCS control record specifying the 
console printer, 1 132 Printer, or 1403 Printer must be included in the FORTRAN control 
records. When more than one of these print devices is specified, the fastest device is used 
for printing the traced values. Tracing is stopped if console entry switch 15 is turned off. 
This provides for tracing only a part of a program. Tracing can be restarted by turning 
console entry switch 15 back on. 

You can trace selected portions of your program by placing statements that start and stop 
tracing in the source program. These statements, CALL TSTRT and CALL TSTOP, are 
placed where needed in the program. In addition to these statements, console entry switch 
15 must be on and an IOCS control record specifying a print device and a TRANSFER 
TRACE control record must be included in the FORTRAN control records. 



format 



Card column 


Contents 


Explanation 


1 


* 


Asterisk 


2 through 72 


TRANSFER 
TRACE 




73 through 80 


Not used 
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FORTRAN Control Records 

♦ORIGIN 
RPG Control Cards 



general function 



format 



*ORIGIN 

This control record allows you to specify the core address where the core image loader 
starts loading a program into core for execution. When an ORIGIN control record is used, 
absolute addresses are printed in the listing that is produced by the compiler. This allows 
you to see exactly where the program statements and constants are during execution. 



Card column 


Contents 


Explanation 


1 


» 


Asterisk 


2 through*72 


ORIGINtklddddor 


This is the starting core address 




ORIGIN/xxxx 


expressed as a decimal number 
(ddddd) of 3 to 5 digits or as a 
hexadecimal number (/xxxx) 
of 1 to 4 digits preceded by a 



73 through 80 



Not used 



additional field 
information 



ORIGIN. The origin of a program cannot be specified below the disk I/O subroutine that 
is used by the core load. The origin is determined by adding decimal 30 to the next higher 
addressed word above the end of the disk I/O subroutine used by the core load. If the 
address you specify is an odd number, the system uses the next highest even address as 
the origin. The following chart lists the lowest possible origins. If an invalid address is 
specified, the control record is ignored. 



Disk I/O 
subroutine 
in core 


Core load origin 


Decimal 


Hexadecimal 


DISKZ 
DISK1 
DISKN 


510 
690 
960 


/01FE 
/02B2 
/03C0 



RPG CONTROL CARDS 

functions 



Two RPG control cards specify operations to be performed by the RPG compiler. The 
first, the RPG control card, acts as a header for the source deck. Information coded in this 
control card indicates the compiler operations to be performed. 

The second control card, the RPG end-of-file control card, is required as the last card of a 
source program or a data file. 

The RPG control cards are placed in the input stream as follows: 




Source program 
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RPG Control Cards 



The following illustrates the stacked input required to compile an RPG source program, 
store the object program in the user area, and execute the object program: 




End of file signals end of data card input fiUi 



— RPG data file (if file not already stored on disk) 

Execute the program. X or any other entry in column 28 
will bring in the special ILS routines required by RPG. 

Get PROGN (program name) from working storage and 

store it in the user area. 



< Disk utility program call 

•——End of file card for source deck 

RPG source deck (specification statements) 

RPG control card 

Monitor control card to call the RPG compiler 
Monitor control card to initiate the job 



If the // DUP and *STORli records are omitted, the program is executed from working 
storage; however, the program is not available for future execution because it is not saved. 

If the program being compiled is not executed often, storing it on cards ratheT than oift disk 
may be advisable. The following illustrates the stacked input required to compile an RPG 
program and punch an object deck: 




Blank cards for object program 



Punch the named program (PROGN) into cards. 
The program is in working storage. 



_J-*f Disk utility program call 

< End of file card for source deck 

RPG source deck (specification statements) 

RPG control card 

\*4 Monitor control card to call the RPG compiler 

- Monitor control card to initiate the job 
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RPG Control Cards 



Then, the input stacked required to execute the object program from cards is illustrated 
by: 



//JOB 




I < End of file signals end of data card input file 



RPG data file (if file not already stored on disk) 



Execute the program. X or any other entry in column 28 
will bring in the special ILS routines required by RPG. 



RPG object program 



Store a program from cards to working storage. 



Disk utility program call 



Monitor control card to initiate the job 



Most RPG programs require input data during program execution. This data can be on 
data cards at execution time or can be stored at any time before execution in a predefined 
data file on disk. The following illustrates how a data file can be built on disk by an RPG 
program: 



y- 




— End of file signals end of data card input file. 
Data cards to be stored on disk in Fl LE1 . 



Execute object program. X or any other entry in column 28 
will bring in the special I LS routines required by RPG. 

Store object program 



— — Disk utility program call 

*"-~" End of file card for source deck 

RPG source deck including control card. On the File Description 
Specifications forms, define input file as cards, output file as disk. 
Object program to load data cards to FILE1 . 

_J« [ Monitor control card to call the RPG compiler 

Reserve 100 sectors on disk and label this area FILE1; "STORE DATA 
can also be used to reserve the disk storage space. 

Disk utility program call 

Monitor control card to initiate the job 
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The RPG compiler prints addresses of various routines in the key addresses of object pro- 
gram table. For example, the close files routine (located near the end of the mainline 
program) is included in this table. This routine may require from 2 to 16 additional words 
(hexadecimal) depending on the type and number of files to be closed. The address of this 
routine can be helpful when dealing with programs that exceed the available core storage. 
By adding the number of additional words to the address of the close files routine, the 
size of the generated mainline program can be determined. 

RPG data files may be sequential or indexed-sequential (ISAM). On an ISAM load function, 
the compiler prints the following information: 

• Filename 

• Number of sectors required if overflow is not needed 

• Number of sectors required if 10 pe'rcent overflow is needed 

This information can be used to reserve file space for ISAM records. See "Assembler and 
RPG Disk File Organization and Processing" in Chapter 6 for detailed information about 
RPG disk data files. 



general function 



RPG Control Card 

This first card of an RPG source program immediately following the RPG monitor control 
record must be an RPG control card. The information coded in columns 6 and 1 1 of this 
card indicate the functions that are to be performed by the RPG compiler. All other entries 
in the control card are described in the publication IBM 1130 RPG Language, GC2 1-5002. 



format 



Card column 


Contents 


Explanation 


1 through 5 


Described in IBM 
1 130 RPG Language 




6 


H 


Identifies this card as an 
RPG control card 


7 through 10 


Reserved 




11 


Blank, B, or D 


Blank indicates compilat 



12 through 80 



with a listing of the program. 
B indicates compilation only. 
D indicates a listing only. 



Described in IBM 
1130 RPG Language 



general function 



End-of-File Control Card 

This control card designates the end of an RPG source program and an RPG data file; 
therefore, an end-of-file control card must be the last card of an RPG source program and 
an RPG data file. 



format 



Card column 


Contents 


Explanation 


1 and 2 


/* 




3 through 80 


Not used 
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Chapter 6. Programming Tips and Techniques 



The information in this chapter is planned to help you use the 1 130 Disk Monitor System, 
version 2, more efficiently. The information is presented in the following order: 

1. General tips on monitor control and usage 

2. Data file processing 

3. Tips for the assembler programmer 

4. Tips for the FORTRAN programmer 

5. RPG object program considerations 

TIPS ON MONITOR CONTROL AND USAGE 

The tips in this section are of general interest to all programmers of the 1 130 DM2 system. 
These tips include: 

• Arranging stacked jobs 

• Using temporary job mode 

• Using the disk I/O subroutines 

• Restoring destroyed cartridges 

• Avoiding overprinting 

• Using programs and data files more efficiently 

• Using LOCALs, NOCALs, and SOCALs 

• Reading core maps and file maps 

• Reading the transfer vector 

• Using SYSUP for changing cartridges during program execution 

Stacked Job Input Arrangement 

Input to the monitor system includes control records, source programs, object programs, 
and data that are arranged logically by job. The monitor JOB control record designates 
the start of a job. You should consider the following when arranging the input for any 
job: 

• Any number of comments (// *) control records can be used before ASM, RPG, FOR, 
COBOL, DUP, or XEQ monitor control records. Comments control records cannot 
immediately follow ASM, RPG, FOR, or COBOL control records. 

When an *EQUAT supervisor control record is used after a JOB monitor control 
record, a comments control record cannot be placed between the JOB record and the 
EQUAT record. A comments control record cannot be placed between a // DUP con- 
trol record and the following DUP control record (* . . .). 

When supervisor control records are used after an XEQ or STORECI control record, 
comments control records cannot be placed between the XEQ or STORECI and the 
following supervisor control records. 

• Any records other than monitor control records that remain after completion of an 
assembly, compilation, or a subjob (XEQ) are passed until the next monitor control 
record is read. Also, after a Disk Utility Program (DUP) operation is completed, any 
records other than monitor control records or other DUP control records are bypassed. 
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• If an error is detected in an assembly or compilation or during the building of a core 
load for execution (XEQ), the resulting object program and any program or programs 
that follow within the current job are not executed. Also, all DUP functions are passed 
until the next valid ASM, FOR, RPG, or JOB control record is read if an error is de- 
tected in an assembly or compilation or during the building of a core load because of a 
DUP STORECI function. 

• If a monitor control record is read by the assembler, by one of the compilers, or during 
Macro Update Program (MUP) operations, execution of the assembler, compiler, or MUP 
is ended. The function indicated by the monitor control record is performed. 

The following stacked input arrangement assembles or compiles, stores, and executes pro- 
grams A and C, if source program errors do not occur and if working storage is large 
enough. 
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Source program A 



Assembler 

control 

records 



Source program C 



FORTRAN control records 



Object program B 



a 



JOB 



Cold start card (see cold 
start operating procedure) 
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If an error occurs in one of the source programs, the DUP *STORE operation is not per- 
formed for that program, and all following XEQ requests before the next JOB control re- 
cords are bypassed. Thus, if the successful completion of one program depends upon the 
successful completion of the previous one, both programs should be considered as one 
job and the XEQ control records should not be separated by a JOB record. 

How to Use Temporary Job Mode 

Temporary job mode (indicated by a T in column 8 of a monitor JOB control record) 
causes all programs stored in the user area during the temporary job to be deleted auto- 
matically when the next JOB control record is processed. 

In some cases, the available space in the user area may not be large enough for storage of a 
newly assembled or compiled program. When this happens, you must use the DUP delete 
function to clear the user area of old programs, and then store the new program. The nec- 
essity for such deletions can be avoided by using temporary mode when running jobs that 
included programs likely to be replaced at a later time, or that are infrequently used. 

Temporary mode is particularly useful when debugging a new program. 

Using the Disk I/O Subroutines 

All core loads, whether they use disk I/O or not, require one of the 3 disk I/O subroutines. 
As a minimum, a disk subroutine reads the core load into core and executes CALL EXIT, 
CALL LINK, CALL DUMP, and/or CALL PDUMP. 

uses and how Source programs written in assembler, FORTRAN, RPG, or COBOL can call any of the 

to call 3 I/O subroutines; however, only one disk I/O subroutine can be referenced in a given 

core load. Because of this, all programs and subroutines linked to in a core load must use 
the same disk I/O subroutine. The subroutine used by a core load is indicated in an XEQ 
monitor control record or a STORECI DUP control record. (Control records are described 
in Chapter 5.) Generally, DISKZ is used by FORTRAN, RPG, and COBOL core loads 
and DISK1 or DISKN by assembler language core loads. 

functions DISKZ is intended for use in an error-free environment, because it does no preoperative 

error checking. DISKZ is the shortest of the disk subroutines. 

DISK1 and DISKN provide more functions than DISKZ. These additional functions in- 
clude: 

• Validity checking of word count and sector addresses 

• File protection 

• LIBF-type calling sequence 

• Validity checking of the function indicator 

• Write without readback check option 

• Write immediate 

• Word count can be on an odd boundary 

DISKN provides 2 more functions than those just listed: 

• Simultaneous operation of as many as 5 disks 

• Faster operation when transferring more than 320 words 

More detailed information about the disk I/O subroutines is in the publication IBM 1130 
Subroutine Library, GC26-5929. 
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Restoring Destroyed Cartridges 

Cartridges containing data and/or programs in the user or fixed area that are difficult to 
replace can sometimes be restored for use after access to information on the cartridge is 
destroyed. 

Use the disk analysis function of the stand-alone utility program DCIP to restore sector 
addresses if only sector addresses are affected. (DCIP is described in Chapter 9.) 

A system reload can be performed if part of the monitor system (except LET, FLET, user 
and fixed area) is destroyed. Include in the reload the entire monitor system, except the 
system library. 

Use the patch function of the stand-alone utility program DCIP to restore individual words 
that are destroyed on a cartridge. 

How to Avoid Overprinting When Using // CPRNT 

In order to avoid overprinting when using the monitor CPRNT control record, the FOR- 
TRAN programmer should provide for spacing an extra line after the last output state- 
ment in a program. 

The assembler programmer should provide for spacing after printing following the last 
output statement in the program. 

How to Avoid Overprinting When Linking Between Programs 

Overprinting when linking between programs can be avoided by coding your program to 
space one line before linking to another program. This should be done because the core 
load builder assumes that a space before printing is not necessary; all monitor programs 
have a space after print. Overprinting should be avoided because an important core load 
builder message may not be readable. 

Usage of the EJECT Monitor Control Record 

An EJECT monitor control record is used during a job to start printing of a new page on 
the principal printer. For example, comments control records can be placed in a more 
readable position for the operator if followed by an EJECT control record. 
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Duplicate Program and Data File Names 

Names that are duplicates of IBM-supplied programs should be avoided in DUP store and 
delete operations. (The names of IBM-supplied programs are in Appendix C.) If a program 
being stored or deleted has the same name as an IBM program, the results of subsequent 
operations are not predictable. 

Because the DUP store functions check for duplicate names, 2 programs or data files with 
the same name cannot be stored on one disk. Two programs or data files can, however, have 
the same name if stored on separate disks. If your system has more than one disk drive, 
having programs with the same name on more than one disk on the system can cause 
problems when an attempt is made to execute or delete the named program. 



15 10 15 20 25 


30 35 40 45 50 


// JOB 1111 ZZZ2 




, ■ 




, 




// MP 




£S7fl££ PR0G1 


1111 


. 


! 


. : 




// OOP 


i 


%S70M PWGl 


2222 1 


. 




. - 




. :' 




// XEQ PHCG1 








, 




// dUP 


i 


lULtll PROW 




; 






This sequence of control records cause PROG1 on the cartridge labeled 1111 to be exe- 
cuted when you may have wanted PROG1 on 2222 executed. A similar problem can occur 
in the delete operation. In this example, PROG1 on 1111 is deleted; you may have wanted 
to delete the program on 2222. 

To avoid this problem: 

• Assign a unique name to each program and data file. 

• If you do not know the contents of a cartridge that is on the system, and the cartridge 
is not needed for your job, make the drive not ready. 
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Disadvantages of Storing a Program in DCI Format 

Before you decide to convert to and store a program in disk core image (DCI) format, con- 
sider the advantages gained in loading time of a DCI program against the following dis- 
advantages. 

An important consideration is the effect that system maintenance can have on a DCI pro- 
gram. Subroutines from the IBM-supplied system library that are called by a program are 
stored with a program in DCI format. If system maintenance changes a subroutine after 
a DCI program is stored, the subroutine in the system library is changed; however, the 
copy stored with the DCI program is not. In this case, the DCI program must be deleted 
and rebuilt (STORECI) after the maintenance modification is made. 

If the user or fixed area is expanded after a DCI program is stored, working storage files 
that are referenced by the DCI program may extend beyond the available working storage 
during execution. This problem is not recognized until an attempt is made to perform 
disk I/O operations past the end of the cartridge. 

Another important consideration concerns DCI programs that reference files that are not 
placed in working storage during execution. An error occurs if an attempt is made to 
store in DCI format a program that references a file in the user area, because the location 
(sector address) of the referenced file may change as a result of program deletions. The 
DCI program subsequently references such a file by the old sector address. The results 
are unpredictable. 

A similar problem can occur if the DCI program references a file stored in the fixed area, 
even though the operation is allowed. The file might be deleted and another stored in its 
place after the DCI program is stored. This problem can be complicated by the fact that 
not only are sector addresses built into a DCI program, but the logical drive codes are 
also. In this case, you must make certain that every time the program is executed that all 
the required disk cartridges are mounted on the same logical drives as when the program 
was originally stored. 

A DCI program can be executed on a system with a configured core size different from the 
system on which the core load was built, if the size of the core load does not exceed the 
different core size. 



Size Discrepancies in Stored Programs 

The disk block count of a program is printed and becomes a part of the LET or FLET 
entry when the program is stored. When a program is stored from cards to the user or 
fixed area, the disk block count can be greater than when the same program is stored from 
working storage. The reason for this discrepancy is that a DSF header is created for each 
card when a program is stored from cards to disk. Therefore, any 2 headers in the stored 
file are a maximum of 51 words apart. When the program is stored from working storage, 
the distance between headers is limited by the disk buffer size, 320 words. 

The increased disk block count noted when the program is stored from cards accommo- 
dates the expanded size of the file caused by the additional headers. 
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Dumping and Restoring Data Files 

Dumping of important data files to cards is often advisable so that the files can be restored 
later if the cartridge containing them is destroyed. Use DUMPDATA to dump a file to cards 
and STOREDATA to store these cards back on disk. 
DUMPDATA dumps by sector count. For example, the control record: 
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*DUMPDATA 
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causes 3 sectors to be dumped to 18 cards; 17 cards of 54 words and one card of 42 words. 
The last 12 words of card 18 do not contain data. 

STOREDATA stores by card count. To store the cards in this example, the control 
record: 



1 5 10 15 20 25 30 35 40 45 50 


*Sl 
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causes the contents of these 18 cards, excluding the contents of the 12 unused words on 
card 18, to be stored back in 3 sectors. Note that if you use DUMPDATA to dump to 
cards, the number of cards (same as the last— highest— sequence number in cc 78—80 of 
the cards dumped) is the number to enter in the count field of the STOREDATA card. 

STOREDATA for Cards Not Processed by DUMPDATA 

If you use STOREDATA to store cards produced by a function other than DUMPDATA, 
some of the words in the last card may not be stored. To prevent this, use the following 
formula (based on the number of cards) to determine the card count to specify in the 
count field of the STOREDATA control record: 



1. 



Use the formula: 



Cx54 
320 



= S 



where 

C is the actual number of cards; 54 is the number of data words that can be 
contained in a card; 320 is the number of words that can be contained in a 
sector, and S is the number of sectors required for the file. 

If this formula produces a remainder that is less than 54 and not zero, add one to 

the card count to be specified in the STOREDATA control record, and place a 

blank card at the end of the data deck. 
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Use of Defined Files 

When an *FILES supervisor control record follows a // XEQ monitor control record, the 
core load builder searches LET and/or FLET for a specified file name. If the name is 
found, the sector address of the file is inserted in the file table identified by the associated 
file number specified on the *FILES control record. (A file table is created during program 
assembly or compilation by the assembler FILE statement or the FORTRAN DEFINE 
FILE statement, respectively.) If the file name is not found in LET or FLET, the file is 
defined in working storage. 

An *FILES control record after an *STORECI DUP control record is processed in the 
same way, except that files found in the user area are flagged as invalid. 

A suggested way of initially allocating a disk area for a data file in the user area or fixed 
area is to use the DUP *DFILE function. The number of sectors to be reserved is deter- 
mined on the basis of the number of records the file is to contain, and the size of each 
record. Use the following to calculate the number of required sectors for a file: 

1 . Compute the number (N) of records that can be contained in one sector: 

xt 320 

where 

L is the length in words of each record in the file. Disregard the remainder, 
if any. 

2. Compute the number of required sectors (S): 

Q _M_ 

b "N 

where 

M is the total number of records in the file. 

N is the number of records computed in Step 1. 

Round the answer to the next higher number if the answer has a 

remainder. This answer is the sector count that you specify in an 

*DFILE control record to reserve file space in the user area or fixed 

area. 

Mainline Programs that Use All of Core 

Before you write a program that occupies all of core storage, consider that extensive re- 
writing may be required if IBM-supplied subroutines called by the core load are expanded 
due to modifications. 

The Use of LOCALs 

A core load that is too large to fit into core for execution can be executed by specifying 
as LOCALs some of the subroutines called by the core load. Since a core load that utilizes 
LOCALs does not execute as fast as it does without LOCALs, keep the following in mind 
when specifying LOCALs: 

• Specify infrequently called subroutines as LOCALs. 

• Plan your program so as to minimize the number of times that LOCALs are called into 
core. 

• Keep the number of specified LOCALs to a minimum. 
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LOCAUCalls-a- LOCAL 

The assembler language programmer can execute core loads in which a LOCAL calls another 
LOCAL. Any character punched in column 26 of the XEQ control record causes all DSF 
core loads for that execution to allow LOCALs to call LOCALs. In a series of LOCAL- 
call-LOCAL subroutines, you must pass the link word (mainline program return address) 
in all LOCALs (type 4 or 6 subroutines) that are referenced by CALL statements. The 
return address must be passed in order to return from the last LOCAL to the place from 
which the first LOCAL was called. Assembler is the only language that allows the return 
address to be passed. Therefore, LOCAL-calls-a- LOCAL is restricted to assembler lan- 
guage use. 

For a FORTRAN program, the core load builder cannot detect a LOCAL-calls-a-LOCAL 
condition between FORTRAN format I/O routines and the I/O subroutines that they 
call. Therefore: 

• A FORTRAN format I/O routine and any routine that it calls cannot both be 
specified as LOCALs in the same core load. 

• A user subroutine that contains I/O statements and the FORTRAN I/O routines 
that are used to execute those statements cannot both be specified as LOCALs 
in the same core load. 

LOCAL and NOCAL Control Record Usage 

When using LOCAL and NOCAL control records, keep the following in mind: 

• A subroutine cannot be specified as a LOCAL if it calls another subroutine also speci- 
fied as a LOCAL. For example, if A is a LOCAL subroutine and A calls B and B calls 
C, neither B nor C can be specified as LOCAL subroutines for the same program. The 
assembler programmer can avoid this restriction by using the LOCAL-calls-a-LOCAL 
optibn discussed in the previous section of this chapter. 

• If a subroutine is specified as a LOCAL and SOCALs are employed, the subroutine is 
made a LOCAL even though it otherwise would have been included in one of the 
SOCAL overlays. 

• If a subroutine is specified as a LOCAL, it is included in the core image program even 
if it is not called. 

• When using LOCAL control records, the total number of mainlines and subroutines; 
specified cannot exceed: 

3M + 2S < 640 

where 

M is the total number of mainlines specified in the LOCAL control records. 
S is the total number of subrouitnes specified in the LOCAL control records. 

If execution is from working storage, the mainline program in working storage is 
counted as one, although it is not specified on a LOCAL record. This restriction also 
applies to NOCAL control records. 

• Only subroutine types 3, 4, 5, and 6 can be named on LOCAL and NOCAL control 
records. (A description of subprogram types is included in Appendix I.) Subprogram 
types 3 and 5 are referenced by LIBF statements, and types 4 and 6 with CALL state- 
ments. Types 5 and 6 are ISSs; types 3 and 4 are subprograms. 

• Conversion tables, such as EBPA and HOLTB, cannot be used as LOCALs. The conver- 
sion tables are listed in Appendix C. 

• SCAT1 , SCAT2, and SCAT3 cannot be used as LOCALs. 

• Although a subroutine's instructions or data areas may be altered during execution, 
later LOCAL/SOCAL reloading may put the subroutine back into its original state. 
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The Use of NOCALs 

NOCALs provide a method of including a subroutine in a core load even though the sub- 
routine is not called. The advantages of NOCALs can be illustrated by the following. 

You can write debugging subroutines, such as a specialized dump subroutine, and include 
them in a core load as NOCALs. Then during program execution, you can execute the 
debugging subroutine by manually branching to its entry point. 

If an interrupt service subroutine (ISS) for level 5 is made a NOCAL during a core load, 
you can execute it by pressing PROGRAM STOP; an interrupt on level 5 is made, and 
PROGRAM START returns execution to the mainline program. A subroutine to monitor 
execution of a mainline program or to gather statistical information can be designed. 

The following sample trace subroutine for interrupt level 5, ILS05, determines when the 
contents of a core location are destroyed by being changed to zero. Location /0500 is 
used in the example. This subroutine is written and stored as subtype zero in the user 
area. The sample ISS is assembled as level 5 and stored in the user area. The ISS trace 
subroutine is specified as a NOCAL when the mainline program is executed; the ISS and 
associated ILS05 are included as a part of the core load. During a WAIT instruction in 
the mainline program, the console mode switch is turned to INT RUN to cause a level 5 
interrupt after execution of each mainline statement. The trace subroutine is entered 
and, in this example, waits when core location /0500 becomes zero. A dump of the program 
can be used to determine the conditions that caused the change to zero. 
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Note. Provision must be made to test the device status word for the keyboard/console printer if you want to distinguish between levul 5 
interrupts initiated by the PROGRAM STOP key and interrupts from INT RUN (see IBM 1130 Functional Characteristics, GA26-5881). 
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core maps 



restrictions 



decreasing execution 
time 



The Use of SOCALs 

A subroutine that is included in one SOCAL overlay must not call a subroutine included 
in another SOCAL overlay or cause another SOCAL overlay to be loaded into core before 
execution of the current SOCAL is complete. This restriction is required because the IBM- 
supplied 1 130 subroutines that are used in SOCALs are not re-enterable. 

Note that disk I/O is used every time a SOCAL is read into core, thus disk I/O is sometimes 
entered without your direct knowledge. 

When the 1627 Plotter is used by a program, the following subroutines must not be in a 
SOCAL for that program: EADD, FADD, FMPY, EMPY, XMD, XMDS, and FARC. These 
must instead be incore subroutines. You can accomplish this by: 

1 . Dumping these programs to cards or WS 

2. Deleting the programs 

3. Storing the programs with subtype zero 

The use of SOCALs increases the length of time for execution of a program. Some of the 
extra time can be avoided by planning your program so as to minimize the number of times 
that SOCALs are called into core. Ideally, your program should be written in sections, 
each employing a single SOCAL; input, computation, and output. Plan input and output 
carefully so as to separate disk and nondisk operations whenever possible. 



Reading a Core Map and a File Map 

The core maps described in this section are taken from the sample programs supplied with 
the monitor system. Sample program listings are in Appendix H. These maps include: 

• The execution address of the mainline program 

• The names and execution addresses of all subroutines in the core load 

• The file allocations 
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assembler core map 



The following is the core map from the assembler sample program (program 2): 



assembler 


// XEQ 


L 


core map 


R 41 7908 (HEX) foCS UNUSED BY CO 




CALL TRANSFER VECTOR 




FSGR 


0248 




LIBF TRANSFER VECTOR 




FARC 


069A 




XPCS 


067E 




HCLL 


062E 




PRTY 


05DE 




EBPA 


058E 




FACO 


04C0 




FDIV 


053C 




FLD 


0488 




FADDX 


04E3 




FHPYX 


049E 




FSTO 


046C 




FGETP 


0452 




NGRtf 


0428 




TYPEO 


0312 




EBPRT 


02AC 




IFIX 


0280 




FLOAT 


0230 




SYSTEK 


SUBROUTINES 




ILS04 


0CC4 




ILS02 


00B3 




01FE (HEX) IS THE EXECUTION 



LOAD 



AD OR 



Message R41 (not an error message) indicates that /7908 words of core storage are not 
occupied by the core load. Only one subroutine (FSQR) is called with a CALL statement, 
but several subroutines are called with LIBF statements. The ILS02 and ILS04 subroutines 
are required; however, their addresses indicate that they are a part of the resident monitor 
and not in the core load. The entry point address to the mainline program is /01FE. 

The following is the core map from the FORTRAN sample program run on a 4K system 
(program 1): 
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FORTRAN core map 



FORTRAN 


// XEG L 2 


core map 




on4K 


♦LOCAL, FLCAT f FARC f 


system 






♦ FILESU03,FILEA) 




FILES ALLOCATION 




103 02EA 0001 




101 C000 0001 




102 0001 0001 




STORAGE ALLOCATION 



OEDO FILEA 
0E00 02EC 
OEDO 02EC 



ITIONAL CORE REQUIRD 
TH/FUNC SGCAL WD CNT 
0, I/O SOCAL WD CNT 
K FI/G SOCAL WD CNT 
UNUSED BY CORE LOAD 



R 40 03BF (HEX) ADD 
R A3 0124 (HEX) ARI 
R 44 06B2 (HEX) FI/ 
R 45 02B6 (HEX) CIS 
R 41 0004 (HEX) fcDS 
LIBF TRANSFER VECTOR 

XMCS 09AA SOCAL 1 

EBCTB 0F51 SGCAL 2 

HCLTB 0F15 SGCAL 2 

GETAD 0ED2 SOCAL 2 

NORM 07C0 

FACDX 0955 SOCAL 1 

FSBRX 092C SOCAL 1 

FMPYX 08F8 SOCAL 1 

FDIV 08A6 SOCAL 1 

FSTOX 076C 

FLDX 0788 

SCCOK 0978 SOCAL 3 

SDFX 08E3 SOCAL 3 

SDWRT 0901 SOCAL 3 

SIGFX 09A6 SOCAL 2 

SUBSC 07A2 

SICI 09AA SOCAL 2 

SCGMP 0983 SOCAL 2 

SWRT 08A2 SOCAL 2 

SRED 08A7 SOCAL 2 

FSTO 0770 

FLD 078C 

PRNTZ 0DF8 SOCAL 2 

CARDZ 0D48 SOCAL 2 

SFIO 09BF SOCAL 2 

SDFIC 0960 SOCAL 3 

HGLEZ 086A LOCAL 

PAUSE 086A LOCAL 

IF-IX 086A LOCAL 

FARC 086A LOCAL 

FLOAT 086A LOCAL 
SYSTEM SUBROUTINES 

ILS04 00C4 

ILS02 00B3 

ILS01 0F56 

ILSOO 0F6F 

FL1PR 0804 

04C1 (HEX) IS THE EXECUTION ADDR 
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The principal difference between the assembler core map and this FORTRAN core map is 
that the FORTRAN core map includes a file map. 

File 103 is equated to a disk data file named FILEA by the * FILES control record. Under 
FILES ALLOCATION, file 103 is listed with a beginning sector address of /02EA, is one 
sector in length, and is stored on a cartridge labeled 0ED0. If file 103 had required more 
than the 2 sectors available in FILEA, the record count would have been reduced to make 
the file fit in FILEA, and the file map entry would be: 

103 /2EA 0002 0ED0 FILEA TRUNCATED 

Files 101 and 102 are in working storage and are not defined in the *FILES control 
record. The last entry for each file indicates whether the file is in the user or fixed area, 
or in working storage. If the file is in the user or fixed area, this entry is the name of the 
file (FILEA in this case). If the file is in working storage, the last entry for each file is the 
sector address of working storage. 

The second entry for each file in the user or fixed area is the absolute sector address of the 
first sector of the file. For files in working storage, the second entry is the address rela- 
tive to the first sector of working storage. Thus, the absolute sector address of file 101 is 
/0000 + /02EC; for file 102, /0001 + /02EC. 

Note that this program when run on a 4K system requires both LOCALs and SOCALs. 
The programmer defines the LOCALs in the *LOCAL control record. These subroutines 
are identified by the term LOCAL in the core map. The core load builder selects the 
SOCAL subroutines, and these subroutines are identified by the term SOC AL followed by 
a SOCAL overlay number in the core map. SOCAL option 2 is used for this program be- 
cause all 3 SOCAL overlay numbers are used. SOCAL option 1 uses SOCAL overlay 1 
and 2 only. 

Under STORAGE ALLOCATION, message R40 indicates that the core load exceeds the 
capacity of core storage before SOCALs are employed by /03BF words. Messages R43, 
R44, and R45 indicate that SOCALs 1, 2, and 3 require /0124, /06B2, and /02B6 words 
of core, respectively. This information indicates that since SOCAL 2 is much larger 
than SOCAL 1 , more arithmetic and function subprograms can be called at little extra 
cost in core. Message R41 indicates that after SOCALs are employed, /0004 words of 
core are not used by this core load. 
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The following is the core map from the same FORTRAN sample program (program 1), 
but run on an 8K system: 



FORTRAN 
core map 
on8K 
system 



// XEG L 2 

*LCCAL,FLCAT,FARC, I F IX 

*FILES(103,FILEA) 
FILES ALLCCATICN 

1C3 02EA C001 OEDO 
1C1 COCC 0C01 OEDO 
102 0001 0001 OECO 
STCPAGE ALLCCATICN 
ft 41 0C08 (HEX) WDS 
LIHF TRANSFER VECTCR 

EBCTB 12BF 

HCLTB 1283 

GETAC 1240 

XHCS 1224 

HCLEZ 11EE 

PAUSE 11D8 

NORN 11AE 

FACDX 1159 

FSBRX 1130 

FFPYX 1CFC 

FCIV 1CAA 

FSTCX 1C52 

FLCX 1C6E 

SCCCf" 0842 

SCFX 07AC 

SCWRT 07CB 

SICFX 0R26 

SUBSC 1088 

SICI 0B2A 

SCCNP 0B03 

SfcRT 0A22 

SRED 0A27 

FSTC 1C56 

FLC 1C72 

PRNTZ 0F78 

CARDZ 0EC8 

SFIO 0B3F 

SDFIC 082A 

I F I X 1338 LOCAL 

FARC 1338 LCCAL 

FLCAT 1338 LCCAL 
SYSTEN SUBRCUTINES 

ILS04 CCC4 

ILS02 CCB3 

ILS01 1366 

ILSOC 137F 

FLIPR 12D2 

04C1 (HEX) IS 



FILEA 
02EC 
02EC 



UNUSED BY CORE LOAD 



THE EXECUTION ADDR 



Note that fewer LOCALs are specified, and that SOCALs are not necessary; the entire pro- 
gram can be contained in 8K core. 
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The following is the core map from the RPG sample program (problem 3): 



RPG core 
map 



// XEO L 

R 41 6D16 (HEX) WDS 

CALL TRANSFER VECTOR 

RGERR 0C24 

HLEBC 0A1A 
LIBF TRANSFER VECTOR 

RGSI5 11E4 

RGBLK 11AA 

RGEDT 105A 

RGMV2 0FA6 

RGADO ODOD 

RGSU 0D80 

RGMV5 0C72 

RGMV3 0050 

RGCMP OCFE 

RGMV1 0C6A 

PRNT1 0A9A 

ZIPCO 097A 

CARDO 087C 
SYSTEM SUBROUTINES 

ILSX4 1249 

ILSX2 126D 

ILSX1 1286 

ILSXO 12A3 

020F (HEX) IS 



UNUSED BY CORE LOAD 



THE EXECUTION ADOR 



The information in the RPG core map that is different from the assembler or FORTRAN 
core maps is that the special ILS subroutines (named with an X, as ILSX4) are used. The 
special ILS subroutines are required by RPG and are called when any character is punched 
in column 28 of the // XEQ control record. 

Locating FORTRAN Allocation Addresses 

Variable, constant, and statement allocation addresses are relative to the loading address 
of a FORTRAN program if an *ORIGIN control record is not used. The loading address 
(origin) is determined by adding decimal 30 to the next higher addressed word above the 
end of the disk I/O subroutine used by the core load. The following chart lists the lowest 
possible origins, depending on the disk I/O subroutine in core: 



Disk I/O 
subroutine 
in core 


Core load origin 


Decimal 


Hexadecimal 


DISKZ 
DISK1 
DISKN 


510 
690 
960 


/01FE 
/02B2 
/03C0 
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transfer vector 



The absolute addresses of variables, constants, and statements are found by adding their 
allocation addresses (obtained from a listing) to the loading address. 

If an *ORIGIN control record is used, you designate the loading address (not lower than 
the addresses in the previous chart). In this case, the allocation addresses printed in a 
listing are absolute addresses. 

The variable allocations that follow are taken from the FORTRAN sample program 
(program 1) in Appendix H. 



VARIABLE ALLOCATIONS 

A(R )=C0DC-0016 

V3(I )=01F2 

L2( I )=01F8 

K(I )=01FE 

D(R )=01EE 

MKI )=01F5 

N(I )=01FB 



X(R >=00F0-00DE B(R )=01EC- 

M(I )=01F3 L(I )=01FA 

Mil )=01F9 N (I )=01FA 

IK ( I )=01FF I1U )=02C0 

VKI )=01F0 V2(I )=01Fl 

M2(I )=01F6 LIU )=01F7 

1(1 )=0iFG J(I )=01FD 



00F2 



The real variable array A is allocated between the loading address + /OODC and the loading 
address + /0016. Constant and statement allocations are calculated in a similar manner. 
Notice that the 100-element array A requires 200 core locations (2 words per element). 
Because all FORTRAN arrays are allocated in reverse order, A (1) is assigned the two rela- 
tive addresses /OODC and /OODD, A (2) begins at /OODA, and A (3) begins at /00D8. 

The relocation factor (the actual core address of the first word) of a FORTRAN sub- 
program is obtained by subtracting the relative entry point address (from the subprogram 
compilation listing) from the actual entry point address (in the core map). 

Reading the Transfer Vector 

The contents of the transfer vector are determined from a core dump by starting at the 
high end of core and marking off words backwards as illustrated by the following: 



Dummy one-word entry 
(if necessary) to ensure 
odd address for FAC 



Second First 
CALL CALL 



Last Second First Indicators FAC Last Second First 

• LIBF LIBF LIBF CALL CALL CALL 

[.JUL 1 ( (4 1 1 1 ! JLI I ..I....I ■■! ...1 1 1 i ii--^X^ -****{ \~*™ 

>«tafl^^l ^-^i— ^-^-^ ^^^^» W1 ^^ T^- y en ***W 

*****& LIBF TV giiii****^ ^Sj CALL TV VT >i| COMMON V 



End of 
core 



Low core 



High core 
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Continuation of the job must be delayed until any newly mounted cartridges are ready. 
The assembler WAIT statement and the FORTRAN PAUSE statement provide the necessary 
delay. 

The IDs of the cartridges being used must be specified. If zero is specified for the master 
cartridge (logical drive 0), the master cartridge for the current job is assumed. When less 
than 5 cartridges are used, specify the IDs for the cartridges to be used and an ID of zero 
to indicate to SYSUP that all cartridges have been specified. If, for example, 3 cartridges 
are used for a SYSUP operation, the cartridge ID list is coded as follows: 



Label 
21 25 




Operation 
27 30 




F 
32 


T 
33 




Operands & Remarks 
35 40 45 50 55 60 65 70 




till 




i • i 












i i i i i i i i I I i I I I i I i I i I I I I i i 


i i i i i i i i i i 




i i i i 




i • i 












I i i i i i i i i i i i i i 


i i i i i i i i i i 




i i i i 




i • i 












i i i i i i i i i i i i i i i i i i i i 


IIII L-J_.J 1 1. _!..__ 




usr, 




Dfi x 












/,0>0>0>0> i . i , , ^AsiStUtmet M^sJ&n 


^/•i/iav,^,*,;, 


i i i i 




DA 












AUildx . (idaxrih ,/,# ,o.f, i/iO,a 


i,c,a,/ t ,i,;, , , , 




i i i i 




DA 












/.23£2, .,-,,, .r.Ga./-,/. ,/,a ,*,f, ,/,<?,? 


/'l£ltfl/l \?i)\ 1 1 1 




iiii 




IXC 












Ad&dd . , . . . iCiLnrfJ&af&Si ■ *,/?■</■ 


OA ././.tf./J, , . 




i i i i 




i i 












i i i i i i i i i i i i i i i i i i i i i i i i i 


1 1 1 1 1 1 1 L_L I 





The FORTRAN calling sequence for SYSUP is: 



20 



25 



30 



35 



40 



45 



50 



PA 



USE 



CALL 



234 



msu\ 



PC 



7Ch 



Vr 



PRQGMM 



) 
TAW 



where 

a indicates the last item in an array that contains the IDs of the cartridges being used 
for the SYSUP operation. For example: 

CALL SYSUP (K(5)) 

AT is a one-word integer array. Because FORTRAN arrays are stored in reverse order, the 
first item read by SYSUP is the last item K(5) stored in the array. Thus, K(5) is the entry 
for logical drive 0, the master cartridge. This item in the array can contain zero, in 
which case, the master cartridge defined for the current job is assumed. 

The array cannot be longer than 5 words, but it can be shorter. If less than 5 words are used, 
the first item K(l) placed in the array must be zero to indicate to SYSUP that all cartridges 
have been specified. For example, a 3-cartridge FORTRAN array is specified as (K(4)) with 
K(l) containing zero. 

After execution of SYSUP is completed, a list of the cartridges is printed. Error messages 
printed during SYSUP operation are included in Appendix A. 
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on a single 
drive system 



Reeling 

Reeling is the process of continuing a long data file from one cartridge to other cartridges 
and is done with SYSUP and program linking. This operation might be performed as fol- 
lows. 

Suppose your system has only one disk drive, the internal disk in an 1131 CPU, and you 
want to sequentially process a long data file that does not fit on one cartridge. The first 
part of the file can be defined on one cartridge and the second part on another. The pro- 
gram that accesses this file can be written as 2 parts and linked together. The first part 
processes the first part of the data file, and the second part of the program processes the 
rest of the data file. 

Assume the program is written in FORTRAN, and the termination of the first link con- 
sists of a PAUSE (to allow for mounting the second cartridge in place of the first), fol- 
lowed by CALL SYSUP and CALL LINK to the second part of the program. When 
SYSUP is called, DCOM and COMMA are updated on the second cartridge. 



15 10 15 20 25 30 35 40 45 50 


55 60 


65 72 


JUKITE (3,44) 








4i EQBMAT (ilglUJk WO- 1 EXECUTED. LUAMl CMWdGES . 1177} 




PAUSE 1111 








CALL SYSUP (LCI)) 








CALL L/M< (LINHZ) 


















on a multidrive 
system 



The only constraint is that the second cartridge must be a system cartridge. If the FOR- 
TRAN compiler is not on the second cartridge, the second part of the program can be com- 
piled on the first cartridge, dumped to cards, and stored on the second cartridge. Sample 
program 5 in Appendix H illustrates how this is accomplished. For this sample program, 
both cartridges are system cartridges, both contain a fixed area, but only cartridge 0ED0 
includes the FORTRAN compiler. The second part of the program (LINK2) is compiled 
on the first cartridge, dumped to cards, and stored on cartridge 0ED4 that contains the 
second part of the data file. 

One-word integers are specified for both parts of the program. Thus, the 2-word array 
referenced in LINK1 contains a zero in L(l), and the second cartridge ID in L(2). Be- 
cause FORTRAN arrays are stored in reverse order, SYSUP first reads L(2) that identifies 
the new cartridge on the system and L(l) that indicates no more cartridges. 

Another method of using SYSUP that is suitable to any FORTRAN precision is to call an 
assembler language subroutine, with undefined precision, that calls SYSUP. 

Sample program 6 in Appendix H illustrates sequential file processing with 2 cartridges 
and 2 disk drives. If your system has more than one disk drive, you can avoid the SYSUP 
and CALL LINK sequence of sample program 5 by naming both cartridges on the // JOB 
control record. As in the description of program 5, you must write your program to 
process the 2 portions of the data file separately, even though they may have the same 
name. In the case of duplicate names, the *FILES control record can name the 2 files, 
both with the same name but with different cartridge IDs. 

All files referenced in a given core load must be stored in the user or fixed area when the 
core load is built. This applies to *FILES references and assembler DSA statements alike. 
If you desire to, you can divide your program into links, each with its own associated 
file. 



6-22 



reeling in general 



Data File Processing 
FORTRAN disk files 

If sufficient drives are not simultaneously available for all cartridges involved to be speci- 
fied, a reeling method must be used. Any cartridge that contains a data file that is named 
in an *FILES control record must be on the system at the time the *FILES control record 
is processed after either a // XEQ or *STORECI control record. Similarly, a DCI program 
that accesses files in a fixed area must be executed with the same cartridges on the same 
drives as when the program was built. 

For example, if sample program 5 in Appendix H is stored in DCI format with cartridge 
OEDO on logical drive and cartridge 0ED4 on logical drive 1, these cartridges must be 
on the same logical drives each time the program is executed. 

These requirements are due to the fact that the core load builder assigns absolute sector 
addresses, including logical drive codes, for files in the user or fixed area as a core load is 
built. 



DATA FILE PROCESSING 



This section describes disk data file organization and processing as follows: 

• FORTRAN formatted and unformatted I/O 

• Assembler and RPG sequential and indexed sequential access method (ISAM) files 

File organization includes defining the required disk space for a new file, and how data is 
placed in the file. File processing includes how information in files is used and modified. 

FORTRAN Disk File Organization and Processing 

The FORTRAN READ and WRITE statements call disk I/O subroutines to access disk 
data files. The disk files are organized sequentially like magnetic tape files, except that 
random access is possible. This analogy to magnetic tape files is helpful in understanding 
the processing of the file records. Data conversion is not possible with FORTRAN I/O. 
The terms formatted and unformatted refer only to the organization of records within 
files. 

The logical unit numbers and maximum record sizes that are used in FORTRAN READ 
and WRITE statements are listed in Figure 6-1. Avoid the use of the actual logical unit 
numbers in READ and WRITE statements; the use of integer variables provides for easier 
program modification. 
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Logical 

unit 

number 


Device 


Kind of 
transmission 






Record size allowed 




1 


Console Printer 


Output only 


120 




2 


1442 Card Read/ 
Punch 


Input/output 


80 




3 


1132 Printer 


Output only 


1 carriage control + 120 




4 


1134/1055 
Paper Tape 
Reader Punch 


Input/output 


120, plus max. of 80 
case shifts for PTTC/8 
code, plus NL code 




5 


1403 Printer 


Output only 


1 carriage control + 120 




6 


Keyboard 


Input only 


80 




7 


1627 Plotter 


Output only 


120 




8 


2501 Card Reader 


Input only 


80 




9 


1442 Card Punch 


Output only 


80 




10 


UDISK 


Unformatted 
input/output 
without data 
conversion 


320* 



'Unformatted disk I/O comprises 320 word records (including a 2-word header). The 
first word of the header must contain the count of the physical record within the 
logical record (see example following). The second word of the header must contain 
the number of effective words in the individual physical record. The second word of 
the header of the last physical record within a logical record must have the sign bit 
(-) on. Unformatted disk characters are stored in as they appear in core storage. 

Example: 



DIMENSION A (400) 
WRITE (10) A 



800 words 



Physical records (maximum record length 
320 words due to disk sector size) 



Logical record 
(total number of 
words to be written) 



-< 



318 



DATA WORDS 



2 


318 


DATA WORDS 



3 


-164 


DATA WORDS 



z 



164 and sign bit (/80A4). /Vof/FF5C. 



An end-of-file record occupies one sector. Word one of the header must be 1 and 
word two must be a negative zero (/8000). 



Figure 6-1. FORTRAN I/O logical units and record sizes 
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Formatted FOR TRA N I/O Statements 

A formatted disk file is created by a FORTRAN DEFINE FILE statement. The file is 
assigned to working storage unless the file number is equated to an existing file in the user 
area or fixed area by an *FILES supervisor control record (see "Use of Defined Files" in 
this chapter). The DEFINE FILE statement specifies the number of records in the file and 
the record length. In analogous magnetic tape terminology, a formatted file contains fixed 
length records with a maximum record length of 320 words. 

File records are written backwards in the physical sectors; the first record begins at the end 
of the first sector. Records are filled backwards, with an exact core image of each variable 
written adjacent to the previously written record. The following illustrates how sectors 
and records are filled. 





SE 


CTO 


R 1 












SECTOR 2 








SECTOR 3 






Record 




Record 


Record 






Record 




Record 


Record 






Record 




Record 


Record 




n 


^y 


2 


1 






2 


n 


JL 


n+2 


n+1 






3n 


n 


2n+2 


2n+1 


*«*— V— — ~ 


u ' 




< 


v— «— V— — 




Tr 






u 




Unused 


/ 
/ 
/ 
/ 
/ 
/ 


\ Unused 
\ 

\ 
\ 
\ 
\ 
\ 






Unused 






/ 


t 






\ 
















*•* 




Variable 2 


Variable 1 























formatted data 
file example 



If writing of variables specified in a WRITE statement exceeds the record size, writing 
continues into the next record until the variable list is exhausted. However, if the total 
size of the file is exceeded because of data exceeding the defined record size, the I/O 
operation halts with /F101 displayed in the ACCUMULATOR. 

This example assumes a FORTRAN program with the following specification statements: 



1 5 10 15 20 25 30 35 40 45 50 


D£F7a/£ FILE 17 lii * 4 *U*kkl 


H^EhlSlOM 71(5) ,1(5) 


DATA till .I,2..t,3 .$ ± 4.J*5 .K±l71 *Z*3 9 4 ± 5l 







For this example, file 1 is equated to a 2-sector file named DATA1 (in the user area or 
fixed are) by the following *FILES control record: 



1 5 10 15 20 25 30 35 40 45 50 


Pile 


sc 


u 


V 


A 


7 


A 


1. 


) 


























































... 
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The following shows the contents of the first 2 records of DATA1 after each of the 
WRITE statements under"I/0 executed" is executed. (Assume that the words of DATA 1 
contained FFFF before execution. XXXX entries indicate unreferenced FORTRAN 
fill words.) 



Precision specified 
•ONE WORD INTEGERS 

•ONE WORD INTEGERS 

•ONE WORD INTEGERS 
None 

•EXTENDED PRECISION 

•EXTENDED PRECISION 



•EXTENDED PRECISION 
•ONE WORD INTEGERS 



I/O statements executed 

DO 5 J = 1.2 
5 WRITE (1'J)I(J) 

DO 5 J = 1,2 
5 WRITE (1'J)I(J),R(J),I(J> 



Record 2 of DATA1 
FFFF FFFF FFFF 0002 

0002 4000 0082 0002 



WRITE (1'1)<MJ),J=I,5) FFFF FFFF FFFF 0005 



D05J= 1,2 
5 WRITE (1'J)KJ) 

DO 5 J = 1,2 
5 WRITE (1'J)I(J) 

D0 5J= 1,2 
5 WRITE (1'J)R(J) 



FFFF FFFF 0002 XXXX 



Record 1 of DATA1 
FFFF FFFF FFFF 0001 

0001 4000 0081 0001 

0004 0003 0002 0001 
FFFF FFFF 0001 XXXX 



FFFF 0002 XXXX XXXX FFFF 0001 XXXX XXXX 



FFFF 0082 4000 0000 



WRITE (1'1)I(1) ( R(1).I(2) FFFF FFFF FFFF 0002 



FFFF 0081 4000 0000 



0081 4000 0000 0001 



SECTOR 1 



Word 
1 



Word 
2 



n 



Variable 
1 



Variable 
2 



Unformatted FORTRAN I/O Statements 

FORTRAN I/O subroutines can be used for unformatted disk I/O; an analogy to magnetic 
tape files is that unformatted files contain variable length records. A data file for unfor- 
matted I/O must be named $$$$$ and can reside in either the user area or fixed area (see 
"Initializing $$$$$ Data Files for Use With FORTRAN Unformatted I/O" in this chapter). 

The logical record length is determined by the size or the object code of the I/O-statement 
variable list and is limited only by the total file size. If the length of a record exceeds 318 
words, it is segmented to fit into consecutive sectors. Every sector begins with a 2-word 
header. Word 1 contains the relative sector number within that logical record, and word 2 
is the count of the data words following the header. The following illustrates how unfor- 
matted sectors are filled: 



Sector data word count 



Sector count within logical record 



SECTOR 2 



Word I Word 
1 I 2 



DATA WORDS 



n 



SECTOR 3 



Word 
1 



Word 
2 



DATA WORDS 



n 
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The last sector of a logical record has a sign bit set in the second word of the header. The 
remaining words of the last sector are not used. Therefore, an unformatted WRITE state- 
ment containing a single one-word integer variable uses only three words of each sector; 
the 2-word header and the data word. 

The FORTRAN I/O statements BACKSPACE, REWIND, and END FILE statements are 
used only with unformatted disk files. These statements provide a further simulation of 
magnetic tape file processing, and position the I/O pointer to the correct logical record 
within a file. 

Initializing $$$$$ Data Files for Use With FORTRAN Unformatted I/O 

You must define in the user area or fixed area a data file with the name $$$$$ prior to 
executing a FORTRAN mainline program or subroutine that uses unformatted I/O. One 
file can be defined on each cartridge; however, only one $$$$$ file can be referenced in 
any one job. 

The following example shows the control records for defining a $$$$$ file on a satellite 
cartridge and executing the program ML1 that uses unformatted I/O, where: 

• The satellite cartridge ID is 1004 

• The system cartridge ID is 1001 

• A data file of 100 sectors is defined 



15 10 15 20 25 30 35 40 45 50 


77 JOB 1001 1004 


Ll_l0P_. _ . _ . 


tWINE FIXEd /5REA 114 1W4 


XS7CSEDA7A US Ft **$$| lMl£il l&M 


77 JOB libl 104 


71 lEQ flU 






Note that an *FILES control record defining the 
control record. 



file is not required after the XEQ 



Sample program 4 in Appendix H uses unformatted I/O and END FILE, BACKSPACE, 
and REWIND statements. The program writes 3 logical records of different lengths to a 
$$$$$ data file. Each logical record begins on a sector boundary and extends into addi- 
tional sectors as required. 

After the completion of each WRITE statement (of records A, B, and C), a pointer is 
moved to the beginning of the next logical record. In the case of the END FILE statement, 
the pointer is similarly positioned beyond the record generated by END FILE. The 
second BACKSPACE statement moves the pointer to the beginning of record C, which is 
subsequently read into area F. 

The REWIND statement sets the pointer to logical record A, then a READ statement with 
no area specified advances the pointer to record B. Only the first half of B is read into 
area E, since the record lengths are in the ratio 2:1. 

Assembler and RPG Disk File Organization and Processing 

The disk I/O subroutines supplied with Disk Monitor 2, direct access, sequential access, 
and indexed sequential access method (ISAM), are used by both assembler and RPG lan- 
guage programmers. The key to the use of the disk I/O subroutines is an understanding of 
the basic principles of disk file organization and processing. 



Programming Tips and Techniques 6-27 



Data File Processing 
sequential 
ISAM 



sequential file 
organization 



indexed sequential 
(ISAM) file organization 



File Organization 

File organization is the method of arranging data records on a direct access storage device; 
that is, building the file. Two types of file organization are available with DM2; sequential 
and indexed sequential (ISAM). 

A sequentially organized file is one in which records are placed on the disk in the same: 
order they are read in, one after another. That is, record 6 cannot be written until record 
5 is written, record 5 until record 4. Sequential files can be processed sequentially or 
randomly. 

An indexed sequential file is one in which records are placed on the disk in ascending se- 
quence by a record key. The record key can be a part number, man number, or any other 
identifying information that is present in the records in the file. In addition, an indexed 
sequential file uses an index table to indicate to the processing program the general loca- 
tion of desired records. Each index entry contains a cylinder address and the highest record 
key on that cylinder. For cylinders that have overflowed, the index also contains the 
overflow sector address and the key of the first sector overflowed from that cylinder (see 
the descriptions of overflow sectors and areas under "Indexed Sequential Access Method 
Files" and "Contents of an ISAM File" later in this chapter). 

Index tables are analogous to the index card file in a library. If you know the title of a 
book (the record key), you can look in the card file (index table) until you find the card 
(index entry) for that book. On the card is a number (cylinder address) where the book 
(record) is located. You go to the shelf and find (seek) the number (cylinder address) 
you are looking for. Now you can search for the particular book (record) by title (record 
key). 

Records in an indexed sequentially organized file can be processed sequentially or randomly. 



sequential processing 
of sequential files 

random processing of 
sequential files 



sequential processing of 
ISAM files 

random processing 
of ISAM files 



File Processing 

File processing is the method of retrieving data records from a file; that is, using the file. 
Four methods of file processing are available with DM2. 

• Sequential processing of sequentially organized files 

• Random processing of sequentially organized files 

• Sequential processing of indexed sequential (ISAM) files 

• Random processing of indexed sequential (ISAM) files 

When sequentially processing sequential files, all records in the file are processed in the 
order of the file starting with the first physical record in the file. 

When sequential files are randomly processed, the sequence of record processing is not 
related to the physical sequence of the records in the file. To find a record in a sequentially 
organized file, your program must specify the record number. The -record number indicates 
the relative position (sequential location) of the record in the file. The disk I/O subroutine 
calculates the sector address from the record number and reads the proper record. 

When sequentially processing ISAM files, all records in the file are available in a sequence 
determined by the record key. Processing can start at the beginning of the file or at any 
point within the file. 

To find a random record in an ISAM file, code your program to search the index table 
using the record's key. The matching index entry points to the cylinder that contains the 
record. The indicated cylinder is then searched for the desired record; the match is made 
by record key. This kind of processing can be called processing in a random sequence 
with record keys. 
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Calculating Sequentially Organized and ISAM File Sizes 

You initially define a file on a disk with the DUP *DFILE or *STOREDATA function. 
These functions set aside a specified number of sectors for the file, and enter the file 
name in LET or FLET. This file name that you assign to the file must be used in all 
future references to the file. 

Sequentially Organized Files 

The number of sectors required for a file depends on the size of records and the number of 
records. The records are fixed in length and can be defined as any size between one word 
(2 characters) and 320 words (640 characters). Records cannot be extended across sector 
boundaries; thus, a 320 word record (one sector) and a 161 word record each require one 
sector of disk space. Careful planning is required in calculating optimum record size for 
your file. 

1 . Compute the number of words (L) in a record: 

where 

C is the record size in characters. Round the answer to the next higher number 
if the answer has a remainder. 

2. Compute the number of records (TV) that can be contained in one sector: 

kt 320 

N = ~T 

where 

L is the length in words of each record computed in Step 1. Disregard the re- 
mainder, if any. 320 is the number of words in a sector. 

3. Compute the number of required sectors (S): 

q - R+l 

h " N 

where 

R is the number of records in the file, and N is the number of records per 
sector computed in Step 2. Round the answer to the next higher number if 
the answer has a remainder. This answer is the sector count that you specify 
in an *DFILE or *STOREDATA control record to reserve file space in the 
user area or fixed area. 

To change record sizes or add records to a sequential file, the file must be rebuilt. If 
a revised file requires additional sectors, it must be redefined and rebuilt. A sequen- 
tially organized file is built using the sequential access routine. A sequential file 
can be processed by either the sequential access subroutine or the direct access sub- 
routine. These subroutines are described in the publication IBM 1130 Subroutine 
Library, GC26-5929. 

Indexed Sequen tial A ccess Method Files 

The number of sectors (S) required for an ISAM file is computed by the following formula: 

S=P+I+0+F 

where 

P is the number of prime data sectors,/ is the number of index sectors, O is the num- 
ber of overflow sectors, and F is always one sector for the file label. 
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compute prime 
data sectors 



compute index 
sectors 



overflow sectors 



file label 



The number of prime data sectors (P) is computed as follows: 
R+N-l 



P = 



N 



where 



R is the approximate number of records in the file, and N is the number of records 
per sector. Disregard the remainder, if any. The number of records (N) is computed 
by: 

320 



N = 



L+2 



where 



L is the length in words of each record. The maximum record length in words is 
318; records cannot cross sector boundaries. 

The number of index sectors (/) is computed as follows: 
C+E-l 



1 = 



where 



C is the number of prime data cylinders, and E is the number of index entries per 
sector. Disregard the remainder, if any. The number of prime data cylinders is com- 
puted as follows: 

C = P±7 



where 



Pis the number of prime data sectors. Disregard the remainder, if any. The number 
of index entries (E) per sector is computed by: 

3_20 
X 



E = 



(disregard any remainder) 



where 



Xis the index entry size computed by: 

X=2K+3 

where 

K is the key length in words; maximum 25 words (50 characters). If the length of 
the key in characters is an odd number, add one when calculating the number or 
words; that is, 49 characters require 25 words. 

You decide on the number of sectors to be provided for overflow before the file must be 
rebuilt. This overflow area is automatically assigned to start at the sector following the 
last sector of prime data. This assignment is done by the ISAM load (close) subroutines. 

When computing file size, always add one sector for the file label. 

If you wish, an assembler language program can be used to perform the preceding calcula- 
tions. You need know only the index entry size (X) as previously discussed, the length of 
a record in words, the approximate number of records in the file, and an estimate of the 
number of sectors of overflow area needed. A program to calculate all values previously 
discussed is included as sample program 7 in Appendix H. The values calculated by the 
program or by you are required as entries in the disk file information (DFI) tables for the 
ISAM subroutines. An indexed sequential file is built using the ISAM load subroutine., ex- 
panded using the ISAM add subroutine and processed by either the ISAM sequential or 
ISAM random subroutine. These subroutines are described in the publication, IBM 1130 
Subroutine Library, GC26- 5929. 
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Contents of an ISAM File 

An indexed sequential access method (ISAM) file is composed of: 

• File label 

• Index 

• Prime data area 

• Overflow area 

The relative position of these components within the ISAM file is: 



File label 


1 ndex 


Prime data area 


Overflow area 



ISAM file label 



The first sector of any ISAM file is the file label. This label contains information required 
by the ISAM subroutines for processing the file. The file label is built by the ISAM load 
function, updated by ISAM add, and used by ISAM random and sequential subroutines. 
All label operations are performed automatically by the ISAM subroutines. The only file 
label operation that you perform is to reserve one sector for the label when the file is 
initially defined. 

The format of an ISAM label is: 



Word number 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 



Label entry description 

Key length 

Record length 

Number of index entries per sector 

Index entry length 

Number of records per sector 

Record number of last prime data record 

Index entry number of last entry in file 

Sector address of last prime data record 

Sector address of last index entry 

Sector address of next overflow record 

Record number of next overflow record 
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The ability to read or write records anywhere in an ISAM file is provided by the file index. 
An entry in this index contains a cylinder address and the highest record key that is asso- 
ciated with that cylinder. The ISAM subroutines locate a given record by searching the index 
for the key and then searching the specified cylinder for the desired record, again searching 
by key. To increase the efficiency of the ISAM subroutines, one sector of the index is re- 
tained in core storage for each file. 

The key can be a part number or an employee name or any other identifying information 
that is contained in any record in the file. The key entries in the index are the numbers in 
ascending collating sequence of the highest key on each cylinder. The end-of-file record 
key is the key with the highest possible value; all bits are ones. 

The following is a portion of an index table. Note that each entry contains 2 sets of the 
same information. The second set is overlaid to show overflow data when the affected 
cylinder overflows. 



Key 
15 



First 

cylinder 

address 



Key 
15 



First 

cylinder 

address 



Normal entry 



Key 
30 



Second 

cylinder 

address 




Key 
31 



Overflow 

sector 

address 



wuuuuiu 



Overflow entry 



Record 
number 





Third 




Third 


Z 
e 
r 
o 


Key 


cylinder 


Key 


cylinder 


45 


address 


45 


address 










s 


■**x*£ft»>ft»ft*&A*iffi 



All 


nth 


All 


nth 


Z 
e 


1 


cylinder 


1 


cylinder 


bits 


address 


bits 


address 


o 








s 


: : : : : : : : :-:-:-:':-:-:-:':-SiS^2SS"i : i"£ : ?i'i : i" 


:•:;:•:•:•:•:•:•:■ 


■$##tttttfti&. 


:•:•&•; 



Normal entry 



Last entry in index 
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The prime data area contains the data records that are placed in the file by the ISAM load 
subroutine. The records must all be the same length (maximum 318, decimal, words). The 
ISAM subroutine adds a 2-word control field to each record. This control field, called the 
sequence-link control field, is used in the overflow area as a chaining indicator. The control 
field indicates whether or not a cylinder has overflowed. 

Prime data area records appear as follows: 





Data record 




1 word 1 word 






Data record 


1 word 1 word 




Key 
75 




! i 

1 Zeros 1 Zeros 

1 1 
I i 






Key 
520 


i I 
1 1 

1 Zeros | X'FFFF 

1 1 
• • 








V J 






v J 


V 


Sequence-link 
control field 




Sequential-link 
control field 




Y 

Data record 
prime data < 






s 






on a 
cylinder 




Last data record on a 
prime data cylinder 
that has overflowed 



overflow area 



When a new record is added to an indexed sequential file, it is placed according to key se- 
quence. If records were to remain in precise physical order, the insertion of each new 
record would require all records with higher keys to be shifted up. However, because ISAM 
files have an overflow area, a new record can be entered into its proper position and only 
cause records with higher keys to be shifted on that cylinder. The record that is forced off 
the end of the cylinder by the addition of the new record is written in the overflow area. 

The index entry of any cylinder that has overflowed points to the overflow sector address 
and record number of the record placed in the overflow area. When 2 or more records are 
added in key order, the overflowed records are chained together through the entries in 
their sequence-link control field. The entry in the first record points to the second, the sec- 
ond to the third, and the third to the fourth. The last overflow record in the chain has a 
sequence-link control field of all zeros. 

You specify the number of cylinders for the overflow area when you initially define the 
file. Then the ISAM subroutines place the records in the overflow area in the order that 
they overflow, not in key sequence. 
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To illustrate the overflow area, assume that on cylinder 6 of a defined file, the last 3 entries 
have keys 150, 152, and 154. Key 154 identifies cylinder 6 in the index. When you add a 
record with key 153, a record on another cylinder, and a record with key 151, the over- 
flow area appears as follows: 



Overflow area 



1 J~~ 

I Zeros I Zeros 
I I 
J I 



T 

I 

I Zeros 
I 

J 



' 1 

Key j °7 f,ow |Reg 

153 *l t0r 0001 

1 address J 



Key 
154 



Zeros 



First record overflowed. 
The sequence-link con- 
trol field is zeros indica- 
ting the end of a chain. 



Record overflowed 
from another cyl- 
inder 



Last record overflowed. 
The sequence-link con- 
trol field points to the 
next key in sequence. 
In this case it's key 154 
in the overflow area. 



Key 152 now identifies cylinder 6 in the index; the overflow entry in the index for cylinder 
6 points to the overflow area. 

Deleting Duplicate Records Caused by a Disk Error During an ISAM Add Operation 

If a disk error (/5004 displayed in the console ACCUMULATOR) occurs during an ISAM 
add operation, a record may be duplicated in the file. To check for a duplicate record, 
list the file or part of the file using the ISAM sequential retrieve. If a duplicate record is 
found, one copy must be deleted. 

To determine which record to delete, dump the file using a DUP *DUMP function, and 
check the index entry for the affected cylinder. If the key of the duplicate record is less 
than or equal to the first key in the index entry, delete the second of the 2 records. If the 
key of the duplicate record is greater than the first key in the index entry, delete the first 
of the 2 records. In both cases, the remaining record is the one that is processed by the 
ISAM random retrieve function. 

Note that the duplicate record is not physically deleted; it is deleted by performing a se- 
quential read and flagging the copy that is no longer to be used. 
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TIPS FOR ASSEMBLER LANGUAGE PROGRAMMERS 

The tips in this section are provided to help you with: 

• Grouping assembler mnemonics to shorten assembly time 

• Using index register 3 

• Double buffering for faster I/O operations 

• Using the 1403 conversion subroutines 

• Writing ISSs and ILSs 



Grouping of Assembler Mnemonics 

The Monitor System Assembler Program is divided into overlay phases, each phase pro- 
cessing a certain group of mnemonics. Each time a mnemonic is processed during assembly, 
the overlay phase required to process it is read into core, unless the overlay is already re- 
siding in core. 

Assembly time can be shortened by grouping mnemonics of a common type in your source 
program; thus fewer disk reads of overlay phases are required by the assembler. The fol- 
lowing is a list of the mnemonics as they are grouped within the assembler program: 

1 . ABS, FILE, ENT, ISS, ILS, SPR, EPR 

2. DCs and imperative instructions, such as A, LD, EOR, BSC 

3. DECandXFLC 

4. DMES 

5. HDNG, ORG, EQU, BSS, BES, LIST, SPACE, EJCT, DUMP, PDMP 

6. LIBF, CALL, DSA, LINK, EXIT, EBC, DN 

Assembler Program Use of Index Register 3 

In general, index register 3 (XR3) is reserved to point to the transfer vector. Normally, 
you can use this register in your program; however, if you use LIBF statements, you must 
code your program to do the following: 

1. At the beginning of your program, save the contents of XR3 

2. Before each LIBF, save your program's contents of XR3 and restore the original con- 
tents (the pointer to the transfer vector) to XR3 

3. After each LIBF, restore your program's contents to XR3 

Under certain conditions, you cannot use index register 3 even if you code your program 
to save and restore its contents. These conditions include core loads that overlap I/O 
operations and core loads that use the synchronous communications adapter. When these 
conditions exist, you can use index register 3 if you specify that a special set of interrupt 
level subroutines (named with an X as ILSX4) be included in a core load. You specify the 
use of the special ILSs in a monitor XEQ control record. 

Double Buffering in Assembler Programs 

The IBM 2501 Card Reader, Model A2, rated at 1000 cards per minute, presents a special 
problem when you want maximum performance from card I/O operations. If any conver- 
sion of the card data is required, the reading speed can drop to 500 cards per minute. The 
use of double buffering can prevent the loss of speed. 

The principle of double buffering is to read into one buffer while converting and processing 
the data from another buffer. This scheme uses additional core for the extra buffer and 
additional programming involved, but in most cases, card throughput should remain at 
1000 cards per minute. The following coding example illustrates the double buffering 
technique used for reading cards from the 2501, and converting them to EBCDIC. 
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Assembler Program Use of 1403 Conversion Subroutines 

Two monitor system subroutines can be used by assembler object programs to convert from 
EBCDIC to 1403 Printer code. These subroutines are EBPRT and ZIPCO. 

By using the execution times listed in the publication IBM 1130 Subroutine Library, 
GC26-5929 EBPRT requires an average of 156 ms (milliseconds) to convert a 120 charac- 
ter line compared to an estimate of 72 ms per line for ZIPCO. 

The speeds at which the 1403 Printer can print a line are: 

Model 6 (340 LPM) - 176 ms/line; Model 7 (600 LPM) - 100 ms/line 

Considering these speeds, running the printer at rated speed is difficult or impossible, 
depending on the model when EBPRT is used. If overlapped I/O is attempted, running 
either model at rated speed is impossible. Because of this, the assembler language pro- 
grammer is advised to use ZIPCO for all EBCDIC-to-1403 Printer code conversions. 

Writing I SSs and ILSs 

Interrupt service subroutines (ISSs) for all 1 130 devices and interrupt level subroutines 
(ILSs) for all 1 130 interrupts are provided with the monitor system; however, if you want 
to, you may write your own. 

ISS subroutines These rules must be followed when writing ISSs: 

1 . Precede the ISS statement (see rule 3) with a LIBR statement if the subroutine is to 
be called by a LIBF rather than a CALL. 

2. Precede the subroutine with an EPT (extended) or an SPR (standard) statement if 
precision specification is necessary. 

3. Precede the subroutine with an ISS statement (only one) that defines the entry 
point and the ISS number. The ISS numbers used in the IBM-supplied ISS and ILS 
subroutines are listed in Figure 6-2. The assembler ISS statement is described in the 
publication IBM 1130/1800 Assembler Language, GC26-3778. Note that the ISS 
numbers assigned by the IBM-supplied subroutines range from 1 through 11. You 
can assign ISS numbers from 12 through 20; assign these numbers starting with 20. 







Device interrupt 




ISS number 


Device 


level assignments 


n 


1 


1442 Card Reader Punch 


0,4 


+4, 


2 


Input keyboard/console 
printer 


4 


+4 


3 


1134/1055 Paper Tape 
Reader/Punch 


4 


+4 


4 


2501 Card Reader 


4 


+4 


5 


Disk storage 


2 


+5 


6 


1132 Printer 


1 


+4 


7 


1627 Plotter 


3 


+4 


8 


Synchronous 
Communications Adapter 


1 


+4 


9 


1403 Printer 


4 


+4 


10 


1231 Optical Mark 
Page Reader 


4 


+4 


11 


2250 Display Unit 


3 


+4 



Figure 6-2. I/O device ISS numbers and ILS interrupt levels 
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// ASM 
♦ XREF 
♦LEVEL 4 



4. When assembling an ISS, include an assembler *LEVEL control record for each in- 
terrupt level associated with the device. 

5. The entry points of an ISS are defined by the related ILS. Consider this when you 
write an ISS that is to be used with an IBM-supplied- ILS. The IBM ILS executes a 
BSI statement to the ISS entry point plus n (see the +n column in Figure 6-2). Your 
ISS subroutine must return to the ILS via a BSC statement (not a BOSC). 

The following listing is an example of an ISS subroutine. 



ccooi 

CC002 
CC0C3 
CCOCK 
CC005 
CC0C6 
CCCC7 
C0008 
CC009 
CC010 
CC011 
CC012 
C0013 
CC014 
CC015 
CC016 
CC017 

ccoie 

CC019 
CC02C 
C0021 
CC022 
CC023 
CC024 
CC025 
CC026 
CC027 
CC028 
CC029 
CC030 
CC031 
CC032 
CC033 
CC034 
CC035 
CC036 
C0037 
CC03 8 
CC039 
CC040 
CC041 
CC042 
CC043 
CC044 
CC045 
CC046 
CC047 
CC04P 
CC049 



***** 
*TITL 

*FUNC 

* 
* 

* 
* 

*ENTR 
* 

* 
* 

* 
*INPU 

*CLTP 

* 

♦ EXTE 
*EXIT 

* NC 

* 

* 

* 
* 
* 
* 

* ER 

* 

* 

* 
* 

*TAPL 

♦ ATTR 



***** 
E- RE 
TICN/ 
THIS 
2501 
CPER 
INTE 
ERRC 

Y PCI 
1. R 



4*4*******4***************************** 

ACC 

CPERATICN- 

1130 SUB 

CARD «EA 
ATICNS, P 
RRliPTS, A 
R RECCVER 



RGUTINE CPERATES THE PRIMARY 
CER. IT INITIATES REQUESTED 
RCCESSES CPEKATICN CCMPLET 
NC ALTOMATICALLY INITIATES 
Y PRCCEDLRES. 



NTS- 

EADC 



CALL ENTRANCE FOR TEST CR READ 
CPERATICNS. E.G. 



LIBF 
DC 
DC 
DC 



READO 
/1CC0 
ICBUF 
ICHUF 



RE049 



T- NC 
LI6F 

UT- R 
CARC 
SECU 
LEFT 

RNAL 

S- 

RMAT- 
1. R 



NE C 
CAL 

CUT I 
TC 

ENCE 
JUS 

SUBR 



CPER 
PCIN 
THER 
LlNC 
NE WI 
I/C B 
. FC 
TIFIE 
OLTIN 



E180 



2. RE 34 8 



RCR- 
l. RE180 



ES/WC 
IBUTE 



RK A 
S- R 



IF N 

TECT 

TC T 

2501 

THE 

CALL 

PRCC 

IF A 
COND 
WILL 
AND 
ACCU 
4000 
READ 
ERRO 
PARA 
THEM 
REAS- 
ElSAB 
CF B 
CF Z 
CPFR 



ATION COMPLETE INTERRUPT ENTRY 

T. 

THAN FROM THE PARAMETERS IN 

SEQUENCE. 

LL TRANSFER TC 80 COLS FROM 

LFFER AS SPECIFIED BY CALLING 

RMAT IS 12 BITS PER BUFFER WORD 

C. 

ES- NONE. 



C PRE-CP ERROR HAS BEEN CE- 
EC, THE EXIT FROM RE180 IS 
HE CALLER AFTER THE REQUESTED 
CPERATICN HAS BEEN INITIATED 
EXIT FROM RE348 IS BACK TO THE 
ER VIA ILS04 AFTER CP-COMPLETE 
ESSING HAS BEEN FINISHED. 

PRE-CP ERROR OR NCT REACY 
ITION IS DETECTEC, SUBROLTINE 

BRANCH TC HEX 0C?9 VIA RE180 
CISPLAY CNE OF TWO CCDES IN 
MULATOR. 

IS DISPLAYED IF 2501 IS NOT 
Y. 4C01 IS DISPLAYED IF AN 
R IS DISCOVERED IN CALLING 
METERS OR AREAS REFERENCED BY 

• 

NCNE. 
LE, CAN READ UP TC 80 COLUMNS 
INARY CATA. IF A WORD CCUNT 
ERC IS SPECIFIED, THE READ 
ATICN ACTS AS A FEED. 



ISSC0020 
ISSC0030 
ISSC0040 
ISS00050 
ISS00060 
1SSCC070 
ISSC0080 
ISS00090 
ISSC0100 
ISSC0110 
ISSC0120 
ISSC0130 
ISS00140 
ISSC0150 
ISSC0150 
ISSC0160 
ISSC0170 
ISS00180 
ISS00190 
ISSC0200 
ISSC0210 
ISS00220 
ISSC0230 
ISS00240 
ISS00250 
ISSC0260 
ISSC0270 
ISS00280 
ISS00290 
ISSC0300 
ISS00310 
ISS00320 
ISSC0330 
ISS00340 
ISS00350 
ISS00360 
ISSC0370 
ISSC0380 
ISS00390 
ISSC0400 
ISSC0410 
ISSC0420 
ISSC0430 
ISS00440 
ISS00450 
ISSC0460 
ISSC0'i70 
ISSC0480 
ISSC0490 
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CC05C 




LICR 
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SSOOSIO 


cccc 




191A1130 


CC051 


113C 


ISS 


CA 


READO 


A 1 


SS0O52O 








CC052 


*************************************************** ] 


SS00530 








C0053 


* 






LCADER DEFINEC LOCATIONS * 


SS005AO 








CC05A 


*************************************************** ] 


SS00550 


occo 


C 


6S2E 


C0055 


REACO 


STX 


1 


RE1AA+1 


LIBF ENTRANCE 


ISS00560 


OCOl 


CO 


658CCCCC 


CC056 




LDX 


11 


*-* 


LOADER STORES TV AC0R1+2) 


SSC0570 


CCC3 


c 


7C03 


CC057 




MCX 




RE060 


BR TO PROCESS CALL 1 


SSC0580 


CCOA 


c 


ccco 


CC058 


KE0A8 


CC 




*-* 


CP-CMPLTE INTERRUPT (+A) 


SS00590 


0C05 


01 


ACCCCCAB 


CC059 




PSC 


L 


RE 3 36 


BR TO PROCESS INT 


[SSC0600 








CC06C 


*************************************************** 


ISS00610 








CC061 


* 






LIBF PROCESSING * 


ISSC0620 








CC062 


*************************************************** 


ISS0C630 








CC063 


* 


THIS 


PORTION STCRES CALLING SEQUENCE INFO * 


ISSC06A0 








CC06A 


* 


ANC 


CHCCKS THE 


:EVICE STATUS BEFCRE ANY I/O * 


ISS00650 








CC065 


* 


OPERATION IS INITIATED. A CALLING ERRCR OR * 


1SS00660 








CC066 


* 


NCT 


REACY 2501 ( 


:ALSES AN ERROR EXIT TC * 


ISS00670 








CC067 


* 


LOCATION Al. IF 


THE OPERATION WILL CAUSE AN * 


ISSC0680 








CC06B 


* 


INTERRUPT, THE f 


ROUTINE IS SET BUSY AN THEAN * 


1SS00690 








CC069 


* 


1CCS 


COUNTER IS 


INCREMENTED TC INDICATE * 


ISS00700 








CC07C 


* 


AN INTERRUPT IS 


PENDING. * 


ISSC0710 








CC071 


*************************************************** 


ISSC0720 


OCC7 





CC42 


CC07? 


RE060 


STC 




RE32A 


SAVE ACC 


SSC0730 


CCC8 


c 


2629 


CC073 




STS 




RE 168 


SAVE STATUS 


[SSC07A0 


CCC9 


c 


6A27 


CC07A 




STX 


2 


RE156+1 


SAVE XR2 


lSSC07bO 


CCCA 


c 


C1CC 


CC075 




LC 


I 





XRl = ADDR CF CALL+1 


ISSC0760 


ccce 


c 


18CC 


CC076 




SRA 




12 


IS FUNCTION TEST 


ISSC0770 


cccc 


CI 


AC2C0012 


CC077 




HSC 


L 


REC72,Z 


BR IF NCT 


ISSC0780 


ccce 


c 


CC31 


CC078 




LC 




RE228 


IS SUBR BUSY 


ISS00790 


CCCF 


c 


a a 1 8 


CC079 




ESC 




+ - 


SKIP IF YES 


ISSC0800 


CCIC 


c 


7101 


CC08C 




MCX 


1 


+ 1 


NO, EXIT TC CALL+3 


[SS00810 


ecu 


c 


7C19 


CC081 




MCX 




RE120 


EXIT TO CALL+2 


[SSC0820 


CC12 


c 


9C2F 


CC082 


REC72 


S 




RE2A0 


IS FUNCTION LEGAL 


[SSC0830 


CC13 


CI 


AC2CCC35 


CC083 




8SC 


L 


RE192,7 


BR IF NCT 


SS008A0 


CC15 





CC2A 


CC08A 


KEOPA 


LC 




RE228 


IS SUBR BUSY 


SS00850 


tJt-lfc 


CI 


AC2CCC15 


CC085 




PSC 


L 


REC84,/ 


YES, LOOP 


SSC0860 


c c l e 


c 


CH2P. 


CC086 


REG96 


XIC 




RE288-1 


IS DEVICE REACY 


[SS00870 


CC1S 


CI 


ACCACC3/ 


CC087 




esc 


L 


RE20A,E 


BR IF NOT 


ISS00880 


ccie 


CC 


C58C0C01 


C0088 




LC 


11 


1 


OBTAIN WORD COUNT 


SS00890 


ooic 





4618 


CC089 




PSC 




+ - 




SSC09C0 


COIE 





7C05 


CC09C 




MCX 




RF1C8 


BR ON Z WD CNT 


ISSC0910 


CC1F 


CI 


4C280035 


CC091 




BSC 


L 


RE192,Z+ BR IF nD CNT NEG 


SSC0920 


cr?i 





9C2A 


CC092 




S 




RE276 


THRU 80 IS LEGAL 


SS00930 


CO 2 2 


CI 


AC3CC035 


CC093 




BSC 


L 


RE192,Z- 


BR IF OVER 80 


SSC09A0 


CC2A 


c 


7101 


CC09A 


RE1C8 


VCX 


1 


+ 1 


XRl POINTS TO 2ND PARAM 


SSC0950 


0025 


c 


C1C0 


cenq'j 




LC 


1 





SAVE DATA ACCR 


SSC0960 


CC26 


c 


CCIC 


CC096 




STC 




RE26A 




SS00970 


CC27 


cc 


74C10032 


CC097 




MIX 


L 


ilCCT, 1 


INCREMENT IOCS COUNTER 


ISSC0980 


CC2S 


c 


6P16 


CC09? 




STX 


C 


RE22B 


SET SUBR BUSY INCR 


SS00990 


CC2A 


f. 


C819 


CC0S9 




XIC 




RE 264 


INITIATE REAC 


SS01000 


CC2B 


(j 


7101 


C01CC 


RE12C 


NTX 


I 


+ 1 


XRl POINTS TC RTN ADDR 


SS01010 


CC2C 


c 


ecu: 


C 1 1 




LC 




RE 324 


RESTORE ACC 


ISS01020 


CC2C 


c 


6<5C6 


CC1C2 


RE132 


STX 


1 


RE180+1 


SET RETURN ACDRESS 


[SSC1030 


CC2E 


cc 


65CCCCCC 


CCIC3 


RE 1 AA 


LCX 


LI 


*-* 


RESTORE STATUS 


SS010AO 


CC 30 


CO 


66CCCCCC 


C C I C A 


RE 156 


LCX 


L2 


*-* 


ANC INDEX REGISTERS 


SS01050 


CC3 2 


c 


2CCC 


C G 1 5 


M E 1 6 8 


LCS 




*.* 




SSC1060 


CC33 


CO 


ACCCCCCC 


COlCt 


«E180 


HSC 


L 


*-* 


EXIT 


SSC1070 


0C35 


c 


CC13 


CCIC 7 


R E 1 S ? 


LC 




RE312 


ERROR CODE - ILLEGAL CALL 


SS01080 


00 3 6 


<; 


7CC4 


c c i o e 




M,X 




RE 2 16 


BR TC SET RETURN AL'DRS 


SS01090 


CC3 7 


c 


lcCl 


CO 109 


KF2CA 


SRA 




1 


IS CEVICE BUSY 


SSC1100 


CC38 


CI 


A C C A C 1 8 


C C 1 1 c 




HSC 


L 


RE096,E 


BR IF YES 


SSCUIO 


0C3A 





ccon 


rem 




LC 




RE3CC 


ERROR CODE - CVCE NOT RDY 


SS01120 


C 3 R 


c 


7 1 r f 


ecu? 


K E 2 1 6 


MX 


1 


-1 


XRl = CALL INC ACCRESS 


SS01130 


C C 3 C 


cc 


6LTCCC28 


C (" 1 1 3 




STX 


LI 


$PRET 


ST CPE CALL ACDR IN AC 


SSC11A0 


CC3E 


c 


6129 


CC1 14 




LCX 


1 


SPRET-f] 


XRl = EXIT ACCRESS 


SSC1 150 


CC3F 


c 


7 c r 


ecus 




MX 




RE132 


BR TO EXIT 


SS01160 
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CC11 6 


********** 


** 


J************************************* 


** 


I SS01 170 








C 1 1 7 


* 






CCNSTANTS 




* 


[ S S C 1 1 8 








C C 1 1 (■ 


***** 


******* 


j,************* ************************* 


SS01190 


OCAC 


o 


cccc 


CC11S 


RE22P 


i:c 







SUPR BUSY INDR 




SS012C0 


CC42 




cccc 


C012C 




ess 


E 









SS01210 


CC42 





CCC1 


CC121 


RE240 


re 




+ 1 


CONSTANT 




SS01220 


CC43 


c 


4FC1 


C 1 2 ? 


RE252 


nc 




/ A F 1 


SENSE WITH RESET 




SS01230 


0C44 


c 


cccc 


C 1 2 3 


RE264 


cc 




*-* 


I/C DUFFER ADDRESS- 




SS01240 


CC45 





4ECC 


CC124 




DC 




/4EC0 


IOCC TO INITIATE READ 




SS0L250 


C046. 


c 


CC5C 


C C 1 2 5 


R E ? 7 6 


DC 




+ 80 


CONSTANT 




SS01260 


CC47 





4FCQ 


C0126 


RE2fc8 


CC 




/4FC0 


SENSE DSW WITHOUT RESET 




SS01270 


0048 





ACCC 


C0127 


RE3C0 


DC 




/4C00 


CONSTANT FOR DVC NCT RCY 




SS01280 


CC45 


c 


4CC1 


CC128 


K E 3 1 2 


CC 




/40C1 


CST FOR BAC CALL 




SS01290 


CC4A 


c 


CCCC 


C0129 


RE32A 


DC 




*-* 


SAVED ADD 




SS01300 


cc?e 






CC13C 


$PRET 


ECU 




/2 8 


PRE-OPERATIVE ERROR TRAP 




SS01310 


CC3? 






CC131 


MCCT 


ECL 




/3? 


I/C COUNTER 




SS01320 


C P c 






CC132 


SPST4 


ecu 




/ec 


POST-OPERATIVE ERRCR TRAP 


SS0L330 








CC133 


$***********;,;.********************************#***** 


SS01340 








CC13A 


* 






OP-.CnNPLETfc INTERRUPT PROCESSING 


* ] 


SS01350 








CC135 


*****' 


<****** 


($********** ************ *************** 


[SS01360 








CC136 


* 


ThIS 


PORTION IS ENTERED FROM AN INTERRUPT 


* 


SS01370 








CC137 


* 


LEVEL . 


iUBRT. IF NC 


ERROR HAS BEEN DETECTED 


* 


[SSC1380 








CC138 


* 


THE 


RCLTINE IS SET 


NOT BUSY AND THE ICCS 


* 


SSC1390 








CC139 


* 


COUNTER IS DECREMENTED TO INDICATE 


* 


SSC1400 








C0140 


* 


INTERRUPT PROCESSING COMPLETED. OTHERWISE 


* 


SS01410 








CC1M 


* 


THE 


SL r 


!R. GOES TO 


THE POST-CPERATIVE ERROR- 


* 


SS01420 








CCU2 


* 


TRAP 


AND WAITS UNTIL THE OPERATOR HAS 


* 


SS01430 








CC143 


* 


INTERVENED ANL THE 


25C1 BECOMES READY, AT 


* 


SSC1440 








C0144 


* 


hUCh 


TIME THE CARDS ARE POSITIONED AND THE 


* 


SS01450 








CC1A5 


* 


I/C 


OPERATION IS RE-IMTIATED. 


* 


SSC1460 








CC1A6 


********* ****************************************** 


SS01470 


ccAe 


c 


C8F6 


CC147 


RE336 


XIC 




RE252-1 


SENSE DSW WITH RESET 




SS01480 


OCAC 


c 


1CC3 


CC148 




SLA 




3 


IS OPERATION OK 




SS01490 


CCAC 


01 


ACC2CC56 


00149 




BSC 


L 


RE36u»C 


BR IF ERROR 




SS01500 


CCAF 


CO 


74FFCC32 


CC150 




MCX 


L 


$ ICCT , - 1 


DECREMENT IOCS 




SSC1510 


CC51 





1CC0 


CC151 




NOP 






IN CASE OF SKIP 




SS01520 


CCb2 


c 


ieio 


C0152 




SRA 




16 






SS01530 


C C 5 3 


G 


cc'ec 


C 1 5 3 




STC 




RE228 


CLEAR ROUT BUSY INCIC 




SS01540 


CC54 


CI 


ACtiCCCCA 


CC154 


RE34B 


ESC 


I 


RE048 


EXIT 




SSC1530 


C056 


c 


C8EB 


C C 1 5 5 


RF360 


XIC 




RE252-1 


SENSE DSW FOR READY 




SS01560 


OC57 


CI 


4CC4CC5R 


CC156 




CSC 


L 


RE365,E 


TO ERRCR EXIT IH NCT RDY 




SS01570 


ccb<; 


c 


08EA 


CC157 




XIC 




RF264 


RE-INITIATE FUNCTION 




S SO 15 80 


C05A 


c 


7CF9 


C0158 




MCX 




RE348 


BR TO EXIT 




SS01590 


CC5E 


c 


CCEC 


CC159 


RE365 


LD 




RE300 


LU NOT READY ERROR CODE 




SS01600 


CC5C 


cc 


44CC008C 


CC16C 




RSI 


L 


$PSTA 


POST-OPERATIVE ERRCR TRAP 


SSC1610 


0C5E 





7CF7 


C0161 




MCX 




RE360 


TRY AGAIN 




SS01620 


C06C 






CC162 




END 










SS0L630 
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CRCSS-REFERENCE 



SVfECL 


VALLE REL CEFN 


REFERENCES 




REACO 


COCC 


I C0055 


CCC51,R 






REC48 


COCA ] 


L CC058 


00154,3 






REC60 


C0C7 


I CC072 


CCC57,B 






REC7? 


C012 


L C0O82 


CCC77,B 






REC84 


C015 


l coce* 


ccoe5,B 






REC96 


coie 


L C008fc 


CC11CB 






RE1C8 


C024 


L C0094 


CC090,B 






RE120 


co2e 


L CC1C0 


C0081.B 






RE132 


C02C 


L C01C2 


C0115,B 






RE144 


C02E ] 


L 001C3 


C0055,M 






RE156 


003G 1 


L C01C4 


00074, K 






RE168 


C032 


L C01C5 


CCC73,P 






RE180 


C033 ] 


L C01C6 


C01C2,M 






RE192 


0035 ] 


L C0107 


C0083,B 


C0091,B CC093,B 




RE2C4 


CC37 ] 


L C0109 


CC087,B 






RE216 


CC3B 1 


I C0112 


C0108,6 






RE228 


C04C ] 


L C0119 


CCC78,R 


CC084.R CC098,M 


C0153.K 


RE240 


C042 1 


L C0121 


C0082,R 






RE252 


C043 


I C0122 


C0147,R 


C0155,R 




RE264 


C044 


I 00123 


00096, M 


0CC99,R C0157.R 




RE276 


C04fc 


I 00125 


00092,R 






RE288 


C047 


I C0126 


C0086,R 






RE3C0 


C048 ] 


L C0127 


OOllltR 


C0159,R 




RE312 


0049 ] 


I C0128 


00107, R 






RE 3 24 


C04A 


L C0129 


00072,^ 


CCIC1,R 




RE336 


C04B ] 


L C0147 


C0059,B 






RE348 


0054 1 


I C0154 


C0158,B 






RE360 


C056 


L C0155 


C0149,B 


C0161.B 




RE365 


C05B 


L C0159 


CC156,6 






SICCT 


C032 C 


5 C0131 


C0097,K 


C015CM 




SPRET 


C028 C 


) 00130 


C0113,N 


CC114.R 




$PST4 


C08C ( 


) C0132 


C016CB 







COO CVERFLCfc SECTCRS SPECIFIED 

CCC CVERFLCV* SECTCRS REQUIRED 

C32 SY^BCLS DEFINED 

NC ERRCR(S) AND NC WARNING(S) 



FLAGGED IN ABOVE ASSEMBLY 
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I LS subroutines 



An ILS is included in a core load only if requested by an ISS that is a part of the same core 
load. The IBM-supplied ILS02 and ILS04 subroutines are a part of the resident monitor 
unless you delete them from the system library and replace them with ILSs that you write 
for interrupt levels 2 and 4. These rules must be followed when writing an ILS: 

1. Precede the subroutine with an ILS statement that identifies the interrupt level in- 
volved. 

2. Precede all statements with an ISS branch table. If the associated interrupt level 
status word (ILSW) is not scanned (that is, a single ISS handles all interrupts on the 
level involved) in the ILS, a one-word table is sufficient; the minimum table size is 
one word. A zero must follow the branch table. If the ILSW is scanned, the ISS 
branch table must include one word for each used bit of the ILSW: 



ISS branch table 
ILSW bit X (highest bit used) 



ILSW bit 1 
ILSW bit 



Define one word 
for each bit used. 



3. 



4. 



5. 



Each entry in the ISS branch table identifies the entry point within an ISS for the 
associated ILSW bit. The actual linkage is generated by the core load builder. Before 
processing by the CLB, each word in the ISS branch table has the following format: 

• Bits through 7 contain an increment that is added to the entry point address of 
the corresponding ISS subroutine to obtain the interrupt entry point address; within 
the ISS for the ILSW bit. (In IBM-written ISSs, this increment is +4 for the pri- 
mary interrupt level and +7 for trie secondary interrupt level. See column +n in 
Figure 6-2.) 

• Bits 8 through 15 contain the value of @ISTV plus the ISS number of the ISS asso- 
ciated an ILSW bit. The value of @ISTV can be obtained from the cross-reference 
symbol table at the end of the resident monitor listing in Appendix G. 

@ISTV is the address of the interrupt transfer vector (ITV) in low core. Any ISS 
branch table entries that represent unused bits in an ILSW must have the value 

@ISTV. 

During the building of a core load, the CLB places the entry point address of an 
ISS in the location of the ITV that corresponds to the ISS number specified in the 
ISS statement. The CLB generates an ISS entry point address by adding the incre- 
ment in bits through 7 to the address in the location of the ITV pointed to by 
bits 8 through 15. Then the CLB replaces the ISS branch table word with this genera- 
ted interrupt entry point address. (See Step 4 for the use of these addresses.) 

The ILS entry point must immediately follow the ISS branch table and must be 
loaded as a zero. The core load builder assumes that the first zero word in the pro- 
gram is the end of the branch table and is also the entry point of the ILS. An in- 
terrupt causes a BSI to this entry point. 

The ILSW bit that is on is determined with a SLCA statement. At the completion of 
this statement, the specified index register contains a relative value equivalent to 
that bit position in the ISS branch table. The address in the ISS branch table can 
then be used by a BSI instruction to reach the ISS that corresponds to an ILSW bit 
position. 

To clear the interrupt level when an ILS that you write is used with an IBM-supplied 
ISS, code your ILS to exit via the return linkage with a BOSC statement. 
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6. When you write an ILS, it must replace the equivalent IBM-supplied ILS. Delete the 
IBM ILS, and store your ILS as ILSOx, where x = 0, 1 , 2, 3, 4, or 5. 

7. The IBM-supplied ILS02 and ILS04 subroutines are stored as subtype one. An ILS 
that you write to replace either of these must be stored as subtype zero. 

8. The ISS branch table for the IBM-supplied version of ILS04 can have no more than 
9 entries. An ILS that you write to replace ILS04 can support all 16 possible ISS 
branch table entries. 

The following listing is an example of an ILS subroutine. 
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ILS 


subroutines 




















// ASM 






♦ XREF 




























00001 


*+**+*****#++** 4* *#$*****+***+********* ************ 


U1J0 


)020 








00002 


* 










* 


U1J0 


)030 








00003 


♦ NAME 


- ILSX4 






* 


U1J0 


)040 








00004 


# 










* 


U1J0 


)050 








00005 


♦FUNCTION/OPERATION - INTERRUPT LEVEL SUBROUTINE 


* 


U1J0 


)060 








00006 


* FOR LEVEL 


4, 




* 


U1J0 


)070 








00007 


* 










* 


U1J0 


3080 








00008 


♦ENTRY POINT - 


- ENTERED 


AT 1X420 BY A HARDWARE 


* 


uuo 


)090 








00009 


♦ BSI VIA LOCATION 12 


• DECIMAL. 


* 


uuo 


)100 








00010 


* 










* 


U1J0 


)110 








00011 


♦INPUT - NONE 






* 


uuo 


3120 








00012 


* 










* 


uuo 


3130 








00013 


♦OUTPUT - 


NONE. 




* 


uuo 


3140 








00014 


* 










* 


uuo 


3150 








00015 


♦EXTERNAL 


SUBROUTINES - 


- NONE. 


* 


uuo 


3160 








00016 


* 










* 


uuo 


3170 








00017 


♦EXITS - 








* 


uuo 


3180 








00018 


♦ NORMAL 


- 


30SC INDIRECT THROUGH 1X420 


* 


uuo 


3190 








00019 


♦ ERROR 


- NONE 




* 


uuo 


3200 








00020 


* 










* 


uuo 


3210 








00021 


♦TABLES/WORK I 


\REAS - NONE 


* 


uuo 


3220 








00022 


* 










* 


uuo 


3230 








00023 


♦ATTRIBUTES - 


REUSABLE 




* 


uuo 


3240 








00024 


* 










* 


uuo 


3250 








00025 


♦NOTES - INDEX REGISTERS 1, 2, AND 3, STATUS, 


* 


uuo 


3260 








00026 


♦ ACCUMULATOR AND EXTENSION ARE SAVED UPON 


* 


uuo 


3270 








00027 


♦ ENTRY 


AND 


RESTORED 


AFTER INTERRUPT SERVICED. 


* 


uuo 


3280 








00028 


* 










* 


uuo 


3290 








00029 


***************4 *********************** ************ 


uuo 


3300 








00030 




ILS 


04 








uuo 


3310 


0000 





0033 


00031 


I X4 1 


DC 




/0033 


DEVICD ♦-♦ AND ISS NO. ♦- 


-* 


uuo 


3320 


0001 





0033 


00032 




DC 




/GO 3 3 


DEVICD ♦-♦ AND ISS NO. *- 


* 


uuo 


3330 


0002 





0033 


00033 




DC 




/0033 


DEVICD ♦-♦ AND ISS NO. ♦- 


-* 


uuo 


3340 


0003 





0430 


00034 




DC 




/043D 


1231 +4 AND ISS NO. 10 




uuo 


3350 


0004 





043C 


00035 




DC 




/043C 


1403 +4 AND ISS NO. 9 




uuo 


3360 


0005 





0437 


00036 




DC 




/0437 


2501 +4 AND ISS NO. 4 




uuo 


3370 


0006 





0734 


00037 




DC 




/0734 


1442 +7 AND ISS NO. 1 




uuo 


3380 


0007 





0435 


00038 




DC 




/0435 


CONSOLE +4 AND ISS NO. 2 




uuo 


3390 


0008 





0436 


00039 




DC 




/0436 


1134/1055 +4 AND ISS NO. 


3 


uuo 


3400 


0009 





0000 


00041 


1X420 


DC 







INTERRUPT ENTRY 




uuo 


3420 


OOOA 





D81B 


00042 




STD 




1X480 


SAVE ACC AND EXTENSION, 




uuo 


3430 


0008 





280F 


00043 




STS 




1X430 


♦STATUS, 




uuo 


3440 


OOOC 





6910 


00044 




STX 


1 


1X441+1 


♦ XR1, 




uuo 


3450 


OOOD 





6A11 


00045 




STX 


2 


1X442+1 


♦ XR2, 




uuo 


3460 


OOOE 





6812 


00046 




STX 


3 


1X443+1 


♦ XR3 




uuo 


3470 


OOOF 


00 


678000E4 


00047 




LDX 


13 


$XR3X 


POINT TO TRANSFER VECTOR 




uuo 


3480 


0011 


0, 


0818 


00048 




XIO 




1X495-1 


SENSE KEYBOARD 




uuo 


3490 


0012 





1002 


00049 




SLA 




2 


IS IT INTERRUPT REQUEST 




uuo 


3500 


0013 


00 


44A8002C 


00050 




BSI 


I 


$IREQ,+Z 


♦KEY, BR IF YES 




uuo 


3510 


0015 





1000 


00051 




NOP 










uuo 


3520 


0016 





6109 


00052 




LDX 


1 


9 


NUMBER OF DEVICES ON LEVEL. 


uuo 


3530 


0017 





0810 


00053 




XIO 




1X490-1 


SENSE ILSW 




uuo 


3540 


0018 





1140 


00054 




SLCA 


1 





SHIFT AND DECREMENT XRl 




uuo 


3550 


0019 


01 


4580FFFF 


00055 




BSI 


11 


IX4L0-1 


BR TO DEVICE ISS 




uuo 


3560 


001B 





2000 


00057 


1X430 


LDS 







RESTORE STATUS, 




uuo 


3580 


001C 


00 


65000000 


00058 


1X441 


LDX 


LI 


*--* 


♦ XRl 




uuo 


3590 


OOIE 


00 


66000000 


00059 


1X442 


LDX 


L2 


*-* 


♦XR2, 




uuo 


3600 


0020 


00 


67000000 


00060 


1X443 


LDX 


L3 


*--* 


♦ XR3, 




uuo 


3610 


0022 





C803 


00061 




LDD 




1X480 


♦ACC AND EXTENSION 




uuo 


)620 


0023 


01 


4CC00009 


00062 




BOSC 


I 


1X420 


TURN OFF INTERRUPT, RETURN 


uuo 


3630 


0026 




0002 


00064 


1X480 


BSS 


E 


2 


ACCUMULATOR AND EXTENSION 


uuo 


3650 


0028 





0000 


00065 




DC 











uuo 


3660 


0029 





0300 


00066 


1X490 


DC 




/0300 


IOCC TO SENSE ILSW 




uuo 


3670 


002A 





0000 


00067 




DC 











uuo 


3680 


002B 





OFOO 


00068 


1X495 


DC 




/OFOO 


SENSE IOCC FOR KEYBOARD 




uuo 


3690 


00?C 






00069 


tlREO 


EQU 




/002C 


ADD OF ISS FOR INT REQ 




uuo 


)700 


00E4 






00070 


$XR3X 


EQU 




/00E4 


ADDR OF TRANSFER VECTOR 




uuo 


3710 


002C 






00071 




END 










uuo 


3720 
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VALUE 


REL 


DEFN 


INT REQ service subroutine 


SYMBOL 


REFERENCES 


1X410 


0000 


1 


00031 


00055, B 


1X420 


0009 


1 


00041 


00062, B 


1X430 


001B 


1 


00057 


00043, M 


1X441 


001C 


1 


00058 


00044, M 


1X442 


001E 


1 


00059 


00045, M 


1X443 


0020 


1 


00060 


00046, M 


1X480 


0026 


1 


00064 


00042, M 00061, R 


1X490 


0029 


1 


00066 


00053, R 


1X495 


002B 


1 


00068 


00048, R 


$IREQ 


002C 





00069 


00050, B 


$XR3X 


00E4 





00070 


00047, R 


000 


OVERFLOW 


SECTORS SPECIFIED 


000 


OVERFLOW 


SECTORS REQUIRED 


Oil 


SYMBOLS DEFINED 




NO 


ERROR(S) 


AND 


NO WARNING(S) FLAGGED IN ABOVE ASSEMBLY 



Assembler INT REQ Service Subroutine 

Pressing the interrupt request key (INT REQ) on the console keyboard causes the ILS in 
use for interrupt level 4 (ILS04 or ILSX4) to execute a BSI I $IREQ. Thus, the function 
of the INT REQ key depends on the contents of location $IREQ. The system initializes 
$IREQ with the address $1420 in the resident monitor. This setting terminates the current 
job, and all control records are bypassed until the next JOB monitor control record is 
read. You can alter the function of the INT REQ key by coding your program to place, in 
$IREQ, the address of an INT REQ service subroutine that you have written. 

An INT REQ service subroutine that you write can read the console entry switches and 
set program indicators. You should remember that your subroutine is executed with in- 
terrupt level 4 on, preventing recognition of other interrupts on level 4 or 5. Because of 
this, the following should be kept in mind when you code an INT REQ service subroutine: 

• A LIBF or CALL to a subroutine from your service subroutine can cause a recurrent- 
entry problem. If the called subroutine is already in use when you press INT REQ, the 
new LIBF or CALL in your subroutine destroys the original return address and disrupts 
the operation of the called subroutine. 

• A LIBF or CALL to an ISS can cause an endless loop if the called ISS operates on level 
4 and a test for operation completed is performed by your service subroutine. This 
loop occurs because the interrupt indicating the operation is complete is delayed until 
the INT REQ key interrupt is turned off. 

• Your subroutine must perform an XIO sense keyboard/console with reset before re- 
turning. 

• Your subroutine must increment the return address by 6 when returning to the ILS 
subroutine. A BSC instruction must be used to go back to the ILS where the interrupt 
is turned off. 



Note. When the core load of your program contains the TYPEZ, WRTYZ, TYPED, or 
WRTYO subroutine, the XIO sense keyboard/console with reset can be omitted. In this 
case, code your subroutine to return to the return address plus one. 

Two sample subroutines are included in this section to illustrate how the function of the 
INT REQ key can be altered temporarily. These subroutines can be called by either FOR- 
TRAN or assembler programs. Both subroutines perform the same function; when INT 
REQ is pressed, the console entry switches are read. If console entry switch zero is off, 
program execution continues from where it was interrupted. If console entry switch 
zero is on, the system exits to the next job. The first of the sample INT REQ service 
subroutines (Figure 6-3) illustrates the coding that can be used by any core load. The 
second of the sample INT REQ service subroutines (Figure 6-4) illustrates the coding 
that can be used by a core load that contains TYPEZ, WRTYZ, TYPEO, or WRTYO. 
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Label 
21 25 




Operation 
27 30 


F T 
32 33 


Operands & Remarks 
35 40 45 50 55 60 65 70 


|XX,X 


H* 


X 


x,x,x,xx 


XX) 


^XiXiXiXiXiXiXiXiXXiXXiXiXiXi^iXiXiXiXXiXiXiXiXiXiXiXiXiXiXiXXXiXiXiX 


IX, , 


L J 




1 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




|4 




L\A\L.\L 


70 


7,//./. 5, ^UBPCUTJUE, JW/.L.L ,CHAMG£, THE, , , , , , 


X, , 


'^ 





MTEMT 


5 <: 


)£, ,$J,P£a ,/,/V, ,7/V.E RE,SJD£NT MQNJTOtt.* ,/,£, . 


X , 


,7 


H 


£, ,/,A/7 


££Z 


?UP,7 MEOUEST XE,Y, J,S, PP£SS£D l AFTER A , , 


X, ■ 


,£ 


A 


a, to 


7/ 


y/,5 JmmUJJME HAS B££U £,X£C,UT£D, 9 , a , , 


X, , 


,B 


P 


AtidL 


10 


7,/V.E ,SSCON,n MART, &F THE, ,5,USRQU,T, 1 ME, , , , 


IX, , , ,14/ 


/ 
l/V 


LLi T A 


HE 


VxLAG&.x THIS &UBMQUT1ME £AH B£ USER ,/,A/ 


i^U-i^ 


y, ,C0£ 


£ L 


-04Z) ,M JV./.LL PPEMEMT, £,LU5HI,N,a TO, ,TH£ 


ix i i i/y 


£ 


XlIL^O 


B 


IF, THE JMT ,/?,£■£>, KEX ,/,5 PRESSED, . . 


Ai i i i 




J_J L 




i i i i i t i i i i i i i i i i i i i i i i i i i i i i i it 


r x,x,x,x,x 


* 


x,x,x,xx 


XX) 


<X.X,X,X,X,X,X,X 1 X 1 X I X,X,X,XX,X 1 X,X,X t X 1 X l X 1 X,X 1 X 1 XiX,X,X,^X I X,X 1 X,^X,X 


X| , | | 




1 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 




£,A/7; 




I iK\E-\W\ i i i i i i i i i i i i i i i i i i i i i i i i i i i , i i i i 
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Figure 6-3. INT REQ service subroutine for any core load 
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Figure 6-4. INT REQ service subroutine for core load using TYPEZ, WRTYZ, TYPE0, or WRTY0 
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FORTRAN Programmer Tips 
Use of EQUAT 

TIPS FOR FORTRAN PROGRAMMERS 

The tips in this section will help you when: 

• Referencing different data files by using the supervisor *EQUAT control record 

• Using valid input data during program execution 

• Controlling the console printer during program execution 

• Entering data for arrays so as to provide efficient dumping of a DSF program 

Tips for Use of the EQUAT Control Record 

The supervisor *EQUAT function is used to substitute a subroutine for another called sub- 
routine in core loads that are being built. Thus, a program does not have to be recompiled 
or reassembled to reference different subroutines. 

For example, suppose that your FORTRAN mainline program prints on the 1 132 Printer, 
and you want to have it print on the 1403 instead. Without an EQUAT control record, you 
would have to change the *IOCS control record and recompile the program. With EQUAT, 
you have only to specify on the EQUAT control record that PRNZ (the 1403 subroutine) 
is to be substituted for PRNTZ (the 1 132 subroutine) when the core load is built. When 
EQUAT is used, the core load builder compares each call in the program with the left-hand 
name of each specified subroutine pair on the EQUAT control record. Each time a match 
is found, the core load builder substitutes the right-hand name of the EQUAT subroutine 
pair for the name in the calling statement of the program. Note that the EQUAT control 
record is associated with the monitor JOB control record, which implies that all core loads 
that are built for the job be built from the same substitution list. 

The use of EQUAT is not restricted to I/O substitutions. You might, for example, have 
several versions of a subroutine, each stored under a different name. With EQUAT, any of 
these subroutines can be used without recompiling or reassembling the calling programs. 

You must remember that the calling sequence of any substitute pair must be identical 
since the core load builder does no more than substitute one name for the other. Thus, 
CARDZ cannot be substituted for PRNZ because the 80-column count associated with 
CARDZ is incompatible with the 120-word count associated with PRNZ. The equatable 
FORTRAN I/O subroutines are: 



1132 Printer 1403 Printer 

PRNTZ PRNZ 


2501 Card Reader 


1442 Card Rmader 
Punch 


Console 

printer 

keyboard 


1055 Punch 
1134 Reader 


1627 Plotter 


Notes 


READZ 


CARDZ 


TYPEZ 
TYPEZ 
WRTYZ 






Input only 
Output on 
Output on 




PAPTZ 
PAPTZ 


*VCHRI,WCHRI 
*VCHRI,WCHRI 














*VCHRt — extended precision 
WCHRI — standard precision 
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invalid source characters 
paper tape data record format 

The following lists the possible entries in a FORTRAN *IOCS control record and the sub- 
routine each entry implies: 



*IOCS entry 


Subroutine called 


CARD 


CARDZ 


2501 READER 


READZ 


1442 PUNCH 


PNCHZ 


TYPEWRITER 


WRTYZ 


KEYBOARD 


TYPEZ 


1132 PRINTER 


PRNTZ 


1403 PRINTER 


PRNZ 


PAPER TAPE 


PAPTZ 


PLOTTER 


PLOTX 


DISK 


DISKZ 


UDISK 


DISKZ 



The FORTRAN programmer should also remember that the name of a function subroutine 
as stored in the system library must be used in an EQUAT control record; not the function 
name that is coded in FORTRAN statements. 

EQUAT can also be used to allow a FORTRAN program to overlap the operations of the 
1 132 Printer with the synchronous communication adapter (SCA). The operations of 
these I/O devices cannot be overlapped unless the 1 132 is serviced by PRNT2. EQUAT 
can change PRNTZ (the subroutine used by FORTRAN I/O for 1 132 printing) to the 
name PRTZ2 (a special subroutine to interface between PRNTZ and PRNT2). 1 132 
printing is then performed by PRNT2 and can be overlapped with the SCA. 

Invalid Characters in FORTRAN Source Cards 

Any invalid FORTRAN character in a FORTRAN source card is converted to an amper- 
sand, causing the compiler to print an error message. The error message that is printed 
depends on the kind of statement in which the invalid character is found. The FORTRAN 
character set is listed in Appendix C of the publication IBM 1130/1800 Basic FORTRAN 
IV Language, GC26-37 1 5 . 

FORTRAN Object Program Paper Tape Data Record Format 

Data records of up to 80 EBCDIC characters in paper tape PTTC/8 code can be read or 
written by FORTRAN object programs. Delete and newline codes are recognized. Delete 
codes and case-shifts are not included in the 80 characters. When a newline code is read 
before the 80th character, the record is terminated. If the 80th character is not a newline 
code, the 81st character read is assumed to be a newline code. 
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FORTRAN Programmer Tips 
keyboard input 
console printer control 



keyboard operation 



buffer status after 
keyboard entry 



Keyboard Input of Data Records During FORTRAN Program Execution 

Data records of up to 80 characters can be read from the keyboard by a FORTRAN READ 
statement. Data values must be right justified in their respective fields. 

If you want to key in less than 80 characters, press EOF to stop transmittal. Also, pressing 
ERASE FIELD or the backspace key («-) allows you to reenter a record when you make a 
mistake during data entry. If the keyboard appears to be locked, press REST KB. Select 
the correct case shift before entering data. 

The input buffer is filled with blanks before you enter a data record. Therefore, when you 
press EOF before you have entered 80 characters, the rest of the buffer remains blank, 
If more data is necessary to satisfy the list items in the DATA statement, the remaining 
numeric fields (I, E, or F) are stored in core as zeros, and alphameric fields (A or H) are 
stored as blanks. Processing is continuous; errors do not result from the previous condition. 



Note. Information about buffer status after pressing ERASE FIELD or the backspace key 
(«-) is under "Functions of Console Operator Keys During Monitor System Control" and 
"Entering Jobs from the Console Keyboard," respectively, in Chapter 7. 

FORTRAN Program Control of the Console Printer 

You can code your program to control spacing, tabulating, and shifting on the console 
printer by assigning unique values for desired operations to variables. These variables must 
be assigned as integers, and A-conversion must be used in the FORMAT statement for these 
variables. 

The operations that can be performed and the values that are assigned to them include: 



Operation 


Value 


Backspace 


5696 


Carrier return 


5440 


Line feed 


9536 


Shift to print black 


5184 


Shift to print red 


13632 


Space 


16448 


Tabulate 


1344 



As an example of console printer control, assume that a variable, X, is printed in the exist- 
ing black ribbon shift and that another variable, Y, is printed in red after a tabulation. 
Following the printing of Y, the ribbon is shifted back to black. The following statements 
perform these functions: 
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DATA statement 
// records read 
I/O errors 

FORTRAN logical unit 1, as specified in the WRITE statement, is the console printer. The 
sequence of operations to be performed are: 

• Print X 

• Tabulate 

• Shift to print red 

• Print Y 

• Shift to print black 

Each control variable counts as one character and must be included in the count of the 
maximum line length. 

Length of FORTRAN DATA Statement 

An error (DATA statement too long to compile, due to internal buffering) occurs if: 

(Gi + G 2 + . . . + G n ) >355 

where 

N is the number of constants in this DATA statement. 

Each G is a constant with the factor: 

G = 1 + C + (Kj + K 2 + . . . + K v ) 

where 

C is the length in words of this constant and V is the number of variables loaded with 
this constant. 

Each such variable has a factor of: 

K = 1 for a nonsubscripted variable or K = 2 for a subscripted variable 

// Records Read During FORTRAN Program Execution 

Any /ft record read by CARDZ, READZ, or PAPTZ during a FORTRAN program execu- 
tion causes an immediate CALL EXIT. Only the //# characters are recognized by CARDZ, 
READZ, or PAPTZ. Any other data punched in this record is not available to programs in 
the monitor system, and the record is not printed. After the //# record is read, the super- 
visor searches for the next valid monitor control record entered from the reader. 

For offline listing purposes, however, this record can contain comments, such as // END 
OF DATA. 

FORTRAN I/O Errors 

If input/ output errors are detected during execution, the program stops. The error is 
indicated by a code displayed in the console ACCUMULATOR (see Appendix B for a list 
of the codes and their causes). 

When an output field is too small to contain a number, the field is filled with asterisks and 
execution continues. 

The I/O subroutines used by FORTRAN (PAPTZ, CARDZ, PRNTZ, WRTYZ, TYPEZ, 
PNCHZ, READZ, PRNZ) wait on any I/O device error or device not in a ready condition. 
Ready the device, and press PROGRAM START to continue. 

Error detection in functional and arithmetic subroutines is possible by the use of source 
program statements. Refer to "Machine and Program Indicator Tests" in the publication 
IBM 1130/1800 Basic FORTRAN IV Language, GC26-37 15. 
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FORTRAN Programmer Tips 

dumping DSF programs to cards 
RPG object program considerations 



Dumping FORTRAN DSF Programs to Cards 

Arrays are always allocated backwards in core storage by the FORTRAN compiler. Because 
of this basic principal of the compiler, DSF output may be somewhat inefficient when 
dumped to cards if arrays are included in DATA statements. Such statements can cause 
cards to be punched with only one data word each. 

To circumvent this inconvenience, write every element of an array explicitly in a DATA 
statement, starting with the element of the highest order. 



RPG OBJECT PROGRAM CONSIDERATIONS 



An RPG object program requires the special interrupt level subroutines (ILSs named with 
an X, as ILSX4). You code any character in column 28 of an XEQ monitor control record 
and in column 12 of a STORECI DUP control record to cause the special ILSs to be in- 
cluded in a core load. If the program is stored in core image (STORECI), the special ILSs 
are stored with the program on disk. 

The storing of programs in disk core image format on disk is not recommended (see 
"Disadvantages of Storing a Program in DCI Format" in this chapter). 



6-52 



Chapter 7. Operating the 1130 Disk Monitor System 



This chapter contains procedures that are used frequently during the operations of the 
1 130 Disk Monitor System. These procedures include: 

• General procedures for readying the components of the 1 130 for operation 

• Procedures for performing a cold start of the monitor system 

• General operating procedures that are used while the monitor system is in operation 

The procedures for readying the 1 130 components are performed when a device is to be 
used and is not ready. The central processing unit must be the first device readied as the 
console POWER switch, when turned on, supplies power to the entire 1 130 computing 
system. The procedures for the I/O devices need not be performed in the order presented; 
however, if the disk drives are readied first, other devices can be readied while the disk 
drives are reaching operating speed. Detailed procedures for changing forms, tapes, and car- 
tridges are not included here; they are in the publication IBM 1130 Operating Procedures, 
GA26-5717. 

The functions of the cold start program and operating procedures for performing a cold 
start from cards or from paper tape are described in detail. 

The procedures used while the monitor system is in operation are: 

• Loading control records, program statements, and data records 

• Controlling the system with the PROGRAM STOP, PROGRAM START, INT REQ, 
and IMM STOP function keys on the console 

• Displaying and altering selected core storage locations 

• Manually dumping core storage 
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Readying Devices 
1131 CPU 



READYING THE 1131 CENTRAL PROCESSING UNIT (with an internal disk) 



Operator action 

1 . Move the console POWER 
switch to ON. This switch 
supplies power to the entire 
system, and must be on before 
any of the I/O devices are 
readied. 

2. Insert a cartridge in the 
single disk drive. 

3. Move the DISK switch on the 
disk drive to ON. The disk drive 
requires approximately 90 sec- 
onds to reach operating speed. 



Indicator lights 



ON 



ALARM 

OFF 



SPARE 



*f 






DISK 
UNLOCK i 



FILE 
READY 



RUN 



PARITY 
CHECK 



K.B. 
SELECT 




System response or Error indicator and 
corrective action 

If the FORMS CHECK light comes on, 
insert or adjust the paper in the console 
printer. If the DISK UNLOCK light comes 
on, it indicates that the DISK switch on the 
disk drive is set to OFF. See step 3. 



The FILE READY light comes on when 
the disk drive reaches operating speed. 



If any other indicator lights on the console 
are on, press RESET. 

Function keys 



ON 

| POWER | 



CONSOLE 
KEYBOARD 
KEYBOARD 



PROGRAM 
START 



IMM 
STOP 



PROGRAM 
STOP 



RESET 



LOAD 
IAR 



PROGRAM 
LOAD 



* These indicators are blank on an 1 131 CPU that does not contain an mternal single disk drive. 

READYING THE 1131 CENTRAL PROCESSING UNIT (without an internal disk) 

Operator action 



1 . Move the console POWER 
switch to ON. This switch 
supplies power to the entire 
system, and must be on before 
any of the I/O devices are 
readied. 

2. Ready the 231 1 Disk Storage 
Drives as described under 
"Readying the 23 1 1 Disk 
Storage Drive" in this chapter. 



System response or Error indicator and 
corrective action 

If the FORMS CHECK light comes on, 
insert or adjust the paper in the console 
printer. 

If any other indicator lights on the 
console are on, press RESET. 
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Readying Devices 

2310 Disk Drive 

231 1 Disk Drive 



READYING THE 2310 DISK STORAGE DRIVE 

Operator action 



START 
STOP 



8 



1 . Be sure system power is turned 
on. 

2. Insert the disk cartridges 

3. Move the START/ STOP switch 
to START. 

4. Be sure the ENABLE/DISABLE 
switch on the 1 133 Multiplex 
Control Enclosure is in the- ENABLE 
position. 

5. Move the START/STOP switch to 
START position for the cartridges 
being used. The drives require Ap- 
proximately 90 seconds to reach 
operating speed. 

6. Move the ENABLE/DISABLE switch 
on the disk storage drive to ENABLE. 



CARTRIDGE 
UNLOCKED 



START 
STOP 



8 



System response or Error indicator and 
corrective action 

If the CARTRIDGE UNLOCKED light comes 
on, it indicates that the START/STOP switch 
is set to STOP. See step 3. 



The READY light on the 1 133 is on. 



The indicators showing the drive numbers 
come on when the disks reach operating speed. 



CARTRIDGE 
UNLOCKED 



ENABLE 
DISABLE 



READYING THE 2311 DISK STORAGE DRIVE 

Operator action 



1 . Be sure system power is 
turned on. 

2. Be sure the ENABLE/DISABLE 
switch on the 1 133 Multiplex 
Control Enclosure is in the 
ENABLE position. 

3. Insert a disk pack in the 23 1 1 , 
if necessary. 

4. Move the START/STOP switch 
to the START position. The 
disks require approximately 
60 seconds to reach operating 
speed. 

f Move the ENABLE/DISABLE 
switch on the disk storage 
drive to the ENABLE position. 



SELECT 
LOCK 



System response or Error indicator and 
corrective action 



The READY light on the 1 133 is on. 



The green indicator showing the drive 
number comes on when the disks reach 
operating speed. 



ENABLE! 
DISABLE! 



8 s s T r§ 
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Readying Devices 
1132 Printer 
1403 Printer 



READYING THE 1132 PRINTER 



|;i POWER 
ON 



ON K 

S MOTOR * 
£,.,,,,,,,,,, OFF 






Operator action 

1 . Move the printer MOTOR switch 
to ON. 



2. 
3. 

? READY 



Press CARRIAGE RESTORE. 
Press START. 



CARRIAGE 
SPACE 



System response or Error indicator and cor- 
rective action 

The printer POWER ON light comes on. 



If the printer FORMS CHECK light comes 
on, insert or adjust the paper in the printer. 



The READY light comes on. 



iTTrrrrrrrrrrrrr 1 
FORMS | 
CHECK | 



PRINT 
SCAN 
CHECK 



i CARRIAGES 
! RESTORE..! 

.•.•.•.•.•.■.•.•.•.'.•.'.•.•■■.■.•.■.•.•. 1 



CARRIAGE 
STOP 



START 



STOP 



Indicator lights 



Function keys 



READYING THE 1403 PRINTER 



Operator action 

1. Be sure system power is turned 
on. 



Be sure the ENABLE/DISABLE 
switch on the 1 133 Multiplex 
Control Enclosure is in the 
ENABLE position. 

Press the CARRIAGE RESTORE 

key on the printer. 

Press START. 



System response or Error indicator and cor- 
rective action 

If any indicator lights on the printer other 
than PRINT READY are on, correct the con- 
dition (see the publication IBM 1130 Opera- 
ting Procedures, G A26-5 717). 

The READY light on the 1 133 is on. 



The PRINT READY light comes on. 



Function keys 



START 



CARRIAGE 
SPACE 



CHECK 
RESET 



:iCARRIAGE;; 
I RESTORE f. 



STOP 



SINGLE 
CYCLE 



Indicator lights 



Tprint 

I READY 

| END OF 
| FORMS 



FORMS 

[check 



PRINT ! 



CHECK 



SYNC 
CHECK 



CARRIAGE 
STOP 
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Readying Devices 

1442 Card Read Punch 
1442 Card Punch 



READYING THE 1442 MODEL 6 AND 7 CARD READ PUNCH 

Operator action 

1 . Be sure system power is turned 
on. 



2. Press the NPRO key. 

3. Place the cards to be processed 
in the hopper, face down, 9- 
edge first. 



4. Press the START key. 



HOPR 



• READ 
| STA 
| PUNCH 
I STA 
! TRANS 



FEED 
CLU 



READJ 
REG | 

PUNCH I 

over' 

RUN I 
f 



POWER 
ON 



CHECK 



START 



System response or Error indicator and cor- 
rective action 

The 1442 POWER ON and HOPR indicator 
lights are on. 

If the CHIP BOX light is on, empty the chip 
box. 

If any indicator lights other than HOPR are 
on, correct the condition (see Appendix B). 

The HOPR light goes off. 



The READY light comes on. 



!":; READY 



1 1 i.ii 1 1 1 1 . . i . . .'. 



CHIP BOX 



Indicator lights 



HQffTTlT***! 



NPRO 'i 



STOP 



Function keys 



READYING THE 1442 MODEL 5 CARD PUNCH 

Operator action 

Follow the procedure for readying 
Models 6 and 7 with one exception; 
use blank cards in Step 3 rather 
than cards ready for processing. 
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Readying Devices 
2501 Card Reader 
1 1 34 Pacer Tape Reader 

READYING THE 2501 CARD READER 

Operator action 



1 . Be sure system power is turned 
on. 



2. Press NPRO. 

3. Place cards to be processed 
in the hopper, face down, 9- 
edge first. 

4. Press START. 



ATTENTION 



READ 
CHECK 



System response or Error indicator and cor- 
rective action 

The card reader POWER ON and FEED 
CHECK lights are on. 

If any other indicators are on, correct the con- 
dition (see Appendix B). 

The FEED CHECK light goes off. 



The READY light comes on 



READY 



i; FEED I 
§ CHECK t 



START 



MMiMiiimni li 1 1 1 1 1 1 1 



NPRO 



\ POWER 
ON 



STOP 



Indicator 
lights 

Function 
keys 



READYING THE 1134 PAPER TAPE READER 

Operator action 

1 . Be sure system power is turned 
on. 

2. Insert a tape to be processed 
in the paper tape reader; posi- 
tion under the read starwheels 
any of the delete codes that 
follow the program ID in the 
tape leader. 



Delete 
codes 



•••••••••• 

•••••••••• 

•••••••••• 



i 



Feed holes 




< 



Tape movement 
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Readying Devices 

1055 Paper Tape Punch 



READYING THE 1055 PAPER TAPE PUNCH 

Operator action 

1. Be sure system power is turned 



2. 



4. 



on. 

Insert a blank tape in the paper 
tape punch. 

Press the DELETE key on the 
punch and hold down while per- 
forming Step 4. Do not release 
the DELETE key. 

With the DELETE key held down, 
press the FEED key and hold 
down to punch several inches 
of delete codes. 

Release the FEED key before 
the DELETE key. 



Tape Tension Lever 




Note: The tape tension 
lever must be down in 
order to ready the 1 055. 
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Readying Devices 
1627 Plotter 



READYING THE 1627 PLOTTER 



Operator action 



Be sure system power is 
turned on. 

Turn the 1627 POWER 
switch to the ON position. 



With the pen in the UP posi- 
tion, use the 2 DRUM (X 
akis) and the 2 CARRIAGE 
(Y axis) controls to position 
the pen for the first plot. 



System response or Error indicator and c or- 
rective action 



The POWER ON light comes on. 

If the pen is not in the up position, move the 
PEN switch first to DOWN, then to UP. 
If a single sheet of chart paper is used, be 
sure the CHART switch is in the OFF position. 




Readying Devices 
1231 OMPR 



READYING THE 1231 OPTICAL MARK PAGE READER 

Operator action 

1 . Be sure system power is 
turned on. 

2. Place the data sheets in 
the hopper with the 
side to be read facing 
up and the top edge 
positioned to feed 
first. 

3. Move the FEED MODE 
switch to ON-DEMAND. 

4. Press PROGRAM LOAD. 

5. Press RESET. 



6. Press START. 

7. Press START again. 



System response or Error indicator and cor- 
rective action 

The 1231 POWER ON light is on. 



The PROGRAM LOAD light comes on. 

The hopper is raised to the ready position. The 
RESET light goes off and the START light 
comes on. 

The PROGRAM LOAD light goes off. 

The START light goes off. All indicator 
lights should be off, with one exception: the 
SYSTEM STOP light can be on. 



3 5 MASTER j 
2 ^~^ 6 MARK* 

OFF 9 
TIMING MARK CHECK FEED , 
MODE ' 

CONTROL * 
TIMING | 
MARKS 


ON 














OFF 
CONTINUOUS 


POWER ON 




| program!; 

| .LOAD. J 






^SSjiiWi 
















1 RESET 




P 


OWER OF 


F 


® 










ON-DEMAND 


f'sYSTEM | 
| ........STOP J 




PROC CHECK 




1 START | 




READ LIGHT 


YES 














® 


RE-FEED 
SEL DOC 




FEED 
CHECK 




STOP 




NO 
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Cold Start 

COLD START PROCEDURE 



The cold start procedure is initiated when the cold start record is read by the card reader 
or the paper tape reader. This record causes the cold start program stored in cylinder of 
the system cartridge to be read into core storage. The cold start program gains control and 
reads the resident image and the DISKZ subroutine from cylinder into the resident moni- 
tor portion of low core storage. Program control is then assumed by the skeleton super- 
visor portion of the resident monitor. 

During the cold start program, a dummy // JOB control record is printed on the principal 
printer, and the following cartridge status information is printed: 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
XXXX XXXX XXXX XXXX 

VX -MXX ACTUAL XXK CONFIG XXK 

where 

LOG DRIVE is always a single entry of zero. 

CART SPEC is the cartridge ID written on the system cartridge when initialized. 

CARTA VAIL is the same as CART SPEC. When more than one disk drive is on the 
computer, the IDs of any other disk cartridges that are ready are also listed. 

PHY DRIVE is the physical drive number you enter in the console entry switches. 
This drive is also logical drive zero. When more than one disk drive is on the com- 
puter, the physical drive numbers of any other disk cartridges that are ready are 
also listed. 

VX MXX is the version and modification of the monitor system on the current 
system cartridge. 

ACTUAL XXK is the physical core size of the 1 130. 

CONFIG XXK is the configured core size on the system cartridge. 

Note. The monitor system is not supported unless the physical core size at least 
equals the configured core size. 

The monitor system is now operational and is ready to receive the first JOB monitor 
control record. 

Note. If your system has only one disk drive (the internal disk in the 1131 CPU or one 
231 1), you should cold start after changing cartridges, or packs, to avoid possible errors in 
the location of disk areas on system cartridges. 

If an attempt is made to cold start a nonsystem cartridge, an error message (THIS IS A 
NONSYSTEM CARTRIDGE or NONSYS. CART. ERROR) is printed on the console 
printer. Error stops can occur during the cold start procedure. They are listed and 
explained under "Cold Start Program Error Waits" and "ISS Subroutine Preoperative 
Error Waits" in Appendix B. 

Note. Do not perform a cold start with an uninitialized cartridge online. 

The cold start procedure is started from the card reader or the paper tape reader as 
described in the following procedures. 
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Cold Start 
card system 
paper tape system 

Card System Cold Start Procedure 

1 . Ready the devices to be used. 

2. If your 1 130 has only one disk drive, be sure all console entry switches are off. For 
systems with more than one disk drive, be sure switches through 1 1 are off; set 
switches 12 through 15 to the drive number (in binary) of the physical drive that 
contains the system cartridge: 

Drive 0— Switches 12 through 15 off 

Drive 1— Switch 15 on 

Drive 2-Switch 14 on 
*Drive 3— Switches 14 and 15 on 
*Drive 4— Switch 1 3 on 

Drive 5 -Switches 13 and 15 on 

Drive 6— Switches 13 and 14 on 

Drive 7-Switches 13, 14, and 15 on 
*Drive 8-Switch 12 on 
*Drive 9— Switches 12 and 15 on 

Drive 10— Switches 12 and 14 on 
*Not used on a 231 1 Disk Storage Drive, Model 12 

3. Place the cold start card in the card reader wired for cold start. Then place cards to 
be processed in the card reader. 

4. Press START on the card reader. (If both a 2501 and a 1442, Model 6 or 7, are 
present, make the reader wired for cold start ready and make sure the other reader 
is not ready by pressing STOP.) 

5. Press IMM STOP on the console. 

6. Press RESET on the console. 

7. Press PROGRAM LOAD on the console. 

Paper Tape System Cold Start Procedure 

1. Ready the devices to be used, except the paper tape reader. 

2. If your 1 130 has only one disk drive, be sure all console entry switches are off. For 
systems with more than one disk drive, be sure switches through 1 1 are off; set 
switches 12 through 15 to the drive number (in binary) of the physical drive that 
contains the system cartridge as follows: 

Drive 0— Switches 12 through 15 off 

Drive 1— Switch 15 on 

Drive 2— Switch 14 on 

Drive 3— Switches 14 and 15 on 

Drive 4— Switch 13 on 

3. Insert tape BP15, cold start paper tape record, in the paper tape reader. Position 
under the read starwheels one of the delete codes after the program ID. 

4. Press IMM STOP on the console. 

5. Press RESET on the console. 

6. Press PROGRAM LOAD on the console. 
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Entering Jobs 

card or paper tape reader 
console keyboard 

USING THE 1130 WITH THE MONITOR SYSTEM 



When the I/O devices required for a job are online and ready, and the monitor system is 
running, jobs can be entered from the card reader, the paper tape reader, or the console 
keyboard. The following procedures describe how jobs are entered. 

Entering Jobs from the Card Reader 

1. Place the cards to be processed in the card hopper, face down, 9-edge first, and 
press START on the card reader. 

2. Check that the console mode switch is set to RUN. 

3. Press PROGRAM START on the console. 

4. When the last card is indicated (hexadecimal /1000 for the 1442 Card Reader or 
/4000 for the 2501 Card Reader) in the ACCUMULATOR on the console display 
panel, press START on the card reader and PROGRAM START on the console so 
that the last card is released. This step need not be done if blank cards follow the 
last card processed. 



starting keyboard 
operation 



Entering Jobs from the Paper Tape Reader 

1. Insert the tape to be processed in the paper tape reader. Position under the read 
starwheels one of the delete codes after the program ID. 

2. Check that the console mode switch is set to RUN. 

3. Press PROGRAM START on the console. 

Entering Jobs from the Console Keyboard 

A single monitor control record or an entire program including all required control records 
and data records can be entered from the console keyboard. Monitor control is transferred 
to the keyboard when a // TYP monitor control record is read from the principal input 
device. 

Control is returned to the principal input device when a // TEND monitor control record 
is entered from the keyboard. The formats of these 2 control records are described in 
Chapter 5 under "Monitor Control Records." 

When the // TYP control record is read, the console printer performs a carriage return 
and the KB SELECT light on the keyboard operator's panel comes on. The system is now 
in a WAIT state at $PRET with /2002 in the accumulator, awaiting keyboard input. 

Enter all control records, program statements, and/or data records in their correct format. 
Use the space bar for blanks. As each character is entered, it is printed on the console 
printer. Press EOF to indicate the end of each line. When this key is pressed, an NL (new 
line) character is placed in the next character position of the input buffer, and the typing 
element is returned to the left margin of the next line. 

Up to 80 characters can be entered in one line through the console keyboard. If an error 
is made during entry of a line, you can either backspace to correct the error or erase the 
entire line and reenter it. 

When the TYPEO I/O subroutine is being used, a line is corrected during entry by pressing 
the backspace («-) key as many times as required until you reach the first character that 
has to be corrected. The first time that you press the backspace key, the last character 
printed on the console printer is slashed. The location address of the next character to be 
entered in the input buffer is decremented by one each time the backspace key is pressed. 
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ERASE 
FIELD 




stopping keyboard 
operation 



PROGRAM 
STOP 



PROGRAM 
START 





Operating DM2 

console operator keys 

For example, assume that you have entered *DELET and want to change it to *DEFINE. 

1. Press the backspace key 3 times. (The T is slashed: *DELEX.) 

2. Enter the correct characters. (The corrected line appears as *DELETFINE on the 
console printer. The input buffer now contains *DEFINE; the characters FIN re- 
place LET in the buffer.) 

Note. When the TYPEZ I/O subroutine is being used, the backspace key functions the same 
as the ERASE FIELD key. 

A line can be erased when you press ERASE FIELD. This key signals an interrupt response 
subroutine that the previously entered characters are incorrect and are being reentered. 
Two slashes are printed on the console printer (when the TYPEO I/O subroutine is being 
used), and the typing element is returned to the left margin of the next line. The correct 
characters that you enter replace the previously entered characters in the input buffer. 
The previous message is not deleted from the input buffer; if the previous message is longer 
than the new one, the characters from the previous message remain (following the NL 
character that terminates the new message). 

Note. When the TYPEZ I/O subroutine is being used, the two slashes are not printed when 
ERASE FIELD is pressed. 

If the keyboard appears to be locked (keys cannot be pressed), press REST KB (the restore 
keyboard key). The correct case shift must be selected before data is entered. 



Continue entering control records, program statements, and/or data records as just des- 
cribed until all are entered. Then enter a // TEND control record, and press EOF. Control 
is returned to the principal input device. 

Functions of Console Operator Keys During Monitor System Control 

Pressing PROGRAM STOP causes an interrupt of the monitor system programs. This is a 
level 5 interrupt and causes an entry to the PROGRAM STOP key trap in the skeleton 
supervisor, if no user-written subroutines are associated with level 5. 

If a higher interrupt level is being serviced when you press PROGRAM STOP, the PRO- 
GRAM STOP interrupt is masked until the current operation is complete. 

The PROGRAM STOP key trap consists of a wait and a branch. Execution of the monitor 
system programs is continued when you press PROGRAM START. The status of the moni- 
tor system and of core storage is not changed when the system is stopped with the PRO- 
GRAM STOP key. 

Pressing PROGRAM START also continues execution of the monitor system programs 
from ISS subroutine waits. A code in the ACCUMULATOR on the console display panel 
indicates the reason for the wait. ISS subroutine waits and their causes are listed in Appen- 
dix B. 

Pressing the interrupt request (INT REQ) key immediately terminates the current job. Sys- 
tem control returns to the supervisor, which searches through the input stream for the 
next JOB monitor control record. You have the option of programming this key for a 
different use (see Chapter 6. "Programming Tips and Techniques"). Portions of the moni- 
tor system that cannot be interrupted before completion, such as SYSUP, delay the inter- 
rupt until the operation is complete when INT REQ is pressed. Because the keyboard 
remains selected during interrupt request processing when in // TYP mode, you must be 
careful not to press any keys until the /2002 halt at $PRET is displayed. 

Pressing the immediate stop (IMM STOP) key immediately stops processing. 

Note. Do not press IMM STOP when the monitor system is running. The contents of a 
system cartridge can be destroyed, necessitating a reload of the system. 
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Operating DM2 

displaying or altering core locations 
manually dumping core 



select a core 
location 



display contents 
of the location 



alter contents of 
location 



return to system 
control 



Displaying or Altering the Contents of a Selected Core Location 

I To select a specific core location to be displayed or altered: 

1 . Press PROGRAM STOP on the console. 

2. Turn the console mode switch to LOAD. 

3. Set the console entry switches to the desired 4-character hexadecimal core address. 
Switches through 3 represent the first hexadecimal character, 4 through 7 the 
secohd, 8 through 11 the third, and 12 through 15 the fourth. 

4. Press LOAD IAR on the console. The selected address is loaded into the IAR and is 
displayed in the INSTRUCTION ADDRESS indicator on the console display panel. 

To display the contents of the selected core location: 

1. Turn the console mode switch to DISPLAY. 

2. Press PROGRAM START. The contents are displayed in the STORAGE BUFFER 
indicator on the console display panel. Repeatedly pressing PROGRAM START dis- 
plays the contents of consecutive core locations. 

To alter the contents of the selected core location: 

1. Set the new contents (in hexadecimal) in the console entry switches. 

2. Turn the console mode switch to LOAD. 

3. Press PROGRAM START. 

After the contents of the selected core location have been displayed and/or altered, return 
to system control: 

1. Turn the console mode switch to RUN. 

2. Press PROGRAM START. Execution begins at the location specified in the IAR. 

Manual Dump of Core Storage 

When a problem occurs during the execution of a core load and a dump of core storage is 
needed, you can execute a manual dump of core storage: 

1. Press PROGRAM STOP, 

2. Turn the console mode switch to LOAD. 

3. Set the address plus one of the dump entry point ($DUMP+1) to the skeleton super- 
visor in the console entry switches. 

4. Press LOAD IAR on the console. 

5. Turn the console mode switch to RUN. 

6. Press PROGRAM START. 

A dump of the contents of core storage is printed in hexadecimal, then the dump program 
(see "Disk-Resident Supervisor Programs" in Chapter 3) executes a CALL EXIT to termin- 
ate execution of the core load in progress. 

If the $IOCT, SDBSY, or $SCAT indicators in the resident monitor are nonzero when the 
branch to SDUMP+1 is made, the skeleton supervisor begins a loop testing these indicators. 
When this occurs: 

1. Press PROGRAM STOP. 

2. Display, and change to zero if necessary, the content's of each of these locations. 

3. Restart the manual dump of core storage. 
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Chapter 8. Monitor System Initial Load and System Reload 



initial load An initial load is the process of loading the complete disk monitor system onto an 

initialized disk cartridge. An initial load is performed when: 

• An 1 1 30 computing system is installed 

• Data contained on a system cartridge has been destroyed making the disk unuseable 

• The assembler and/or any of the compilers are to be loaded onto a system cartridge 

reload A system reload is the process of loading modifications to the disk monitor system onto 

a system cartridge. A system reload is performed when: 

• Existing phases of system programs are being added or expanded 

• New system programs are being added 

• The I/O device configuration is being changed 

Any combinations of the previous functions can be performed during a reload. The follow- 
ing should be kept in mind when preparing to perform a reload: 

• The cushion area must be large enough to absorb the increased length of system programs 
when they are added or expanded. 

• Program additions must follow the last system program currently on the cartridge. 
Working storage must be equal to or larger than the length of the program being added, 
plus 3 1 sectors. 

• System configuration is performed each time a system reload is performed. Reconfigu- 
ration is necessary when a system cartridge is copied from a system with a different 
configuration. 

Initial load and reload procedures are performed with IBM-supplied system loaders, 
control records, system programs, and with control records that you punch. The informa- 
tion supplied by IBM is contained on paper tapes for paper tape systems and on disk 
cartridges for card systems. The contents of the disk cartridge must be dumped to cards 
before the system can be loaded. A preload operating procedure for dumping the monitor 
system to cards is contained in this chapter. 

This chapter: 

1. Describes the general functions and contents of IBM-supplied control records 

2. Discusses the general functions, formats, ana uses of the control records that you 
must punch 

3. Presents sample operating procedures for punching paper tape control records, 
performing a card system preload, initial load, and reload, and performing a paper 
tape system initial load and reload 

You may use these operating procedures as they are presented, or you may modify them 
to meet the needs of your computing system. For those who are already familiar with 
similar procedures, the headings in each block can be used as reminders as you perform 
the procedure. For those who need more information, detailed steps for performing these 
procedures are provided. Not all steps of each procedure need to be done every time it is 
used; do only those steps that are necessary. 

Appendixes A and B contain descriptions of error messages and halt codes that can occur 
during the operations of any of the initial load and reload procedures. 
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System Loader Control Records 
SCON 
TERM 

IBM-SUPPLIED SYSTEM LOADER CONTROL RECORDS 

The IBM-supplied control records for initial load and reload operations are: 

• SCON and TERM (for card systems only) 

• Phase identification (PHID) 

• Type 81 

These control records must be used in all initial load and reload operations. The placement 
of these control records in the card decks and paper tapes is illustrated at the beginning of 
each of the procedures for load and reload at the end of this chapter. 

The general functions and formats of these control records are discussed in the following 
text. 



general function 



SCON and TERM Control Records 

These control records, together with the REQ control records that you punch, comprise 
the system configuration control record. They define the beginning and ending of the 
system configuration control record. A system configuration control record must be 
included in an initial load, a reload, and a configure operation. 

SCON and TERM cards are included with the information supplied from IBM for card 
systems. For a paper tape system, you punch the SCON and TERM control records in the 
system configuration tape as described in "Preparation of Load Mode and System Configu- 
ration Control Tapes" in this chapter. 



SCON and TERM 


Card column 


Contants 


control record 






formats 


1 through 4 


SCOIM or TERM 




5 through 80 


Blanks 
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general function 



format of first PHID 
card 



System Loader Control Records 
PHID 

Phase Identification (PMID) Control Records 

Each monitor system program, except the resident monitor and the cold start program, is 
divided into several parts called phases. PHID control records contain the beginning and 
ending phase ID numbers of the programs in the monitor system. All numbers in the ID 
fields of the PHID control records are in ascending sequence and in the order in which the 
system programs are loaded onto a disk. The ID entries in the PHID control record are 
loaded into the system location equivalence table (SLET), a directory to the disk locations 
of the monitor system programs. 

When system programs are added or modified during a reload, the PHID control record 
must be changed to reflect any new phase ID limits of the programs and/or phases. 



Card column 

1 through 4 

6 through 8 

and 

10 through 12 

14 through 16 

and 

18 through 20 

22 through 24 

and 

26 through 28 

30 through 32 

and 

34 through 36 

38 through 40 

and 

42 through 44 

46 through 48 

and 

50 through 52 

54 through 56 

and 

58 through 60 

64 

66 through 68 

70 through 72 

73 through 80 



Contents 

PHID 

IDs of the first and last phases of DUP 

IDs of the first and last phases of the FORTRAN compiler 



IDs ot the first and last phases of the COBOL compiler 
program product 



IDs of the first and last phases of the supervisor 



IDs of the first and last phases of the core load builder 



IDs of the first and last phases of the system I/O device 
subroutines 



IDs of the first and last phases of the core image loader 

/ (indicates continuation to the second PHID card) 
Vxx (where xx is the disk monitor system version number) 
Mxx (where xx is the version modification number) 
Card identification and sequence number 



Note: All card columns omitted in this format contain blanks. 
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System Loader Control Records 
PHID 
sector break cards 



format of second 
PHID card 



Card column 

1 through 4 

6 through 8 

and 

10 through 12 

14 through 16 

and 

18 through 20 

22 through 24 

and 

26 through 28 



Contents 

PHID 

IDs of the first and last phases of the <RPG compiler 

IDs of the first and last phases of DUP, part 2 

IDs of the first and last phases of the macro assembler 



29 through 65 Blanks 

66 through 68 Vxx (where xx is the disk monitor system version number) 

70 through 72 Mxx (where xx is the version modification number) 

73 through 80 Card identification and sequence number 

Note: All card columns omitted in this format contain blanks. 

If you have a paper tape system, the IBM-supplied PHID control record is on tape BP03. 

System Program Sector Break Cards (Card Systems) 

In order to allow you to load only a portion of a monitor program during a card system 
reload, each program phase is, preceded with a sector break card that identifies the phase. 
These cards have a 1 punch in column 4, and the monitor system version and modification 
level are punched in the cards starting in column 67 (VxMxx). A description of the function 
of sector break cards is in Appendix I. 

The following is a list of the monitor system sector break cards. 
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System Loader Control Records 
sector break cards 



Phase 

number Program or program phase name 

XX RES SKELETON SUPY, Part of 

COMMA, DISKZ, COLD system 
START PROGRAM loader 

XX SYS LDR-PHASE2-OVERLAY0 

XX SYS LDR-PHASE 2-OVERLAY 1 

XX SYS LDR-PHASE 2-OVERLAY 2 

XX SYS LDR-PHASE 2-OVERLAY 3 

DUP 

01 DUP COMMON SUBROUTINES, CCAT 

02 DUP CTRL RECORD PROCESSOR 

03 DUP STORE PHASE 

04 DUP *FILES, *LOCAL, *NOCAL 

PHASE 

05 DUP DUMP PHASE 

06 DUP DUMP LET/FLET PHASE 

07 DUP DELETE PHASE 

08 DUP DEFINE PHASE 

09 DUP EXIT PHASE 

OA DUP CARD I/O INTERFACE 

OB DUP KEYBOARD INPUT INTERFACE 

OC DUP P APE R TAPE I /O I NTE R FACE 

OD DUP UPCOR PHASE SAVED BY 

DEXIT DURING STORECI 
OE DUP PRINCIPAL INPUT WITH 

KEYBOARD 
OF DUP PRINCIPAL W/O KEYBOARD 

10 DUP PAPER TAPE I/O 

11 DUP STORE CI 

12 DUP MODIF DUMMY PHASE 

FORTRAN compiler 

1F FOR INPUT PHASE 

20 FOR CLASSIFIER PHASE 

21 FOR CHECK ORDER/STMNT NO. 

PHASE 

22 FOR COMMON SUBR OR FUNCTION 

PHASE 

23 FOR DIMENSION, REAL, INTEGER 

24 FOR REAL CONSTANT PHASE 

25 FOR DEFINE FILE, CALL LINK EXIT 

26 FOR VARIABLE, STMNT FUNC 

PHASE 

27 FOR DATA STATEMENT PHASE 

28 FOR FORMAT STATEMENT PHASE 

29 FOR SUBTRACT DECOMPOSITION 

PHASE 

2A FOR ASCAN I PHASE 

2B FOR ASCAN II PHASE 

2C FOR DO, CONTINUE, ETC. PHASE 

2D FOR SUBSCRIPT OPTIMIZE PHASE 

2E FOR SCAN PHASE 

2F FOR EXPANDER I PHASE 



ID starting in 


Phase 


column 73 


number 




30 




31 


EMN 


32 


FP2 


33 


FP2 




FP2 


34 


FP2 


35 




36 




37 


J01 


38 
39 



Program or program phase name 



ID starting in 
column 73 



J02 
J03 

J04 
J05 
J06 
J07 
J08 
J09 
J10 
J11 
J12 

J17 

J17 
J17 
J17 
J17 
J17 



K01 
K02 

K03 

K04 
K05 
K06 
K07 

K08 
K09 
K10 

K11 
K12 
K13 
K14 
K15 
K16 
K17 



51 
5C 

6E 
6F 
70 

71 

72 

73 
74 



78 
79 
7A 
7B 
7C 
7D 
7E 
7F 
80 
81 
82 
83 
84 



FOR EXPANDER II PHASE 
FOR DATA ALLOCATION PHASE 
FOR COMPILATION ERROR PHASE 
FOR STATEMENT ALLOCATION 

PHASE 
FOR LIST STATEMENT ALLOCATION 
FOR LIST SYMBOL TABLE PHASE 
FOR LIST CONSTANTS PHASE 
FOR OUTPUT I PHASE 
FOR OUTPUT II PHASE 
FOR RECOVERY (EXIT) PHASE 

COBOL compiler (program product) 

PHASE NUMBERS USED BY THE 
COBOL COMPILER 



Supervisor 

SUP PHASE 1-MONITOR CONTROL 

RECORD ANALYZER 
SUP PHASE 2-JOB CONTROL 

RECORD PROCESSOR 
SUP PHASE 3-DELETE 

TEMPORARILY STORED 

PROGRAM LET 
SUP PHASE 4-XEQ CONTROL 

RECORD PROCESSOR 
SUP PHASE 5-SUPER VISOR 

CONTROL RECORDS PROCESSOR 
SYSTEM DUMP-CORE-TO-PRINTER 
AUXILIARY SUPERVISOR 



Core load builder 



CORE 
CORE 
CORE 
CORE 
CORE 
CORE 
CORE 
CORE 
CORE 
CORE 
CORE 
CORE 
CORE 



LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 



BUILDER 
BUILDER 
BUILDER 
BUILDER 
BUILDER 
BUILDER 
BUILDER 
BUILDER 
BUILDER 
BUILDER 
BUILDER 
BUILDER 
BUILDER 



PHASE 0/1 
PHASE 2 
PHASE 3 
PHASE 4 
PHASE 5 
PHASE 6 
PHASE 7 
PHASE 8 
PHASE 9 
PHASE 10 
PHASE 11 
PHASE 12 
PHASE 13 



K18 
K19 
K20 

K21 
K22 
K23 
K24 
K25 
K26 
K27 



N01 
N01 

N01 

N01 

N01 
N02 
N03 



OCB 
OCB 
OCB 
OCB 
OCB 
OCB 
OCB 
OCB 
OCB 
OCB 
OCB 
OCB 
OCB 
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System Loader Control Records- 
sector break cards 



Phase 
number 



Program or program phase name 



ID starting in 
column 73 



Phase 
number 



Program or program phase name 



10 starling in 
column 73 



8C 
8D 
8E 
8F 
90 
91 
92 
93 
94 
95 
96 
97 
98 



AO 
A1 



BO 
B1 
B2 
B3 
B4 
B5 
B6 
B7 
B8 

B9 

BA 
BB 
BC 
BD 
BE 
BF 
CO 
C1 
C2 
C3 
C4 
C5 
C6 
C7 
C8 
C9 
CA 
CB 
CC 



CD 
CE 



System device subroutines, disk I/O 

SYS 1403 

SYS 1 1 32 

SYS CONSOLE PRINTER 

SYS 2501 

SYS 1442 

SYS 1 1 34 

SYS KEYBOARD 

SYS 2501/1442 CONVERSION 

SYS 1134 CONVERSION 

SYS KEYBOARD CONVERSION 

DISKZ 

DISK1 

DISKN 

Core image loader 

CORE IMAGE LOADER, PHASE 1 
CORE IMAGE LOADER, PHASE 2 

RPG compiler 

RESIDENT 

ENTER FILES 

ENTER INPUT 

ENTER CALCULATION 

ENTER OUTPUT 

ASSIGN INDICATORS 

ASSIGN FIELDNAMES 

ASSIGN LITERALS 

EXTENDED FILE AND INPUT 

DIAGNOSTIC 
EXTENDED CALCULATION AND 

OUTPUT DIAGNOSTIC 
DIAGNOSTIC MESSAGE 1 
DIAGNOSTIC MESSAGE 2 
DIAGNOSTIC MESSAGE 3 
ASSEMBLE 1 I/O 
ASSEMBLE 2 I/O 
ASSEMBLE 3 I/O 
ASSEMBLE 4 I/O 
ASSEMBLE TABLES 
ASSEMBLE CHAIN AND RAF 
ASSEMBLE INPUT FIELDS 
ASSEMBLE CONTROL LEVELS 
ASSEMBLE MULTI FILE LOGIC 
ASSEMBLE GET ROUTINES 
ASSEMBLE CALCULATIONS 1 
ASSEMBLE CALCULATIONS 2 
ASSEMBLE OUTPUT FIELDS 
ASSEMBLE PUT ROUTINES 
ASSEMBLE FIXED DRIVER 
TERMINATE COMPILATION 

OUPpart 2 

DUP CTRL-PART 2 
MACRO UPDATE PROGRAM 



PMN 
PMN 
PMN 
PMN 
PMN 
PMN 
PMN 
PMN 
PMN 
PMN 
PMN 
PMN 
PMN 



PMN 
PMN 



CF 
DO 
D1 
D2 
D3 
D4 
D5 
D6 
D7 

D8 
D9 
DA 

DB 
DC 

DD 

DE 



PR1 




PR2 


DF 


PR3 




PR4 


EO 


PR5 


E1 


PR6 


E2 


PR7 


E3 


PR8 


E4 




E5 


PR9 


E6 




E7 


PRA 


E8 


PRB 


E9 


PRC 




PRD 


EA 


PRE 




PRF 


EB 


PRG 




PRH 


EC 


PRJ 




PRK 


ED 


PRL 




PRM 


EE 


PRN 




PRO 


EF 


PRP 


FO 


PRO 


F1 


PRR 


F2 


PRS 


F3 


PRT 


F4 


PRU 


F5 




F6 


PSO 




PS1 





Assembler 

ASM INITIALIZATION PHASE PTM 

ASM CARD CONVERSION PHASE PTM 

ASM DSF OUTPUT PHASE PTM 

ASM INTERMEDIATE INPUT PHASE PTM 

ASM END STATEMENT PHASE PTM 

ASM ASSEMBLY ERROR PHASE PTM 

ASM CONTROL CARDS 1 PTM 

ASM CONTROL CARDS 2 PTM 
ASM DUMMY PHASE (SYST 

SYMBOL TBL) PTM 

ASM SYMBOL TABLE OPTIONS PHASE PTM 

ASM EXIT PHASE PTM 
ASM PROG HEADER MNEMONICS 

PHASE PTM 

ASM Fl LE STATEMENT PHASE PTM 
ASM COMMON SUBROUTINES, 

ASCOM PTM 
ASM PROG CONTROL MNEMONICS 

PHASE PTM 
ASM IMPERATIVE STATEMENTS 

PHASE PTM 
ASM DECML EFLC PROCESSING 

PHASE PTM 

ASM DECIMAL CONVERSION PHASE PTM 

ASM PROG LINKING PHASE PTM 

ASM DMES PROCESSING PHASE PTM 

ASM PUNCH CONVERSION PHASE PTM 

ASM INTERMEDIATE DISK OUTPUT PTM 

ASM SYMBOL TABLE OVERFLOW PTM 

ASMG2250PH1 PTM 

ASM DIVISION OPERATOR PHASE PTM 

ASM CONTROL CARDS 3 PTM 
ASM MACRO PHASE 1 -SPECIAL OP 

AND PREPROCESSING PTM 
ASM MACRO PHASE 1A-SPECIAL 

PSEUDO OPS PTM 
ASM MACRO PHASE IB- 
CONDITIONAL ASSEMBLY PTM 
ASM MACRO PHASE 2-MACRO 

DEFINITION PTM 
ASM MACRO PHASE 2A-MACRO 

DEFINITION PTM 
ASM MACRO PHASE 2B-MACRO 

DEFINITION PTM 

ASM MACRO PHASE 3-EXPANSION PTM 

ASM MACRO PHASE 3A-EXPANSION PTM 

ASM MACRO PHASE 3B-EXPANSION PTM 

ASM CROSS REFERENCE-PART 1 PTM 

ASM CROSS REFERENCE-PART 2A PTM 

ASM CROSS REFERENCE-PART 2B PTM 

ASM CROSS REFERENCE-PART 2C PTM 

ASM CROSS REFERENCE-PART 3 PTM 
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general function 



System Loader Control Records 
type 81 

Type 81 Control Record 

The type 81 control record defines the end of the loading of the monitor system programs 
and/or phases. After the type 81 control record is read, a record of the principal print 
device and the principal I/O devices is placed in the system location equivalence table 
(SLET). (Principal I/O devices are discussed under "System Configuration Control Records' 
in this chapter.) Also during an initial load, the disk communications area (DCOM) and 
location equivalence table (LET) are initialized, and the reload table is established. 



format of type 81 
control record 


Card column 
1 and 2 


Contents 

Blanks 




3 


A 6 punch 




4 


A 1 punch 




5 through 80 


Blanks 



Note. These punches are /8100 in card data format (CDD) in word 3, 
thus, the name type 81. 

If reconfiguration is all that is being done by a reload operation, place the type 81 control 
records immediately after the PHID control record. 



SYSTEM LOADER CONTROL RECORDS THAT YOU PUNCH 

The control records that you punch for initial load and reload operations are: 

• Load mode that defines whether the operation is an initial load or a reload 

• System configuration that defines the I/O devices of your system 

• CORE (optional) that allows you to define a core size other than the actual core size 
of the computer 

The general functions, formats, and uses in initial load and reload operations for these 
control records are described in the following text. 

Note. When the 1627 Plotter is used by a program, the following subroutines must 
not be in a SOCAL for that program: EADD, FADD, FMPY, EMPY, XMD, XMDS, 
and FARC. These must instead be incore subroutines. You can accomplish this 
during a system load by storing the programs with subtype zero. 
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System Loader Control Records 
load mode 



general function 



Load Mode Control Record 

The load mode control record informs the system loader whether the operation is an 
initial load or a reload. This control record can also be used to bypass the assembler, 
FORTRAN compiler, COBOL compiler, or RPG compiler during an initial load or reload. 



format 



Card column 


Contents 


1 through 4 


MODE 


5 through 7 


Blanks 


8 


I orR 


9 through 1 1 


Blanks 


12 


A or blank 



Explanation 



13 



14 



15 



16 through 80 



F or blank 



R or blank 



C or blank 



Blanks 



/ indicates initial load. 
R indicates reload. 



A indicates the assembler is 
not being loaded. 

Blank indicates the assembler 
is being loaded. 

F indicates the FORTRAN 
compiler is not being loaded. 

Blank indicates the FORTRAN 
compiler is being loaded. 

R indicates the RPG compiler 
is not being loaded. 

Blank indicates the RPG com- 
piler is being loaded. 

C indicates the COBOL compiler 
(a program product) is being 
loaded. 

Blank indicates the COBOL com- 
piler is not being loaded. 



Note. If the assembler or the FORTRAN, RPG, or COBOL compiler is not loaded in an 
initial load or was deleted by a DUP DEFINE VOID operation, they can be loaded by an 
initial load operation only. Columns 12, 13, and 14 must contain A, F, or R, respectively, 
and column 15 must be blank for a reload operation to reflect the status of the cartridge. 



card system use 



paper tape system 
use 



For a card system, a load mode control card is placed in an initial load or reload card deck 
immediately behind the first part of the system loader. The order of cards for an initial 
load and reload is illustrated in Figures 8-2 and 8-4 under "Card System Initial Load 
Operating Procedure" and "Card System Reload Operating Procedure," respectively, in 
this chapter. 

For a paper tape system, this control record is entered between the IBM-supplied tapes, 
BP01 and BP03, as illustrated in Figures 8-7 and 8-9 under "Paper Tape System Initial 
Load Operating Procedure'" and "Paper Tape System Reload Operating Procedure" in 
this chapter. A procedure for punching a load mode control tape is included under 
"Preparation of Load Mode and System Configuration Control Tapes" in this chapter. 
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general function 



System Loader Control Records 
system configuration 

System Configuration Control Records 

System configuration control records (REQ) allow you to define the system I/O devices 
that are a part of your computer system. Punch one control record for each device. 
Missing or extra REQ records may cause initial load operations to fail. 



format 



Device 


Card columns 


1 through 3 


9and10* 


15 through 20 


1442 Card Read/Punch 
Card Punch 

Paper Tape Reader 
and/or Punch 
2501 Card Reader 
1132 Printer 
1403 Printer 


REQ 

REQ 

REQ 
REQ 
REQ 


1 

3 

4 
6 
9 


1442-5 ) .. . 
1442-6 } whichever 
1442-7 ) isa PP |icable 

1134 \ 

2501 ( Unit,D , iS 
1132 [ ° pt,0nal 
1403 ) 


Note. I/O devices not listed are initialized as part of the system; REQ control records are 
not required. If an REQ control record is punched for a 1442, columns 15 through 20 
must be coded to indicate the model. 

ISS numbers, right justified. Maximum entry number ISS 20. j 



card system use 



paper tape system 
use 



principal I/O devices 



For a card system, REQ cards are placed in an initial load or reload card deck between the 
IBM-supplied SCON and TERM cards. If the optional CORE card is used, it must be 
placed before or after the REQ cards, not between any of them. The order of cards for an 
initial load and reload is illustrated in Figures 8-2 and 8-4 under "Card System Initial 
Load Operating Procedure" and "Card System Reload Operating Procedure," respectively, 
in this chapter. 

For a paper tape system, these control records are punched in the system configuration 
tape. The procedure for punching this tape is included in "Preparation of Load Mode and 
System Configuration Control Tapes" in this chapter. The system configuration tape is 
entered between the IBM -supplied tapes, BP02 and BP03, as illustrated in Figures 8-7 and 
8-9 under "Paper Tape System Initial Load Operating Procedure" and "Paper Tape System 
Reload Operating Procedure" in this chapter. 

When more than one input device or output device of a type is configured for a system, 
the fastest device defined in the REQ control records is used by the system. The following 
chart lists the principal I/O devices selected by the system. 



Device specified on REQ control records 
2501, 1442, paper tape 
1442, paper tape 
Paper tape 
1403, 1132 



Principal I/O device 
2501 input, 1442 output 
1442 input/output 
Paper tape input/output 
1403 output 
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System Loader Control Records 
CORE 



paper tape system 
use 



When both a 1403 Printer and an 1 132 Printer are configured, the 1403 is used by the 
system as the principal printer. You can specify the use of the console printer as the 
principal print device with // TYP and // CPRNT monitor control records. (These control 
records are described in Chapter 5.) 

CORE Control Record 



Explanation 



general function 


This control 


record is an optional rec( 




different than the actual siz:e of core. 


format 


Card column 


Contents 




1 through 4 


CORE 




5 


Blank 




6 through 8 


04K, 08K, 16K, 
or32K 




9 through 80 


Blanks 


card system use 


For a card s] 


^stem, a CORE control ca 



The entry chosen specifies the 
core size you are defining. 



before or after the REQ card and between the IBM-supplied SCON and TERM cards. The 
order of cards for an initial load and reload is illustrated in Figures 8-2 and 8-4 under 
"Card System Initial Load Operating Procedure" and "Card System Reload Operating 
Procedure," respectively, in this chapter. 

For a paper tape system, this control record (when used) is punched in the system configu- 
ration tape. The procedure for punching this tape is included in "Preparation of Load 
Mode and System Configuration Control Tapes" in this chapter. The system configuration 
tape is entered between the IBM-supplied tapes, BP02 and BP03, as illustrated in Figures 
8-7 and 8-9 under "Paper Tape System Initial Load Operating Procedure" and "Paper Tape 
System Reload Operating Procedure" in this chapter. 

Preparation of Load Mode and System Configuration Control Tapes 

Paper tape control records must be punched in PTTC/8 (perforated tape transmission 
code). The load mode and system configuration control tapes are punched by using the 
Paper Tape Utility Program (PTUTL). Initially, these control records are punched by using 
the stand-alone PTUTL tape, BP17, that is supplied by IBM. 

The materials that you need to prepare the load mode and system configuration control 
tapes are : 

• The Paper Tape Utility Program (PTUTL) tape, BP17 

• A blank tape 

The preparation of the load mode and system configuration control tapes do not have to 
be punched consecutively as in the procedure in Figure 8-1. These control records can be 
prepared separately by using the portions of the procedure that are applicable to the 
record being punched. 
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Paper Tape Load and Reload 
preparation of control tapes 



Turn on system power 

Move the console POWE R switch 
to ON. 



Load the PTUTL Program tape, 
BP17 

1. Insert the PTUTL tape, BP17, 
in the paper tape reader. 

2. Position under the read star- 
wheels one of the delete codes 
after the program ID. 

3. Move the console mode switch 
to RUN. 

4. Press I MM STOP on the console. 

5. Press RESET on the console. 

6. Press PROGRAM LOAD on the 
console. 



7. Press PROGRAM START to 
finish the reading of PTUTL. 



8. Press PROGRAM START again. 



9. Turn console entry switches 2 
and 3 on. 



Ready the paper tape punch 

1 . Insert a blank tape in the paper 
tape punch. 

2. Punch a leader of delete codes 
with the DELETE key. 



2> 



V 



The core image loader is read into core 
storage, and the system waits with /006C 
displayed in the ACCUMULATOR. 

When the reading of BP1 7 is complete, the 
system waits with /00C9 in the ACCUMU- 
LATOR. 

The system waits again with /1 1 1 1 in the 
ACCUMULATOR. 

2 indicates keyboard input. 

3 indicates that records are to be punched 
by the paper tape punch. 

Complete operating procedures for PTUTL 
are in Chapter 8. 



Figure 8-1 (Part 1 of 4). Preparation of paper tape load and reload control tapes 

Monitor System Initial Load and System Reload 8-1 1 



Paper Tape Load and Reload 
preparation of control tapes 



m 



Prepare the paper tape load mode 
control record 

1. Enter MODE through the 
keyboard. 

2. Press the SPACE BAR three 
times. 

3. Enter an I or an R. 



4. Press the SPACE BAR three 
times. 

5. Enter an A or press the SPACE 
BAR once. 

6. Enter an F or press the SPACE 
BAR once. 

7. Enter an R so that references to 
the RPG compiler are ignored 
during loading. 




Yes 



Finish the load mode control record 

1. Press EOF. 

2. Punch a trailer of delete codes 
with the DELETE key on the 
paper tape punch. 



V 



I indicates initial load. 
R indicates reload. 



A indicates that the assembler is not being 
loaded. 

F indicates that the FORTRAN compiler 
is not being loaded. 



Prepare another load mode control 
record 

Punch another leader of delete 
codes. 



^ 



Figure 8-1 (Part 2 of 4). Preparation of paper tape load and reload control tapes 
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No 



m 



Prepare the system configuration 
tape 

1 . Punch a leader of delete codes 
with the DELETE key on the 
paper tape punch. 

2. Enter SCON through the key- 
board. 

3. Press EOF to end the SCON 
record. 



Define the system I/O devices 

1. Enter REQ. 

2. Press the SPACE BAR six times 
(5 times if a 2-digit ISS number 
is being entered in Step 6). 

3. Enter the ISS number for an 
I/O device being configured. 



4. Press EOF. 




Yes 



^ 



Paper Tape Load and Reload 
preparation of control tapes 



If errors are made during the preparation 
of this tape, repeat from here. 



I/O device 


ISSnu 


1442 Card Read 
Punch/Card Reader 


1 


Paper tape reader 
and/or punch 


3 


2501 Card Reader 


4 


1132 Printer 


6 


1403 Printer 


9 



Note: Maximum ISS entry is 20. 



Figure 8-1 (Part 3 of 4). Preparation of paper tape load and reload control tapes 
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Paper Tape Load and Reload 
preparation of controi tapes 



No 




Yes 



Define core storage size 

1. Enter CORE. 

2. Press the SPACE BAR once. 

3. Enter the size of core that you 
are defining. 

4. Press EOF. 



04K defines core size of 4K. 
08K defines core size of 8K. 
16K defines core size of 16K. 
32K defines core size of 32K. 



Finish the system configuration tape 

1. Enter TERM. 

2. Press EOF. 

3. Punch a trailer of delete codes 
with the DELETE key on the 
paper tape punch, 



Finish the preparation of the 
control record tapes 

1 . Remove the tapes from the 
paper tape reader and punch. 

2. Separate the load mode control 
record from the system con- 
figuration control record by 
cutting them apart at the delete 
codes that separate them on 
the tape just punched. 



Figure 8-1 (Part 4 of 4). Preparation of paper tape load and reload control tapes 
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Card System Initial Load 
operating procedure 

CARD SYSTEM INITIAL LOAD OPERATING PROCEDURE 

The materials that you need to perform a card system initial load procedure are: 

• An initialized disk. 

• IBM-supplied system cards 

• Load mode and REQ (and CORE, if used) cards that you punched. An I must be 
punched in column 8 of the load mode card 

The initial load cards and card decks that are being used in the initial load procedure must 
be arranged in the order shown in Figure 8-2. 

Note. If your computing system has 23 1 1 Disk Storage Drives, replace the DISKN 
subroutine included in the system device subroutines with the DISKN subroutine 
included with the stand-alone utilities. The DISKN included in the system device sub- 
routines is identified by the letters PMN beginning in card column 73. The sequence 
numbers are included in the materials supplied with the modification level of your 
system. The DISKN included with the stand-alone utilities is identified by the letters 
PMNDN beginning in card column 73. 

You perform a card system initial load procedure as shown in Figure 8-3 . 




System configuration deck 



Figure 8-2. Card system initial load cards 
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Card System initial Load 
operating procedure 



Turn on system power 

Move the console POWER switch 
to ON. 




Cartridge 



Perform the "Card System 
Preload Procedure" in this 
chapter. 



Ready a cartridge for initializa- 
tion 

1. Place a disk cartridge or 
pack in a disk drive. 

2. Ready the disk drive (see 
Chapter 7 for information 
about readying disk drives). 




Yes 



Initialize the cartridge 
using the DCIP program 
(see Chapter 9). 



Note: If your system 
has 231 1 Disk Storage 
Drives, be sure all disks 
in a disk pack are ini- 
tialized. 




1403 



Ready the 1132 Printer 

1. Move the printer MOTOR 
switch to ON. 

2. Press CARRIAGE RESTORE. 

3. Press START. 



V 




B2 



Figure 8-3 (Part 1 of 3). Card system initial load procedure 
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Card System Initial Load 
operating procedure 



m 



Ready the 1403 Printer 

1. Be sure the ENABLE/ 
DISABLE switch on the 1133 
Multiplex Control Enclosure 
is in the ENABLE position. 

2. Press CARRIAGE RESTORE 
on the printer. 

3. Press START on the printer. 




B2 



Ready the IBM system deck 

Place the user-punched control 
cards in the IBM system deck 
where indicated in Figure 8-2. 




2501 



1442, Model 6 or 7 



Ready the 1442, Model 6 or 7 

1. Press N PRO. 

2. Place the first of the IBM 
system cards in the hopper, 
face down, 9-edge first. 

3. Press START. 



Ready the 2501 Card Reader 

1. Press NPRO. 

2. Place the first of the IBM system 
cards in the hopper, face down, 
9-edge first. 

3. Press START (if both a 2501 
and a 1442, Model 6 or 7, 
are present, make sure the 
1442 is not ready by press- 
ing STOP on the 1442). 



V 



Figure 8-3 (Part 2 of 3). Card system initial load procedure 
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Card System Initial Load 
operating procedure 




Start the reading of the IBM 
system deck 

1 . Set the console entry switches 
12 through 15 to indicate the 
physical drive number of the 
drive that contains the 
initialized cartridge (switches 
through 1 1 must be off). 



2. Turn the console mode switch 
to RUN. 

3. Press I MM STOP on the con- 
sole. 

4. Press RESET on the console. 

5. Press PROGRAM LOAD on 
the console. 



Drive - all off 
Drive 1 — switch 15 on 
Drive 2 — switch 14 on 
*Drive 3 - switches 14 and 15 on 

* Drive 4 - switch 13 on 

Drive 5 — switches 13 and 15 on 
Drive 6 — switches 13 and 14 on 
Drive 7 - switches 13, 14, and 15 on 

* Drive 8 - switch 1 2 on 

* Drive 9 — switches 1 2 and 1 5 on 
Drive 10— switches 12 and 14 on 
*Not used on a 231 1 Disk Storage Drive, 
Model 12 



I Reading of the IBM system deck I 
I begins. | 

I I 



I 



Finish procedure 

Continue placing IBM system 
cards in the reader hopper 
until all of the cards have been 
placed in the hopper. 



' The system prints a message on 
I the principal printer when loading 
| of the monitor system is complete. 



If the system halts (halt codes displayed 
in the ACCUMULATOR on the console 
display panel), refer to Appendix B. If 
the system prints a message on the con- 
sole printer, refer to Appendix A. 



L_ ,. 






J 




Perform the "Cold Start 
Procedure" in Chapter 7 
to make the monitor 
system operational. 





Figure 8-3 (Part 3 of 3). Card system initial load procedure 



Card System Reload 
operating procedure 



CARD SYSTEM RELOAD OPERATING PROCEDURE 



system 
reconfiguration 



phase and 
program 
revision or 
addition 



The materials that you need to perform a card system reload procedure are: 

• A system cartridge 

• An IBM-supplied cold start card and blank cards-(2 are enough) 

• IBM -supplied system cards 

• Load mode and REQ (and CORE, if used) cards that you punched. An R must be 
punched in column 8 of the load mode card 

The reload cards that are being used in the system reload must be arranged in the order 
shown in Figure 8-4. 

Reconfiguration is done each time a reload procedure is performed and is necessary when 
a system cartridge is copied from a system with a different configuration. If reconfigura- 
tion is all that is being done by a reload operation, place the type 81 control record 
immediately after the PHID control records. 

Be sure the phase identification (PHID) control records reflect the phase ID limits of the 
system programs being added or in which phases are being revised or added. The programs 
or phases being revised or added by the reload procedure must be placed in ascending 
phase ID sequence immediately behind the IBM-supplied PHID control records. 

The record immediately following the last phase being loaded must be an end-of-program 
card (see "End-of-Program (EOP) Card" in Appendix I). In this case, the EOP card can 
have words 1, 2, and 4 through 54 blank. The message END OF RELOAD is printed on 
the console printer when a system reload is complete. 
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Card System Reload 
operating procedure 




Two blank cards 



(Revised and/or added 
programs and/or phases.) 



System configuration deck 



Figure 8-4. Card system reload cards 

The reload function can link to MODIF if a // XEQ MODIF control record follows directly 
after the type 81 control card. This function can be performed together with any combi- 
nation of the reload functions. The END OF RELOAD message is not printed, but the 
// XEQ MODIF control record is printed on the principal printer. You perform a card 
system reload procedure as shown in Figure 8-5. 
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Card System Reload 
operating procedure 



Turn on system power 

Move the console POWER 
switch to ON. 




Cartridge 



Perform the "Card 
System Preload 
Procedure" in this 
chapter. 



Ready the system cartridge to 
be used 

1. Place a system cartridge in a 
disk drive. 

2. Ready the disk drive (see 
Chapter 7 for information 
about readying disk drives). 









Ready the 1132 Printer 


^x^""^ Is the ^-"s^ 
^S*"^ principal ^"""x^ 


1132 


1. Move the printer MOTOR 
switch to ON. 


\^^ printer 1132 ^0^ 




N. or 1403? ^s^ 


2. Press CARRIAGE RESTORE. 


Tl403 


3. Press START. 










Ready the 1403 Printer 






1. Be sure the ENABLE/ 






DISABLE switch on the 1133 






Multiplex Control Enclosure 






is in the ENABLE position. 






2. Press CARRIAGE RESTORE 






on the printer. 






3. Press START 


" on the printer. 








_* 









rrj 



Figure 8-5 (Part 1 of 4). Card system reload procedure 
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Card System Reload 
operating procedure 




Ready the IBM system dock 

Place the load mode and 
REQ (and CORE, if used) 
cards that you punched in 
the system deck where 
indicated in Figure 8-4. 



m 



Figure 8-5 (Part 2 of 4). Card system reload procedure 
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Card System Reload 
operating procedure 















Ready the 2501 Card Reader 


I 


1. Press NPPO. 


^.f^*^ Is input ^ Ssh * %<>( ^ 
^S^ from 1442, >v 
S. Model 6 or 7, ^^ 
^•ns. or 2501 ? ^-^ 

[1442 


2501 


2. Place the first of the reload 
deck in the hopper, face 
down, 9-edge first. 

3. Press START (if both a 
2501 and a 1442, Model 
6 or 7, are present, make 
sure the 1 442 is not ready 
by pressing STOP on the 
1442). 




Ready the 1442, Model 6 ok 7 
1. Press N PRO. 










2. Place the first of the reload 
deck in the hopper, face 
down, 9-edge first. 






3. Press START 








Start the reading of the IBM 
system deck 




1 . Set the console entry switches 
12 through 15 to indicate the 
physical drive number of the 
drive that contains the system 
cartridge (switches through 
11 must be off). 


Drive - all off 
Drive 1 — switch 15 on 
Drive 2 — switch 14 on 

* Drive 3 — switches 14 and 15 on 

* Drive 4 — switch 13 on 

Drive 5 — switches 13 and 15 on 
Drive 6 — switches 13 and 14 on 
Drive 7 — switches 13, 14 and 15 on 

* Drive 8 - switch 12 on 

* Drive 9 — switches 12 and 15 on 
Drive 10 - switches 12 and 14 on 


2. Turn the console mode 
switch to RUN. 


*Not used on a 231 1 Disk Storage 
Drive, Model 12 


3. Press I MM STOP on the 
console. 




4. Press RESET on the console. 




5. Press PROGRAM LOAD on 
the console. 











m 



Figure 8-5 (Part 3 of 4). Card system reload procedure 
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Card System Reload 
operating procedure 




» Reading of the IBM system deck I 



r 



begins. 



Finish procedure 

Continue placing IBM system 
cards in the reader hopper until 
all of the cards have been placed 
in the hopper. 



If the system halts (halt codes displayed 
in the ACCUMULATOR on the console 
display panel), refer to Appendix B. If 
the system prints a message on the con- 
sole printer other than END OF RELOAD, 
see Appendix A. 






The system prints END OF 
RELOAD on the console 
printer when the reload is 



| complete. 




i 

J 




Perform the "Cold Start 
Procedure" in Chapter 7 
to make the monitor 
system operational again. 





Figure 8-5 (Part 4 of 4). Card system reload procedure 
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Card System Preload 
operating procedure 

CARD SYSTEM PRELOAD OPERATING PROCEDURE 

The materials that you need to perform a card system preload procedure are: 

• A preload (UCART) cartridge 

• An IBM-supplied cold start card 

• Blank cards; the dump of the monitor system requires approximately 5400 cards 

The dump is accomplished by loading the Monitor II cold start card supplied with the 
cartridge from IBM. The format of the preload cartridge is such that the same cold start 
card that is used to make the monitor system operational is used to call the disk-to-card 
dump program (UCART). 

You perform a card system preload procedure as shown in Figure 8-6. 
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Card System Preload 
operating procedure 



Ready the preload cartridge 

1. Place the preload cartridge 
in a disk drive. 

2. Ready the disk drive (see 
Chapter 7 for information 
about readying disk drives). 

3. Set the console entry switches 
12 through 15 to indicate the 
physical drive number of the 
drive that contains the pre- 
load cartridge (switches 
through 1 1 must be off). 




2501 



Ready the 1442, Model 6 or 7 

1. Press NPRO. 

2. Place the cold start card 
followed by blank cards in 
the hopper, face down, 
9-edge first. 

3. Press START. 



Start cold start 

1 . Turn the console mode switch 
to RUN. 

2. Press I MM STOP on the 
console. 

3. Press RESET on the console. 

4. Press PROGRAM LOAD on 
the console. 




Drive - all off 
* Drive 1 — switch 15 on 

Drive 2 — switch 14 on 

Drive 3 — switches 14 and 15 on 

Drive 4 — switch 13 on 
*Drive 6 — switches 13 and 14 on 

*lf your preload cartridge is on a 
1316 Disk Pack, the DM2 system 
is on either physical drive 1 or 6. 



Ready the 2501 

1. Press NPRO. 

2. Place the cold start card in the 
hopper, face down, 9-edge 
first. 

3. Press START (if both a 2501 
and a 1442, Model 6 or 7, 
are present, make sure the 
1442 is not ready by pressing 
STOP on the 1442). 



Figure 8-6 (Part 1 of 2). Card system preload procedure 
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Card System Preload 
operating procedure 




A2 




Yes 



Ready the 1442 for punching 

1. Press NPRO. 

2. Place blank cards in the 
hopper, face down, 9-edge 
first. 

3. Press START on the 1442. 

4. Press PROGRAM START on 
the console. 



Punching of the monitor system 
begins. 



J 



Finish the procedure 

1. Continue adding cards to the 
card punch hopper until the 
system halts with hexadecimal 
/03CC displayed in the 
ACCUMULATOR on the 
console display panel. 

2. Remove the 9s cards (a 9 
punched in columns 1 through 
80) that separate the object 
decks punched by this 
procedure. The stand-alone 
utility programs, sample pro- 
grams, and the DISKN 
subroutine for the 2311 Disk 
Storage Drives are the last 
decks punched during an 
initial load; remove these. 



If the system halts (halt codes displayed in 
the ACCUMULATOR on the console display 
panel) refer to Appendix B. 



If a 1442, Model 5, punch is being used, 
the first card through the punch is blank. 
Throw this card away. 




Reload 



Return to "Card System 
Reload Procedure" in 
this chapter. 







Initial load 






Return to "Card System 
Initial Load Procedure" 
in this chapter. 





Figure 8-6 (Part 2 of 2). Card system preload procedure 

Monitor System Initial Load and System Reload 
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Paper Tape initial Load 
operating procedure 

PAPER TAPE SYSTEM INITIAL LOAD OPERATING PROCEDURE 

The materials that you need to perform a paper tape system initial load procedure are: 

• An initialized disk cartridge 

• DCIP (Disk Cartridge Initialization Program) tape, BP1 6 

• IBM-supplied system tapes, BP01-BP14 

• Load mode control record tape and system configuration record tape that you punched 

If the assembler or the FORTRAN compiler is not being loaded, the corresponding tapes 
(BP05 or BP07) can be omit ted; however, if they are not loaded, they cannot be loaded 
during a system reload procedure. The assembler and the FORTRAN compiler can be 
loaded during an initial load procedure only. 

Load only those system library tapes (BP09 through BP14) that are required for your 
system. Tapes BP01-BP14 that are being used in the initial load must be arranged in the 
order shown in Figure 8-7. 

Tape BP1 5 is the cold start record that is used to make the monitor system operational 
after the initial load is complete. Tapes BP16-BP20 are stand-alone utilities and are not 
loaded as part of the monitor system. However, you use BP17 (PTUTL) to punch the 
load mode and system configuration tapes that are used during initial load and BP16 
(DCIP) to initialize the disk cartridge during initial load. Tapes BP21 and BP22 are sample 
programs that you can execute under monitor system control after the initial load is 
complete (see "Entering Jobs From the Paper Tape Reader" in Chapter 7). 

You perform a paper tape system initial load procedure a shown in Figure 8-8. 
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Paper Tape Initial Load 
operating procedure 



Sample Programs < 



Stand-alone Utilities 



Cold Start Paper Tape Record 




Console Printer 

" Core Dump Program 

1132/1403 Printer 
Core Dump Program 

Paper Tape Repro- 
" ducing Program 

PTUTL Paper Tape 
Utility Program 

DC IP Disk Cartridge 
Initialization Program 



«— Communication subroutines 

< — Plotter subroutines 

ILS, ISS, conversion, 
* and utility subroutines 

t — Common LIBFs and CALLs 
< — Extended precision LIBFs and CALLs 

♦—Standard LIBFs and CALLs 

End of system tapes control 
"" record (Type 81 record) 

♦—Assembler 

Supervisor, core load builder, system I/O 

"" subroutines, core image loader, DUP part 2 

«*— FORTRAN Compiler 
«*— Disk Utility Program 
•—Phase ID (PHID) control record 

*♦— System configuration record you punched 

System loader, part 2, with resident 
"'""monitor and cold start 

**— Load mode control record you punched 
■System loader, part 1 



Figure 8-7. Paper tape system load tapes 
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Paper Tape Initial Load 
operating procedure 



Turn on system power 

Move the POWER switch on the 
console to ON. 



Ready a cartridge for initialization 

1 . Place a cartridge in the single 
disk drive (the cartridge can 
be placed on any drive on the 
system). 

2. Move the DISK switch on the 
disk drive to ON. The drive 
requires approximately 90 
seconds to reach operating 
speed (see Chapter 7 for 
readying the 2310 Disk 
Storage Drive). 






Initialize the cartridge 
using the DCIP program 
(see Chapter 9). 






Ready the 1132 Printer 

1. Move the printer MOTOR switch 
to ON. 

2. Press CARRIAGE RESTORE, 

3. Press START. 



Ready the 1403 Printer 

1. Be sure the ENABLE/ 
DISABLE switch on the 1133 
Multiplex Control Enclosure 
is in the ENABLE position. 

2. Press CARRIAGE RESTORE 
on the printer. 

3. Press START on the printer. 




Figure 8-8 (Part 1 of 3). Paper tape system initial load procedure 
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Paper Tape Initial Load 
operating procedure 



A2 




Ready the IBM system tapes 

Place the user-punched control 
tapes in the IBM system tapes 
where indicated in Figure 8-7. 



Ready the paper tape reader 

1 . I nsert BP01 , system loader. 
Part 1 , in the paper tape 
reader. 



Start the reading of the Monitor 
System 

1 . Set the console entry switches 
1 2 through 1 5 to indicate the 
physical drive number of the 
drive that contains the 
initialized cartridge (switches 
through 1 1 must be off). 

2. Turn the console mode 
switch to RUN. 

3. Press I MM STOP on the 
console. 

4. Press RESET on the console. 

5. Press PROGRAM LOAD on 
the console. 



6. Press PROGRAM START to 
finish the reading of Part 1 of 
the system loader. 

7. Press PROGRAM START 
again. 

8. Place the user-punched load 
mode control record tape in 
the reader. 

9. Press PROGRAM START. 




When loading tapes, position under the 
read starwheels any of the delete codes 
that follow the program ID in the tape 
leader. 



Drive - all off 
Drive 1 — switch 15 on 
Drive 2 — switch 14 on 
Drive 3 — switches 14 and 15 on 
Drive 4 — switch 13 on 



The core image loader is read into core 
storage from BP01, and the system waits 
with /006C displayed in the ACCUMU- 
LATOR. 

When reading of BP01 is complete, the 
system waits with /00C9 displayed in 
the ACCUMULATOR. 

The system waits again with /3000 
displayed in the ACCUMULATOR. 



The system waits with /3000 in the 
ACCUMULATOR when reading of 
the tape is complete. 



Figure 8-8 (Part 2 of 3). Paper tape system initial load procedure 
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Paper Tape Initial Load 
operating procedure 



No 



A3 




Continue the reading of the 
Monitor System 

10. Insert BP02, system loader, 
Part 2, in the paper tape 
reader. 

11. Press PROGRAM START. 



12. Insert the user-punched 
system configuration tape 
in the reader. 

13. Press PROGRAM START. 



Load tapes BP03 through BP14 

1. Insert the next higher 
numbered tape in the paper 
tape reader. 

2. Press PROGRAM START. 




Yes 



Perform the "Cold Start 
Procedure" in Chapter 7 
to make the monitor 
system operational. 



The system waits with /3000 displayed 
in the ACCUMULATOR when reading 
of BP02 is complete. 



The system waits with /3000 displayed 
in the ACCUMULATOR when reading 
of the user-punched tape is complete. 



The system waits with /3000 displayed 
in the ACCUMULATOR when reading 
of each tape is complete. 



Figure 8-8 (Part 3 of 3). Paper tape system initial load procedure 
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Paper Tape System Reload 
operating procedure 

PAPER TAPE SYSTEM RELOAD OPERATING PROCEDURE 

The materials that you need to perform a paper tape system reload procedure are: 

• A system cartridge 

• Cold start paper tape record, BP15 

• System tapes 

• Load mode control record tape and system configuration record tape that you punched 

The paper tapes to be used in the reload must be arranged in the order shown in Figure 8-9. 
The tapes for the system programs and/or phases that are being added or expanded must 
be arranged in ascending tape number order. Also, all programs being loaded must have 
phase ID numbers within the limits of the IDs punched in the PHID tape, BP03. 

Note. If the assembler and/or FORTRAN compiler have been deleted or were not loaded 
during an initial load, they cannot be loaded during a system reload procedure. An initial 
load must be performed to load these 2 programs onto a cartridge. 

You perform a paper tape system reload procedure as shown in Figure 8-10. 




End-of -system tapes 
control record (type 81 ) 

Revised programs 

or program phases 



Phase ID (PHID) 
control record 

System configuration records 
that you punched 
T^** 1 System loader, part 2, with 
^ resident monitor and cold start 

Load mode control record that you punched 
System loader, part 1 



< Cold start paper tape record 



Figure 8-9. Paper tape system reload tapes 
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Paper Tape System Reload 
operating procedure 



Turn on system power 

Move the POWER switch on 
the console to ON. 



Ready the system cartridge to 
be used 

1 . Place a system cartridge in 
the single disk drive (the 
cartridge can be placed on 
any drive on the system). 

2. Move the DISK switch on 
the disk drive to ON. The 
drive requires approximately 
90 seconds to reach operating 
speed (see Chapter 7 for 
readying the 231 Disk 
Storage Drive). 




1132 



Ready the 1132 Printer 

1 . Move the printer MOTO R 
switch to ON. 

2. Press CARRIAGE RESTORE. 

3. Press START. 



Ready the 1403 Printer 

1. Be sure the ENABLE/ 
DISABLE switch on the 1133 
Multiplex Control Enclosure 
is in the ENABLE position. 

2. Press CARRIAGE RESTORE 
on the printer. 

3. Press START on the printer. 




Figure 8-10 (Part 1 of 4). Paper tape system reload procedure 
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Paper Tape System Reload 
operating procedure 




Perform a cold start 

1 . Insert tape BP1 5, cold start 
paper tape record, in the 
paper tape reader. 



2. Set the console entry switches 
1 2 through 1 5 to indicate the 
physical drive number of the 
drive that contains the system 
cartridge (switches through 

1 1 must be off) . 

3. Turn the console mode switch 
to RUN. 

4. Press I MM STOP on the 
console. 

5. Press RESET on the console. 

6. Press PROGRAM LOAD on 
the console. 



A cold start is recommended prior to a 
reload operation in order to restore certain 
parameters in DCOM on the system 
cartridge. 

Drive - all off 
Drive 1 — switch 15 on 
Drive 2 — switch 14 on 
Drive 3 — switches 14 and 15 on 
Drive 4 — switch 13 on 



The system waits with /3000 in the 
ACCUMULATOR when reading of 
the cold start record is complete. 



Ready the IBM system tapes 

Place the load mode and system 
configuration control record tapes 
that you punched between the 
IBM reload tapes where indicated 
in Figure 8-9. 




Figure 8-10 (Part 2 of 4). Paper tape system reload procedure 
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Paper Tape System Reload 
operating procedure 








Start the reading of the reload 
tapes 


1 . Insert tape BP01 , system 
loader. Part 1 , in the paper 
tape reader. 


2. Press PROGRAM START on 
the console. 


3. Press PROGRAM START 
again to finish the reading 
of Part 1 of the system 
loader. 


4. Press PROGRAM START 
again. 


5. Place the user-punched load 
mode control record tape in 
the reader. 


6. Press PROGRAM START. 


7. Insert tape BP02, system 
loader. Part 2, in the paper 
tape reader. 


8. Press PROG 


RAM START. 


Configure systei 


in 


1 . Insert the user-punched 
system configuration tape 
in the reader. 


2. Press PROGRAM START. 









The core image loader is read into core 
storage from BP01, and the system waits 
with /006C displayed in the ACCUMU- 
LATOR. 

When reading of BP01 is complete, the 
system waits with /00C9 displayed in 
the ACCUMULATOR. 



The system waits again with /3000 
displayed in the ACCUMULATOR. 



The system waits with /3000 in the 
ACCUMULATOR when reading of 
the tape is complete. 



The system waits with /3000 in the 
ACCUMULATOR when reading of 
BP02 is complete. 



The system waits with /3000 in the 
ACCUMULATOR when reading of 
the system configuration tape is 
complete. 




Figure 8-10 (Part 3 of 4). Paper tape system reload procedure 
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Paper Tape System Reload 
operating procedure 




No 



Load tapes BP03, revised 
programs or phases, and BP08 

1 . I nsert the next tape. 

2. Press PROGRAM START. 



The system waits with /3000 in the 
ACCUMULATOR when reading of 
each tape is complete. 








Yes 






Perform the "Cold Start 
Procedure" in Chapter 7 
to make the monitor 
system operational. 





Figure 8-10 (Part 4 of 4). Paper tape system reload procedure 
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Stand-alone Utilities 

console printer core dump 



Chapter 9. Stand-alone Utility Programs 



The stand-alone utility programs are each self-loading and complete with subroutines. 
These programs are separate from the monitor system library and enable you to perform 
operations without monitor system control. The stand-alone utility programs are: 

• Console Printer Core Dump 

• Printer Core Dump 

• Disk Cartridge Initialization Program (DCIP) 

• Paper Tape Reproducing 

• Paper Tape Utility (PTUTL) 

The first 3 of these are available in cards and paper tapes; the last 2 on paper tape only. 
This chapter: 

1. Describes the general functions of each of the stand-alone utility programs. 

2. Presents sample operating procedures for using these programs. 

You may use these operating procedures as they are presented, or you may modify them 
to meet the needs of your computing system. For those who are already familiar with 
similar procedures, the headings in each block can be used as reminders as you perform 
the procedure. For those who need more information, detailed steps for performing these 
procedures are provided. Not all steps of each procedure need to be done every time the 
procedure is used; do only those steps that are necessary. 

Appendix B lists the halt codes that are displayed in the ACCUMULATOR on the console 
display panel if errors occur during these procedures. 

CONSOLE PRINTER CORE DUMP 

Selected portions of core storage are printed on the console printer when you use the 
Console Printer Core Dump Program. 

dump format Each core location is dumped as a 4-digit hexadecimal word with a space separating each 

word. The first word dumped is from the starting address that you specify through the 
console entry switches. 

The materials that you need to use the Stand-alone Console Printer Core Dump Program 
are: 

• Console Printer Core Dump Program card 

-or- 

• Console Printer Core Dump Program paper tape, BP20 

Figure 9- 1 is the operating procedure for the stand-alone Console Printer Core Dump 
Program. 
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Ready the console 


1. Press 1 MM STOP. 


2. Press RESET. 


3. Turn the console mode 
switch to RUN. 


4. Set the margins on the 
console printer. 


5. Set the address (in binary) 
of the starting core location 
in the console entry switches. 







Set the number of print positions to a 
multiple of 5 so each line will be printed 
in the same format. 




Tape 



Card 




2501 



1442 



Ready the 1442, Model 6 or 7 

1. Press NPRO. 

2. Place the console printer core 
dump program card in the 
hopper, face down, 9-eclge 
first. 

3. Press START. 



m 



Ready the paper tape reader 

1. Insert tape BP20, console 
printer core dump, in the 
paper tape reader. 

2. Position under the read star- 
wheels one of the delete codes 
beyond the program ID. 




Ready the 2501 card reader 

1. Press NPRO. 

2. Place the console printer core 
dump program card in the 
hopper, face down, 9-edge 
first. 

3. Press START (if both a 2501 
and a 1442, Model 6 or 7, are 
present, make sure the 1442 
is not ready by pressing STOP 
on the 1442). 
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Figure 9-1 (Part 1 of 2). Console printer core dump operating procedure 
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Start the dump program 

Press PROGRAM LOAD on the 
console keyboard. 




Yes 



Temporarily interrupt the dump 

1 . Press I MM STOP on the 
console keyboard. 

2. Press PROGRAM START on 
the console keyboard to 
continue 



| The dump continues until 

I complete. 



I 






_l 




Perform a "Cold Start 
Procedure" to continue 
monitor system opera- 
tions (see Chapter 7). 





Figure 9-1 (Part 2 of 2). Console printer core dump operating procedure 
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PRINTER CORE DUMP PROGRAM 

This program dumps core storage (in hexadecimal) beginning at location $ZEND on 
either the 1403 Printer or the 1 132 Printer. The printer selected is the one that is ready; 
when both are ready, the 1403 is selected. 

dump format Each line begins with a 4-digit hexadecimal address that is followed by sixteen 4-digit 

hexadecimal words. A space separates the address and each word in the printed line. An 
additional space is inserted between each group of 4 words. 

To decrease dump time, the program does not print consecutive duplicate lines. Before 
printing a line, the program compares the next 16 words of core with those just printed. 
If they are identical, the program goes on to the next 16 words of core. The program con- 
tinues comparing lines until the first line not identical to the last line printed is found. The 
printer then spaces a line and the 16 words of the unidentical line are printed. The address 
printed at the beginning of this line is that of the first word of the unidentical line. 

The materials that you need to use the Stand-alone Printer Core Dump Program are: 

• Printer Core Dump Program card deck, SDMP punched in column 73 through 76 

-or- 

• Printer Core Dump Program paper tape, BP19 

Figure 9-2 is the operating procedure for the stand-alone Printer Core Dump Program. 
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Ready the console 

1. Press I MM STOP. 

2. Press RESET. 

3. Turn the console mode 
switch to RUN. 



Ready the printer 

1. Press CARRIAGE RESTORE. 

2. Press START. 




Tape 



Cards 



Ready the paper tape reader 

1. Insert tape BP19, printer core 
dump program, in the paper 
tape reader. 



2. Position under the read star- 
wheels one of the delete codes 
beyond the program ID. 



A2 




B2 




Figure 9-2 (Part 1 of 3). Printer Core Dump Program operating procedure 
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A2 





2501 



1442 



Ready the 2501 card reader 

1. Press NPRO. 

2. Place the printer core dump 
program card deck in the 
hopper, face down, 9-edge 
first. 

3. Press START (if both a 2501 
and a 1442, Model 6 or 7, are 
present, make sure the 1442 is 
not ready by pressing STOP 
on the 1442). 



Ready the 1442, Model 6 or 7 

1. Press NPRO. 

2. Place the printer core dump 
program card deck in the 
hopper, face down, 9-edge 
first. 

3. Press START. 




Start the dump program 

Press PROGRAM LOAD on 
the console keyboard. 



A3 




Figure 9-2 (Part 2 of 3). Printer Core Dump Program operating procedure 
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1132 




1403 



Do you want 

to interrupt the dump 

program? 



Yes 



Temporarily interrupt the dump 
(cannot be done when an 1132 
printer is used) 

1 . Press I MM STOP on the 
console keyboard. 

2. Press PROGRAM START on 
the console to continue. 



The dump continues until 



I 


complete. 




I 
-J 




Perform a "Cold Start 
Procedure" to continue 
monitor system operations 
(see Chapter 7). 





Figure 9-2 (Part 3 of 3). Printer Core Dump Program operating procedure 
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DISK CARTRIDGE INITIALIZATION PROGRAM (DCIP) 

The Disk Cartridge Initialization Program (DCIP) is composed of: 

• A disk initialization subroutine 

• A disk copy subroutine 

• A disk dump subroutine 

• A disk patch subroutine 

• A disk analysis subroutine 

• A disk compare subroutine 

Initialization of a cartridge is required before the monitor system can be loaded onto the 
cartridge. If sector @IDAD and/or sector @DCOM are destroyed on a disk, disk initializa- 
tion is the only DCIP subroutine that can be performed on the disk. 

The following text describes the functions of DCIP and provides sample operating proce- 
dures for using all of the functions of DCIP. 

Disk Initialization Subroutine 

This subroutine prepares a new disk cartridge for use and makes an old cartridge available 
to be used for other purposes. The initialization subroutine: 

• Tests sectors to determine which, if any, are defective and fills in the defective cylinder 
table accordingly. 

• Writes a sector address on every sector, including defective sectors. 

• Establishes a file-protected area for the disk cartridge. 

• Places an ID on the disk cartridge. 

• Establishes a disk communications area (sector @DCOM), a location equivalence table 
(LET), and a core image buffer (CIB). 

The monitor system disk I/O subroutines operate with up to 3 defective cylinders on a 
cartridge. That is, 3 cylinders that contain one or more defective sectors. A cartridge 
cannot be initialized if cylinder is defective, or if a sector address cannot be written on 
every sector. 

The contents of sectors @IDAD, @DCOM, and @RIAD in cylinder are established during 
initialization (see Chapter 2 for a general description of the contents of these sectors). A 
message and the program that prints it are written in sector @IDAD. The message is: 

THIS IS A NONSYSTEM CARTRIDGE 

This message is printed when an attempt is made to cold start a nonsvstem cartridge that 
is initialized with DCIP. 

Disk Copy Subroutine 

This subroutine copies the contents from one cartridge (the source cartridge) onto another 
cartridge (the object cartridge). Before the copy is performed, the subroutine checks to 
ensure that the cartridge being copied and the object cartridge have been initialized. The 
cartridge ID, copy code, and defective cylinder data are not copied from the source 
cartridge. 
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Disk Dump Subroutine 

This subroutine dumps sectors of a cartridge that you select on the principal printer. 

Each sector is preceded by a 3-word header and is printed in 20 lines; sixteen 4-digit 
hexadecimal words per line. Two sectors are printed on each page. 

The first digit of the first header word is the drive number; the remaining 3 digits are the 
physical sector address of the sector being dumped. The second header word is the actual 
address of the sector being dumped. The third word is the logical sector address, taking 
into account any defective cylinders. If you dump a sector that is in a defective cylinder, 
the third word of the header contains DEFC. 

Disk Patch Subroutine 

This subroutine allows you to change the contents, word-by-word, of selected disk sectors. 
The contents of the sector being modified are printed, on the principal printer, both before 
and after the changes are made. 

A one-word buffer is used to store the contents of a specified word as you are modifying 
it. Six special characters are used to control the use of this buffer. These characters and 
their functions are listed in the disk patch operating procedure in Figure 9-7 under 
"DCIP Operating Procedures", in this chapter. 

Disk Analysis Subroutine 

This subroutine reads each sector of a selected cartridge 1 6 times. 

If a read error occurs, the address of the sector being read is printed. You can then dump 
the contents of the sector in error if you wish. 

If a sector address is incorrect, the incorrect address is printed, and the correct address is 
then written on the sector. 

Disk Compare Subroutine 

This subroutine of DGIP reads the corresponding sectors of 2 cartridges and compares the 
contents word by word. The addresses from both cartridges of any sectors that do not 
compare are printed. 

DCIP Operating Procedures 

The operating procedures in this section include a program load procedure (Figure 9-3) 
for DCIP and procedures (Figures 9-4 through 9-9) for performing the 6 functions of 
DCIP. 

The following general comments should be kept in mind while using any of the DCIP 
functions: 

1 . If a disk drive is not ready, the system halts with /50X0 displayed in the ACCUMU- 
LATOR on the console display panel; X is the number of the physical drive that is 
not ready. 

2. If your system has 2 card readers, ready only the reader that you use for cold start. 

3. The messages printed during DCIP functions refer to the console entry switches as 
bit switches. 

4. All console entry switch settings that you enter are printed on the console printer as 
4-digit hexadecimal numbers. 

5. If you turn on an invalid console entry switch during any of the DCIP functions, 
ENTRY ERR . . .RETRY is printed. To continue, turn off the incorrect switch, 
turn on the correct one, and press PROGRAM START. 
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6. A DCIP function can be stopped at any time by pressing INT REQ on the console; 
keyboard. The system prints the DCIP option message. This gives you the choice 
of repeating the current function or selecting a new one. Following the option 
message, you can change disk cartridges or packs, if necessary, before continuing. 
If you wish to discontinue using DCIP at this point, perform a cold start procedure 
(see Chapter 7) to make the monitor system operational. 

Note. If you press INT REQ while a disk is being copied or initialized, the results 
of the use of the object cartridge (in the copy operation) or the partially initialized 
cartridge are unpredictable. 

The materials that you need to perform the function of DCIP are the IBM-supplied 
DCIP card deck (DCIP punched in columns 73 through 76) or paper tape (BP16) and any 
of the following depending on the function you are using: 

• An uninitialized disk for disk initialization 

• A system or nonsystem cartridge and an initialized disk for the copy function. The 
copy function is usable only if your system can contain more than one disk at a time. 

• A system or nonsystem cartridge for the dump function 

• A system or nonsystem cartridge for the disk patch function 

• A system or nonsystem cartridge for disk analysis 

• Two system or nonsystem cartridges whose contents are supposed to be the same for 

the disk compare function. The compare function is usable only if your system can 

contain more than one disk at a time. 

Have all of the cartridges you are going to use ready before you load the DCIP program as 
follows. 
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Ready the console 

1. Press I MM STOP. 

2. Press RESET. 

3. Turn the load mode switch 
to RUN. 



Ready the printer 

1. Press CARRIAGE RESTORE. 

2. Press START. 



Note. If the 1403 or 1 132 Printer is not 
ready when you load DCIP, or if your 
system does not have a 1403 or 1 132, the 
console printer is the principal print device. 



Ready the disk drives to be used 
during the DCIP functions 

1. Place the disk cartridges or packs 
to be used in the disk drives. 

2. Turn the disk drives on (see 
Chapter 7 for more information 
about readying disk drives). 



A2 




Figure 9-3 (Part 1 of 4). Load DCIP operating procedure 
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Tape 



Cards 




2501 



Ready the 1442, Modal 6 or 7 

1. Press N PRO. 

2. Place the Disk Cartridge 
Initialization Program card 
deck in the hopper, face 
down, 9-edge first. 

3. Press START. 



^ 



Ready the paper tape reader 

1. Insert tape BP16, Disk 
Cartridge Initialization 
Program, in the paper tape 
reader. 

2. Position under the read 
starwheel one of the 
delete codes beyond the 
program I D. 




Ready the 2501 Card Reader 

1. Press NPRO. 

2. Place the Disk Cartridge 
Initialization Program card 
deck in the hopper, face 
down, 9-edge first. 

3. Press START (if both a 2501 
and a 1442, Model 6 or 7, ares 
present, make sure the 1442 is 
not ready by pressing STOP 
on the 1442). 



Figure 9-3 (Part 2 of 4). Load DCIP operating procedure 



9-12 



Stand-alone Utilities 
load DCIP 



A3 




Start the loading of DCIP 

Press.PROGRAM LOAD on the 
console. 




Yes 



Continue the reading of tape BP16 

1. Press PROGRAM START on 
the console. 

2. Press PROGRAM START again 
when the system waits with 
/00C9 in the ACCUMULATOR. 



n 



DCIP is read into core storage 
and the system prints: 

TURN ON: 

SWOTOINITLZ 

SW1 TO COPY 

SW2 TO DUMP 

SW3 TO PATCH 

SW4 TO ANALYZE 

SW5 TO CMP 

SW6 TO INITLZ NEW DISK 



J 




Figure 9-3 (Part 3 of 4). Load DCIP operating procedure 
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Select the DCIP function to be 
performed 

1. Turn off all console entry 
switches. 

2. Turn on the console entry 
switch that corresponds to 
the DCIP function you are 
doing. 

3. Press PROGRAM START. 



If switch or 6 is on 



If switch 1 is on 



If switch 2 is on 



If switch 3 is on 



If switch 4 is on 



If switch 5 is on 



Figure 9-4 



Figure 9-5 



Figure 9-6 



Figure 9-7 



Figure 9-8 



Figure 9-9 



> 

> 
> 
> 
> 
> 



Figure 9-3 (Part 4 of 4). Load DCIP operating procedure 
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• ENTER DR NO. (BITS 12-15) 

. is printed on the console printer. J 



L 



initialize a cartridge 

1. Turn off console entry switch 0. 

2. Enter through console entry 
switches 12 through 15 the 
physical drive number ( in binary) 
of the drive that contains the 
cartridge being initialized. 

3. Press PROGRAM START 

4. Turn off all console entry switches. 

5. If the pack has not been previously 
initialized, be sure that the access 
arm is at sector 0. On a 231 1 car- 
tridge, turn off the disk drive and ' 
turn it on again before initializing 
each disk surface. 

6. Enter through the console entry 
switches the cartridge ID (binary 
representation). 

7. Press PROGRAM START. 




No 



Start initialization 



Press PROGRAM START again. 



r 



i_ 



The cartridge is initialized. 
The entire surface is cleared, 
disk addresses are written, and 
three distinct patterns are 
written on each sector and 
read back for testing purposes. 




ENTER CART ID is printed. 



A valid cartridge ID is a hexadecimal 
number between /0001 and /7FFF. 



The cartridge ID you entered is 
printed, and the system waits 
with the cartridge ID in hexa- 
decimal displayed in the 
ACCUMULATOR. 



Interrupt the initialize function 
to reenter the physical drive 
number and the cartridge ID. 

Press INTREQ. 



The DCIP option message is 

printed. 

TURN ON: 

SW0TO INITLZ 

SW1 TO COPY 

SW2 TO DUMP 

SW3 TO PATCH 

SW4 TO ANALYZE 

SW5 TO CMP 

SW6 TO INITLZ NEW DISK j 



Restart the initialize function 

1. Turn off all console entry 
switches. 

2. Turn on switch 0. 

3. Press PROGRAM START. 




Figure 9-4 (Part 1 of 5). Operating procedure for DCIP initialize function 
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| ~ *" 1 

Any of the following messages 

are printed: 

NO DEF CYLS 

(if all of the cartridge is usable) 



DEF CYLS: 
XXXX . . . 

(if defective cylinders are found) 

and/or 

DEF CART 

(if more than 3 defective 
cylinders are printed in the 
previous message. This message 
is also printed if cylinder is 
defective, or if sector addresses 
cannot be written on every 
sector.) 

After any of the previous 
messages are printed, this 
message is printed: 

TURN ON SWO FOR MORE 
TESTING 




Figure 9-4 (Part 2 of 5). Operating procedure for DCIP initialize function 
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Continue testing the cartridge 

1. .Turn off all console entry 
switches. 

2. Turn on switch 0. 

3. Press PROGRAM START. 



4. Enter through console entry 
switches 11 through 15 the 
number (in binary) of times 
you want the cartridge tested. 
(This provides an additional 
opportunity to find marginal 
cylinders and reduce chances 
of disk errors later on.) 

5. Press PROGRAM START. 



ENTER REPEAT CNT: (BITS 11-15) 
is printed. 

A maximum of 31 (decimal) can be 
entered. 



Initialization is repeated. Each 
cylinder is tested the number of 
times you specified. 




Figure 9-4 (Part 3 of 5). Operating procedure for DCIP initialize function 
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Continue or finish DCIP 
operations 

1. Turn off all console entry 
switches. 

2. Press PROGRAM START. 



~l 



The DCIP option message is 
printed. 

TURN ON: 

SWOTOINITLZ 

SW1 TO COPY 

SW2 TO DUMP 

SW3 TO PATCH 

SW4 TO ANALYZE 

SW5 TO CMP 

SW6 TO INITLZ NEW DISK 



Note. If your system has 231 1 
Disk Storage Drives, be sure all 
disks in a disk pack are initialized. 




Yes 



Do one of the following: 

Perform a "Cold Start 
Procedure" (see Chapter 
7) from a system cartridge. 

Perform an initial system 
load on the cartridge just 
initialized (see Chapter 8). 



K> 



Figure 9-4 (Part 4 of 5). Operating procedure for DCIP initialize function 
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m 



Select the DCIP function to be 
performed 

1. Change cartridges or packs 
and ready the disk drives, 
if necessary. 

2. Turn off all console entry 
switches. 

3. Turn on the console entry 
switch that corresponds to • 
the DCIP function you are 
doing. 

4. Press PROGRAM START. 



If switch or 6 is on 



If switch 1 is on 



If switch 2 is on 



If switch 3 is on 



If switch 4 is on 



If switch 5 is on 



Figure 9-4 



Figure 9-5 



Figure 9-6 



Figure 9-7 



Figure 9-8 



Figure 9-9 



> 



> 



> 



> 



> 



> 



Figure 9-4 (Part 5 of 5). Operating procedure for DCIP initialize function 
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| ENTER: 

I SOURCE DR (BITS 0-3) 

OBJECT DR (BITS 12-15) 
I is printed on the console printer. 

I 



J 



Copy a cartridge 

1 . Turn off console entry switch 1 . 

2. Enter through console entry 
switches through 3 the physical 
drive number (in binary) of the 
drive that contains the cartridge 
being copied (source drive). 

3. Enter through console switches 
12 through 15 the physical drive 
number (in binary) of the drive 
that contains the cartridge onto 
which information is being copied 
(object drive). 

4. Press PROGRAM START. 



The source and object cartridge ID's 
are printed as follows: 

SRC ID = XXXX 

OBJ ID = YYYY 

A system wait follows. 




Interrupt the copy function to 
reenter the physical drive numbers 
for the source and object drives. 

Press INT REQ. 



Start the copy function 

Press PROGRAM START again. 




A2 




Figure 9-5 (Part 1 of 8). Operating procedure for DCIP copy function 
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Yes 




The DCIP option message is 

printed. 

TURN ON: 

SWOTO INITLZ 

SW1 TO COPY 

SW2 TO DUMP 

SW3 TO PATCH 

SW4 TO ANALYZE 

SW5 TO CMP 

SW6 TO INITLZ NEW DISK 



Restart the copy function 

1. Turn off all console entry 
switches. 

2. Turn on switch 1. 

3. Press PROGRAM START. 



A1 




l r 

SOURCE or OBJECT is printed 
in place of X. 

The DCIP option message is 
printed. 

TURN ON: 

SWOTO INITLZ 

SW1 TO COPY 

SW2 TO DUMP 

SW3 TO PATCH 

SW4 TO ANALYZE 

SW5 TO CMP 

SW6 TO INITLZ NEW DISK 



l_ 




J 




Figure 9-5 (Part 2 of 8). Operating procedure for DCIP copy function 
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L 



The object cartridge is a DM2 
UCART maste; cartridge. 

The DCIP option message is 
printed. 

TURN ON: 

SWOTO INITLZ 

SW1 TO COPY 

SW2 TO DUMP 

SW3 TO PATCH 

SW4 TO ANALYZE 

SW5 TO CMP 

SW6 TO INITLZ NEW DISK 




_J 




| "1 

The object cartridge is a DM2 | 

system cartrdige ' 




Continue the copy function 

Press PROGRAM START. 




Figure 9-5 (Part 3 of 8). Operating procedure for DCIP copy function 
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B3 



r 



L 




Copying of the specified 
cartridge begins. 



-I 



Interrupt the copy function to 
begin initialization 
Press INT REQ. 



r 



Trie DCIP option message is 
printed. 



1 



1 TURN ON: 

J SWOTOINITLZ 

. SW1 TO COPY 

I SW2TODUMP 

I SW3 TO PATCH 

SW4 TO ANALYZE 

I SW5 TO CMP 

I SW6TOINITLZNEWDISK 



_J 



Initialize the cartridge 

1 . Turn off all console entry 
switches. 

2. Turn on switch 0. 

3. Press PROGRAM START. 




Figure 9-4 



> 



Figure 9-5 (Part 4 of 8). Operating procedure for DCIP copy function 
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The contents (less defective 
cylinder data and the cartridge 
ID) of the source cartridge) are 
copied onto the object cartridge. 

Word 5 of sector @IDAD of the 
source cartridge is incremented 
by one when written on the 
object cartridge. Because of this, 
the copy number of the object 
cartridge is always one greater 
than the copy number of the 
source cartridge. 



L_ 




J 




A disk read, write, or seek 
error has occurred. 

/5003 is displayed in the 
ACCUMULATOR 

The ACCUMULATOR 
EXTENSION contains /XYYY, 
where X is the drive code, and 
YYY is the address of the sector 
in error. 



J 




Figure 9-5 (Part 5 of 8). Operating procedure for DCIP copy function 
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Yes 



Have sector in error rewritten 
or reread 

1 . Turn off all console entry 
switches. 

2. Turn on console entry switch 0. 

3. Press PROGRAM START. 



Continue copy function 

1 . Turn off all console entry 
switches. 

2. Press PROGRAM START. 



' The sector in error is rewritten 
I or reread and the copy function 



1 



continued. 



The read or write error is ignored, 
and the contents of the object 
cartridge reflect the last attempt 
to copy the sector in error. 



L 



L 




J 




Figure 9-5 (Part 6 of 8). Operating procedure for DCIP copy function 
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V 



I 1 

The copy function is completed 
and the DCIP option message is j 
printed. , 



L. 



TURN ON: 

SWOTOINITLZ 

SW1 TO COPY 

SW2 TO DUMP 

SW3 TO PATCH 

SW4 TO ANALYZE 

SW5 TO CMP 

SW6 TO INITLZ NEW DISK 



I 




_J 




Perform a "Cold Start 
Procedure" (see Chapter 
7) to make the system 
operational. 



Figure 9-5 (Part 7 of 8). Operating procedure for DCIP copy function 
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Select the DCIP function to be 
performed 

1. Change cartridges or packs 
and ready the disk drives, 
if necessary. 

2. Turn off all console entry 
switches. 

3. Turn on the console entry 
switch that corresponds to 
the DCIP function you are 
doing. 

4. Press PROGRAM START. 



If switch or 6 is on 



If switch 1 is on 



If switch 2 is on 



If switch 3 is on 



If switch 4 is on 



If switch 5 is on 



Figure 9-4 



Figure 9-5 



Figure 9-6 



Figure 9-7 



Figure 9-8 



Figure 9-9 



> 



> 



> 



> 



> 
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Figure 9-5 .(Part 8 of 8). Operating procedure for DCIP copy function 
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I 

'ENTER. 

I SECTRADDR (BITS 4 

| is printed on the console printer 



. PHYS DR NO. (BITS 0-3), 
-15H 









Dump specified sectors of a disk 
cartridge 

1 . Turn off console entry switch 2. 

2. Enter through console entry 
switches through 3 the 
physical drive number (in 
binary) of the drive that 
contains the cartridge from 
which data is being dumped. 

3. Enter through the console entry 
switches 4 through 1 5 the 
physical address of the first 
sector being dumped. 

4. Press PROGRAM START. 

5. Enter through the console entry 
switches the number of 
consecutive sectors to be 
dumped. 

6. Press PROGRAM START. 



The sector address is a right-adjusted 
hexadecimal number, maximum /0657. 
(A logical sector address, obtained from 
LET or FLET, must be adjusted for 
defective cylinders.) 

ENTER NO. OF SCTRS TO DUMP is 
printed. 

The number is a right-adjusted hexadecimal 
value; the maximum value depends on the 
starting address entered in Step 2. 



Dumping of the cartridge begins. 




Figure 9-6 (Part 1 of 4). Operating procedure for DCIP dump function 
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A3 








Yes 






Have sector in error reread 






1 . Turn off all console entry 






switches. 






2. Turn on switch 0. 






3. Press PROGRAM START. 




r~ " 






"1 



I The sector in error is reread. 
I 




Continue dump function 

1 . Turn off all console entry 
switches. 

2. Press PROGRAM START. 



B3 




Figure 9-6 (Part 2 of 4). Operating procedure for DCIP dump function 
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DC IP dump procedure 





The read error is ignored. The 
sector in error is printed as it 
was last read, and the dump 
continues. 



n 



The dump continues until all the 
specified sectors are dumped. 

The DCIP option message is 
printed. 

TURN ON: 
SWGTOINITLZ 
SW1 TO COPY 
SW2 TO DUMP 
SW3 TO PATCH 
SW4 TO ANALYZE 
SW5 TO CMP 
L .SW^TO [NITLZ NEW D_[SK | 





Perform a "Cold Start 
Procedure" (see Chapter 
7) to make the system 
operational. 



Figure 9-6 (Part 3 of 4). Operating procedure for DCIP dump function 
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A4 




Select the DCIP function to be 
performed 

1. Change cartridges or packs 
and ready the disk drives, 
if necessary. 

2. Turn off all console entry 
switches. 

3. Turn on the console entry 
switch that corresponds to 
the DCIP function you are 
doing. 

4. Press PROGRAM START. 



If switch or 6 is on 



If switch 1 is on 



If switch 2 is on 



If switch 3 is on 



If switch 4 is on 



If switch 5 is on 



Figure 9-4 



> 



Figure 9-5 



> 



Figure 9-6 



> 



Figure 9-7 



> 



Figure 9-8 



> 



Figure 9-9 



> 



Figure 9-6 (Part 4 of 4). Operating procedure for DCIP dump function 
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| ENTER: | 

. PHYS DR NO. (BITS 0-3) . 

I SCTRADDR (BITS 4-15) I 

I is printed on the console printer. I 

L. _ _ I 



Start the patch function 

1. Turn off console entry switch 3. 

2. Enter through console entry 
switches through 3 the 
physical drive number tin 
binary) of the drive that 
contains the cartridge being 
patched. 

3. Enter through console entry 
switches 4 through 1 5 the 
address of the sector being 
patched. 

4. Press PROGRAM START. 

5. Enter through the console 
enrty switches the relative 
address of the sector word 
being changed. 

6. Press PROGRAM START. 




The sector address is a right-adjusted 
hexadecimal number, maximum /0657. 



The specified sector is dumped, and the 

following message is printed: 

ENTER RLTV ADDR OF SCTR WD TO 

CHANGE. 



The relative address of the sector word is 
a right-adjusted hexadecimal number in 
the range /0000 through /013F. 

Note: If the sector address is being 
changed, enter /FFFF (-1). 

The KEYBOARD SELECT indicator on 
the console keyboard is turned on. 



Figure 9-7 (Part 1 of 4). Operating procedure for DCIP patch function 
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n 



Six special character keys of the 
console keyboard are used to 
control patch functions. The 6 
keys and their functions are: 

EOF — causes the last 4 hexa- 
decimal characters entered 
through the keyboard to be 
stored at the relative address 
displayed in the ACCUMU- 
LATOR EXTENSION. 

> — causes the relative address 
in the ACCUMULATOR 
EXTENSION to be incremented 
by one word. 

< — causes the relative address 
in the ACCUMULATOR 
EXTENSION to be decremented 
by one word. The address 
cannot be decremented past the 
first data word (relative address 
/0000) by this character. /FFFF 
must be entered through the 
keyboard. 

R — causes printing of the 
message that requests the relative 
address of the sector word to be 
changed. Thus, the relative 
address can be changed by more 
than one word. 

— causes all remaining words 
of the sector from the address 
in the ACCUMULATOR 
EXTENSION to the end of the 
sector to be filled with the last 
4 hexadecimal characters entered 
through the keyboard. Then 
patching is terminated. 

* — terminates the patch function. 

The modified sector is stored 
I on the disk, and is dumped to the 
■ principal printer. 




Figure 9-7 (Part 2 of 4). Operating procedure for DCIP patch function 
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rr, 



Continue the patch function 

1. Enter through the keyboard 
the 4 hexadecimal characters 
that comprise the new word 
to be stored. 

2. Use any of the special control 
characters previously listed 
to perform the desired patch 
functions. 



The characters are printed on the console 
printer as you enter them. 



ENTRY ERR . . . RETRY is printed if 
you press an invalid key; use the correct 
key to continue. 




The DCIP option message is 
printed. 

TURN ON: 
SWOTOINITLZ 
SW1 TO COPY 
SW2 TO DUMP 
SW3 TO PATCH 
SW4 TO ANALYZE 
SW5 TO CMP 
I SW6TOINITLZ NEW DISK 




Figure 9-7 (Part 3 of 4). Operating procedure for DCIP patch function 
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A4 




Select the DCIP function to be 
performed 

1. Change cartridges or packs 
and ready the disk drives, 
if necessary. 

2. Turn off all console entry 
switches. 

3. Turn on the console entry 
switch that corresponds to 
the DCIP function you are 
doing. 

4. Press PROGRAM START. 



If switch or 6 is on 



If switch 1 is on 



If switch 2 is on 



If switch 3 is on 



If switch 4 is on 



If switch 5 is on 



Figure 9-4 



Figure 9-5 



> 



Figure 9-6 



> 



Figure 9-7 



> 



Figure 9-8 



> 



Figure 9-9 



> 



Figure 9-7 (Part 4 of 4). Operating procedure for DCIP patch function 
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| ENTER DR NO. (BITS 12-15) | 

| is printed on the console keyboard. | 



Start the analyzing of disk sectors 

1. Turn off console enrty switch 4. 

2. Enter through console entry 
switches 12 through 15 the 
physical drive number (in 
binary) of the drive that 
contains the cartridge being 
analyzed. 

3. Press PROGRAM START. 



. Each disk sector is read 16 times. 






Figure 9-8 (Part 1 of 4). Operating procedure for DCIP analysis function 



9-36 



Stand-alone Utilities 

DCIP analysis procedure 




A2 



Dump the sector in error 

1.. Turn all console entry 
switches off. 

2. Turn on console entry 
switch 0. 

3. Press PROGRAM START. 



1 

J The sector containing the error | 

I is ritimnfiH anH sertnr nnnlv/cic 



is dumped, and sector analysis 
continues. 




_J 



^ 



Continue disk analysis 

1 . Turn off all console entry 
switches. 

2. Press PROGRAM START. 



A1 




Figure 9-8 (Part 2 of 4). Operating procedure for DCIP analysis function 
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r 



Yes 



An incorrect sector address has 
been read. 



| The system writes the correct I 

■ sector address on the disk, and I 

sector analysis continues. 
I I 



Disk analysis continues until all 
sectors have been analyzed. 

The DCIP option message is 
printed. 

TURN ON: 

SWOTO INITLZ 

SW1 TO COPY 

SW2 TO DUMP 

SW3 TO PATCH 

SW4 TO ANALYZE 

SW5 TO CMP 

SW6 TO INITLZ NEW DISK 





Perform a "Cold Start 
Procedure" (see Chapter 7) 
to make the system 
operational. 



Figure 9-8 (Part 3 of 4). Operating procedure for DCIP analysis function 
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A4 



Select the DCIP function to be 
performed 

1. Change cartridges or packs 
and ready the disk drives, 
if necessary. 

2. Turn off all console entry 
switches. 

3. Turn on the console entry 
switch that corresponds to 
the DCIP function you are 
doing. 

4. Press PROGRAM START. 



If switch or 6 is on 



If switch 1 is on 



If switch 2 is on 



If switch 3 is on 



If switch 4 is on 



If switch 5 is on 



Figure 9-4 



Figure 9-5 



Figure 9-6 



Figure 9-7 



Figure 9-8 



Figure 9-9 



> 



> 



> 



> 



> 



> 



Figure 9-8 (Part 4 of 4). Operating procedure for DCIP analysis function 
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ENTER: 

SOURCE DR (BITS 0-3) 

OBJECTOR (BITS 12-15) 

is printed on the console printer. 



1 



E 



. I 



Start the compare function 

1. Turn off console entry switch 5. 

2. Enter through console entry 
switches through 3 the 
physical drive number (in 
binary) of the drive that 
contains one of the cartridges 
being compared (source 
drive). 

3. Enter through console entry 
switches 12 through 15 the 
physical drive number (in 
binary) of the drive that 
contains the other cartridge 
that is being compared 
(object drive). 

4. Press PROGRAM START. 



r 



T 



L 



The program compares each logical 
sector of the source cartridge with 
its counterpart on the object 
cartridge. If the contents of the 
2 sectors do not compare, this 
message is printed: 

CMP ERR ON SCTRS xxxx yyyy 

The compare function continues 
until it is complete. 

The DCIP option message is 
printed. 

TURN ON: 

SWOTO INITLZ 

SW1 TO COPY 

SW2 TO DUMP 

SW3 TO PATCH 

SW4 TO ANALYZE 

SW5 TO CMP 

SW6 TO INITLZ NEW DISK 




Figure 9-9 (Part 1 of 2). Operating procedure for DCIP compare function 
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Compare more cartridges 




1. 


Change cartridges or packs 
and ready the disk drives, 
if necessary. 


Yes 




Turn off all console entry 




2. 






switches. 




3. 


Turn on console entry 
switch 5. 




4. 


Press PROGRAM START. 













Perform a "Cold Start 
Procedure" (see Chapter 
7) to make the system 
operational. 



Yes 



Reload the DCIP 
Program (Figure 9-3). 



If one of the DCIP functions other than 
CMP is selected, this message is printed: 

CMP OPTION USED . . . RELOAD DCIP 



Figure 9-9 (Part 2 of 2). Operating procedure for DCIP compare function 
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paper tape reproducing procedure 

PAPER TAPE REPRODUCING PROGRAM 

This program, available only with the paper tape system, copies information from one 
paper tape onto another. The program reads and punches characters with no intermediate 
conversion. 

The materials that you need to reproduce paper tapes are: 

• The Paper Tape Reproducing Program tape, BP18 

• The tape being reproduced 

• Blank tape 

Figure 9-10 is the operating procedure for the stand-alone paper tape reproducing program. 



Load the paper tape reproducing 
program, BP1 8 

1. Insert tape BP18 in the paper 
tape reader. 

2. Position under the read star- 
wheels one of the delete 
codes beyond the program ID. 

3. Move the console mode 
switch to RUN. 

4. Press I MM STOP on the 
console. 

5. Press RESET on the console. 

6. Press PROGRAM LOAD on the 
console. 



7. Remove BP18 from the paper 
tape reader. 



Ready a tape to be reproduced 

1 . I nsert the paper tape that is to 
be reproduced. 

2. Position under the read star- 
wheels one of the delete codes. 




A2 



The program is read into core storage, and 
the system waits with /1 11 1 displayed in 
the ACCUMULATOR. 



Figure 9-10 (Part 1 of 4). Paper tape reproducing operating procedure 
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Ready a blank tape 

1. Insert the blank tape in the 
paper tape punch. 

2. Press the DELETE key on the 
punch and hold down to punch 
several inches of delete codes 
in the tape. Do not release the 
DELETE key. 

3. With the DELETE key held 
down, press the FEED key and 
hold down to punch a header 
of sufficient length. 

4. Release the FEED key before 
the DELETE key. 



Start the paper tape reproduction 
operation 

Press PROGRAM START on the 
console. 



3> 




Yes 



Temporarily interrupt the tape 
reproducing program 

1. Press PROGRAM STOP on 
the console. 

2. Press PROGRAM START 
on the console to continue. 




Figure 9-10 (Part 2 of 4). Paper tape reproducing operating procedure 
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<TJ 



I 

I The paper tape reproducing 
I program continues until either 

the paper tape reader or punch 

becomes not ready. 



1 




Punch 



Reader 



/2222 displayed in the ACCUMULATOR 
indicates that the paper tape reader is not 
ready. 

/3333 displayed in the ACCUMULATOR 
indicates that the paper tape punch is not 
ready. 



Ready the paper tape punch 

1 . Insert a blank tape in the paper 
tape punch. 

2. Punch several inches of delete 
codes and a header. 

3. Press PROGRAM START on 
the console keyboard. 



B2 





Ready the paper tape reader 

1 . Insert the next tape to be 
reproduced. 

2. Position, under the read star- 
wheels, one of the delete 
codes. 

3. Press PROGRAM START on 
the console keyboard. 



^ 



Figure 9-10 (Part 3 of 4). Paper tape reproducing operating procedure 
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Finish procedure 

1 . Punch a trailer of delete codes 
in the output tape. 

2. Remove the tapes from the 
paper tape reader and punch. 








Perform the "Cold Start 
Procedure" in Chapter 
7 to make the monitor 
system operational. 





V 



n 



An unlimited number of tapes can 
be reproduced with this procedure. 
Be sure to punch a trailer and 
header in the output tape after 
each tape is reproduced. This is 
done so that the output tape can 
be cut apart after the reproducing 
procedure is completed. 



I_ 



V 



Figure 9-10 (Part 4 of 4). Paper tape reproducing operating procedure 
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STAND-ALONE PAPER TAPE UTILITY PROGRAM (PTUTL) 

This program, available only with the paper tape system allows you to enter records from the 
the 1 134 Paper Tape Reader or the console keyboard. Program output is to the 1055 
Paper Tape Punch and/or the console printer. This program is also included as an executable 
program in the Monitor System Library (see Chapter 4). 

The materials that you need to use the PTUTL program are: 

• The PTUTL (Paper Tape Utility Program) tape, BP17 

• Blank tape if output from the PTUTL program is to be punched into tape 

• Previously punched tape if they are being changed 

Figure 9-11 is the operating procedure for loading the stand-alone PTUTL program, and 
Figure 9-12 is the operating procedure for using both the stand-alone PTUTL and the 
PTUTL mainline program from the system library. 



Load the PTUTL Program, BP17 


1. 


Insert the PTUTL tape, BP17, 
in the paper tape reader. 


2. 


Position one of the delete 
codes beyond the program 
ID under the read starwheels. 


3. 


Move the console mode 
switch to RUN. 


4. 


Press I MM STOP on the 
console. 


5. 


Press RESET on the console. 


6. 


Press PROGRAM LOAD on 
the console. 


7. 


Press PROGRAM START to 
finish the reading of PTUTL. 


8. 


Press PROGRAM START 




again. 






I Figun 


J 9-12 



The core image program is read into core 
storage, and the system waits with /006C 
displayed in the ACCUMULATOR. 

When the reading of BP17 is complete, 
the system waits with /00C9 in the 
ACCUMULATOR. 

The system waits with /1 1 1 1 displayed 
in the ACCUMULATOR. 



Figure 9-11. Loading the stand-alone PTUTL tape 
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System 
library 



Stand-alone 



J The system halts with /1 1 1 1 ' 

• displayed in the ACCUMULATOR 



Keyboard 



Console printer 



^ 



Read system library version of 
PTUTL into core 

1. Insert the tape that includes 
the // XEQ PTUTL control 
record. 

2. Press PROGRAM START on 
the console keyboard. 




Ready the paper tape reader 

1. Insert the source tape. 

2. Position under the read star- 
wheels one of the delete codes. 




Ready the paper tape punch 

1 . Insert a blank tape in the 
paper tape punch. 

2. Punch several inches of delete 
codes and a header. 



Figure 9-12 (Part 1 of 4). PTUTL operating procedure 
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^ 



Make changes and/or additions 

t , Turn on the appropriate 
console entry switches to 
perform the PTUTL functions 
you want. 



2. Press PROGRAM START. 



m 



Console entry 


PTUTL function 


switch on 


performed 





Print record after 




reading 


1 


Read records from the 




paper tape reader 


2 


Accept keyboard inpul 


3 


Punch records on the 




paper tape punch 


14 


Wait after punching 




with /3333 in the 




ACCUMULATOR 


15 


Wait after printing 




with /2222 in the 




ACCUMULATOR 



All other console entry switches must be off. 



Figure 9-12 (Part 2 of 4). PTUTL operating procedure 
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The indicated functions are 
performed. 



1 
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PTUTL operating procedure 



If you want to omit a record just read and 
printed (switches 0, 1, and 15 on) from an 
output tape, do not change the switches 
and press PROGRAM START again. 

A record just read and printed (switches 0, 
1, and 15 on) is replaced by keyboard input 
if you turn on console entry switch 2 just 
before pressing PROGRAM START. 

The system subroutine TYPEO is used by 
PTUTL during keyboard input. These 
operating features of that subroutine apply: 

1 . An input record cannot exceed 80 
characters. 



l_ 



rr> 



2. Pressing the backspace key (- 
the last character entered. 



■) cancels 



3. Pressing ERASE FIELD cancels the 
entire record so you can reenter the 
record. 

4. Pressing EOF indicates that input of a 
record is complete. 



Figure 9-12 (Part 3 of 4). PTUTL operating procedure 
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A4 





No 




Yes 



Finish procedure 

1 . Turn off all console entry 
switches. 

2. Press PROGRAM START. 




Stand- 
alone 



Perform the "Cold Start 
Procedure" in Chapter 7 
to make the monitor 
system operational. 



System library 



Continue with next monitor job 

1 . Insert the tape for the next 
monitor job to be processed. 

2. Press PROGRAM START. 



Figure 9-12 (Part 4 of 4). PTUTL operating procedure 
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PTUTL Example 

This example shows you how to change previously punched records. Assume that the 
following records are punched in a tape: 

// JOB 

// * (comments record) 

//ASM 

//DUP 

ASM control records 

Source program 

You have decided to alter the comments record, insert a // PAUSE control record after the 
comments record, and delete the // DUP control record. The procedure you follow is: 



Your action 



Load into core storage and start 
execution of PTUTL. 



System response 

The system waits with /1 1 1 1 displayed in the 
ACCUMULATOR on the console display 
panel. 



2. Insert the source tape and ready 
the paper tape punch and the 
console printer. Punch a leader 

of delete codes in the output tape. 

3. Turn on console entry switches 1, 
3, and 14. 

4. Press PROGRAM START. 



The // JOB control record is read, punched 
in the output tape, and the system waits 
with /3333 in the ACCUMULATOR. 



In addition to the console entry 
switches already turned on, turn 
on 0,2, and 15. 

Press PROGRAM START. 



7. Press PROGRAM START again. 



The comments record is read and printed on 
the console printer. The system waits with 
/2222 in the ACCUMULATOR. 

The K.B. SELECT indicator on the console 
keyboard turns on and /3333 is displayed in 
the ACCUMULATOR. 



9. 



Enter the new comments record 
in the proper format. 

Press EOF. 



The new comments record is punched in the 
output tape; the system waits with /2222 in 
the ACCUMULATOR. 



10. Turn off console entry switch 1 . 

11. Press PROGRAM START. 

12. Enter the // PAUS control record. 

13. Press EOF. 



The K.B. SELECT indicator turns on, and 
/3333 is displayed in the ACCUMULATOR. 



The // PAUS control record is punched in 
the output tape; the system waits with /2222 
in the ACCUMULATOR. 



14. Turn off console entry switches 
0,2, and 15. 
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Your action 



System response 



15. Turn on console entry switch 1 . 
(Switches 3 and 14 should still 
be on.) 

16. Press PROGRAM START. 



17. Turn off all console entry 
switches except 1 . 

18. Turn on console entry 
switches and 15. 



The // ASM control record is read and 
punched in the output tape; the system 
waits with /3333 in the ACCUMULATOR. 



19. Press PROGRAM START. 



The // DUP record is read and printed on the 
printer but is not punched in the output tape. 
The system waits with /2222 in the ACCUM- 
ULATOR. 



20. Press PROGRAM START again. 



The next input record is read into the I/O 
buffer, overlaying the // DUP control record. 
(The // DUP control record is deleted.) 



21. Turn off console entry ^switches 
Oand 15. 

22. Turn on console entry switch 3. 
(Switches 1 and 3 should be on.) 



23. Press PROGRAM START. 



The remainder of the source tape is read in 
and reproduced in the output tape, record 
for record. The paper tape reader not-ready 
wait (/3005 in the ACCUMULATOR) occurs 
when all of the source tape has been repro- 
duced. 



24. Turn off all console entry 
switches. 



25. Press PROGRAM START. 



A CALL EXIT is executed. 
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Chapter 10. Remote Job Entry Program 



The remote job entry (RJE) feature of the IBM System/360 Operating System allows you 
to enter jobs into the operating system job stream via communication lines from terminals 
(work stations) at distant locations. RJE includes a unique job entry control language 
(JECL) that controls operations of the work station. For a general description of RJE, RJE 
terminology, and JECL, see the publication IBM System/360 Operation System Remote 
Job Entry, GC30-2006. 

This chapter provides information for operators and programmers using an 1 1 30 as a re- 
mote work station in an RJE environment, and describes machine and device requirements, 
input and output at the work station, communication considerations, operating procedures, 
user-exit subroutine, and generation and loading of the work station program. 

Messages printed by the RJE program are included in Appendix A. 

MACHINE AND DEVICE REQUIREMENTS 

The RJE program for an 1 130 work station requires at least an 1131 Central Processing 
Unit, Model 2B, a card reader, and a line printer (with a 120 character print line). The 
1 130 computing system must be connected to a 600-2400 bit-per-second line via a synchro- 
nous communications adapter in binary mode. 

An optional compress-expand feature requires 16K words of core storage if the 1 132 
Printer is used, or 8K words if the 1403 Printer is used. The compress-expand feature 
eliminates blanks from data transmitted across the communication line. 

An IBM-supplied RJE exit subroutine stores data from your IBM System/360 Operating 
System job on an 1 130 disk. The data thus stored can be processed by other programs 
that you write. You can write an exit subroutine to replace the one supplied by IBM and 
direct the output from your System/360 job to any available 1 130 I/O device. When you 
write an exit subroutine, an 1 130 system with 16K words of core storage is required. 
Information about writing an exit subroutine is included under "User-Exit Subroutine" 
in this chapter. 

COMMUNICATION CONSIDERATIONS 

The 1 1 30 RJE Work Station Program provides the standard RJE communications interface 
to the System/360 Operating System (the operating system) RJE communications network 
by using the SCAT2 and SCAT3 binary synchronous communications subroutines. These 
subroutines are stored in the monitor system library and provide the following capabilities: 

• Point-to-point contention operation on leased lines 

• Point-to-point operation on switched lines 

• Multipoint operation with the 1 1 30 system as slave station 

All data transmissions between the operating system and an 1 1 30 work station are in 
EBCDIC transparent mode, except headings, which are transmitted in normal mode. The 
1 130 RJE Work Station Program communicates with the operating system in 3 modes: 
monitor, receive, and transmit. 

monitor mode The work station program enters monitor mode from either transmit or receive mode. In 

this mode, the work station waits for output from the communication line or input from 
the card reader or console keyboard. 
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receive mode 



transmit mode 



The work station, program enters receive mode when output is available for the work 
station. In this mode, the work station program reads output from the line until it receives 
an end-of-data indication from the operating system or until the operator discontinues the 
output (presses PROGRAM STOP on the console keyboard). The work station program 
then enters monitor mode. 

This mode is entered at work station startup and when input is available at the work station. 
The work station program writes to the communication line in transmit mode. Transmis- 
sion to the line continues until a logical end of file (the . . null command) or an RJEND 
command is encountered in the input stream. (RJE work station commands are described 
in the publication IBM System/360 Operating System Remote Job Entry, GC30-2006.) 

If monitor mode is entered from transmit mode with a logical end-of-file indication caused 
by a . . null command, transmit mode is not entered again until operator intervention 
indicates that more input is available. 

Communication Considerations for Switched Lines 

The operating system disconnects the line if a switched communication line is inactive for 
a period of approximately 21 seconds. This occurs when: 

• A work station output device error is not corrected within the specified time. 

• A user-written exit subroutine fails to return control within the specified time (see 
"User-Exit Subroutine" in this chapter). 

• An operator response to an RJE message is not entered within the specified time. 

Note. Some RJE messages allow approximately 3 minutes for an operator response. The 
RJE Work Station Program operator messages are included in Appendix A. 



INPUT AT THE WORK STATION 



card input 



keyboard input 



disk input 



Input to the RJE program is accepted from the card reader, the keyboard, and from one 
or more disk storage units. 

System/360 jobs (with or without JED statements) and job entry control language (JECL) 
statements are accepted as input from the card reader. The first JECL statement at work 
station startup must be an RJSTART command submitted from the card reader. After 
that, JECL statements are not sequence checked. 

The only valid input from the keyboard is work station commands and responses to RJE 
operator messages. Input is accepted from the keyboard between jobs being entered from 
the card reader when the operator indicates that he has input to submit (only in a 
point-to-point line configuration). The 1 130 RJE Work Station Program checks this input 
only for the JECL identifier (. . . followed by at least one blank). 

A special 1 130 RJE control card is used to specify that input is from one or more disk 
storage units. This control card, . . DATA, is described under "JECL for the 1 130 Work 
Station" in this chapter. A . . DATA control card can be placed in the card input stream 
or on disk. 1 1 30 work station commands are placed on disk with the STOREDATAE 
operation of the Disk Utility Program (see "DUP Control Records" in Chapter 5). 

The . . DATA control card contains information that allows the RJE program to read input 
alternately from the card reader and from the disk. Data to be read from disk must be 
stored there prior to RJE processing by you. This data must be stored in 80-character 
records in 8-bit packed code (EBCDIC) format (eight records per disk sector) in consecutive 
sectors. Data can be stored on disk by: 

• Using the STOREDATAE function of the Disk Utility Program prior to executing the 
RJE Work Station Program 



Specifying that output from a job be placed on a disk 
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changed LOGON 
affect on input 



After the information on disk has been read to the end of file (see "JECL for the 1 130 
Work Station" in this chapter for a description of the end-of-file indications), the RJE 
program resumes reading from the card reader. 

Note. Although work station commands can be submitted from disk, only System/360 
jobs and input data sets are recommended to be placed on disk in order to simplify work 
station operation. 

If you are logged on because of a LOGON command entered from the card reader or disk, 
and you enter a new LOGON command from the keyboard, all pending input meant for 
the previous LOGON from the card reader and/or disk is submitted under the new LOGON 
ID entered from the keyboard. To prevent this, the LOGON that was entered from the 
card reader or disk must be resubmitted as the last command entered from the keyboard 
before card or disk input is continued. 



Generation of the 1130 RJE Work Station Program 

The 1 130 RJE Work Station Program is supervised by the 1 130 Disk Monitor System 
Version 2. You store the IBM-supplied RJE program in the user area by using the 
*STORE function of the Disk Utility Program (DUP). You then define your work station 
configuration by executing a program that is part of the RJE program and that is named 
RJE00. This program reads a data card that you code with the following optional parame- 
ters: 



LINE=P 
LINE=S 
_LINE=M (x,y) 



: 



,UEXIT=(address1, address 2)"| [~,COMPRESS=NO ~| 
UEXIT=USER J |_,COMPRESS=YESJ 



LINE=P specifies that the work station is connected over a point-to-point leased 
line. 

LINE=S specifies that the work station is connected over a point-to-point switched 
line. 

LINE=M (x,y) specifies that the work station is connected over a multipoint line, 
where 

x is the polling character 
y is the selection character. 

UEXIT=(address 1 , address 2) specifies the starting and ending addresses of the area 
on disk that has been reserved for storing data directed to the user exit, where 
address 1 is the starting address 
address 2 is the ending address. 

The addresses must be in the form xaaa, where 
x is the logical disk drive number from to 4 
aaa is the sector address. 

This area must be reserved prior to executing the RJE Work Station Program. 

UEXIT=USER specifies that the IBM-supplied user-exit subroutine is replaced by 

one that you have written. 
COMPRESS=NO specifies that blanks are not to be eliminated from data transmitted 

across the communication line. 

COMPRESS=YES specifies that blanks are to be eliminated from data transmitted 
across the communication line. 
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work station RJE 
generation 



These optional parameters, can be used in any order, and if more than one of them is speci- 
fied, they must be separated by commas. The default options assumed when the RJE Work 
Station Program is first generated, are a leased point-to-point contention line, no reserved 
disk space for user-exit output, and no elimination of blanks. When this data card is used 
to redefine the RJE configuration and the LINE and/or COMPRESS parameters are omit- 
ted, the program assumes the last parameters specified as the current line configuration; 
however, if the UEXIT parameter is omitted, space is not reserved on disk for user-exit 
data. 

The RJEOO program saves the information specified by these parameters in a disk data 
file reserved for common constants used by the RJE program. 

The following example shows the coding for generating the 1 130 Work Station Program: 



1 5 10 15 20 25 30 35 40 45 50 


n job 


TL_n&juE& ___„__ 


LINE*M(A>B),UEXIT'-(2lM i ZZB£),C0MPJlESS--YES 







The first 2 cards are the monitor control records needed to load the program that proces- 
ses the information in the third card. The third card specifies that the RJE work station 
is on a multipoint line, that its polling character is A, and its selection character is B, and 
that it will compress input to the operating system program and expand output from the 
operating system program. For storing data that is directed to the user exit, an area is 
reserved on disk drive 2 starting at sector 1B0 and ending with sector 2B0. 
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JECL FOR THE 1 130 WORK STATION 



The job entry control language (JPXL) used with the 1 130 work station is described under 
"Job Entry Control Language" in the publication IBM System/ 360 Operating System 
Remote Job Entry, GC30-2006, with one addition/The additional command allows you 
to alternate the source of input between disk and cards. The format of this command is: 

ID Operation Operand 

DATA DMS/,C ( 

|, D, xaaa [,bbbb]j 

is the JECL identifier and must be in columns one and two. 

DATA must be preceded and followed by at least one blank. 

DMS identifies the c:ird as an 11 30 JECL command. 

C indicates that input follows from cards. 

D indicates that input follows from disk, where 

x is the logical disk drive number, 
aaa is the disk sector address (hexadecimal), and 
bbbb is a hexadecimal number specifying the length of the disk data 
file in blocks, two blocks per 80-character record (16 blocks per sector). 

If D is specified, the logical disk drive number and the sector address are required, but the 
block count is optional. When the block count is not specified, you must indicate the end 
of data on disk by using a . . DATA command to transfer reading data either to the card 
reader or to another disk area. The optional block count for disk data causes the RJE pro- 
gram to read data from disk until the specified number of blocks has been read, unless an 
end-of-file indicator (. . DATA command, . . null command, or . . RJEND command) 
is read first. When the specified number of disk blocks is read or an end-of-file indicator 
is read, reading from disk stops, and input continues from the card reader. 

Data on disk must start at the beginning of a sector and continue on to consecutive sectors 
if necessary. Each sector must contain eight 80-character records in 8-bit code (EBCDIC), 
except the last sector, which can be less than 320 words. 

The . . DATA command is not recognized between a // DD DATA statement and the 
corresponding /* in an IBM System/360 Operating System job. 

Note 1. Restart problems may occur if jobs are chained on disk (that is, referenced by 
only one . . DATA command from the card reader), and a line error occurs that requires 
the work station to resubmit the RJSTART command and all unacknowledged input. To 
avoid these problems, reference each job with a . . DATA command from the card reader. 

Note 2. You must specify the cartridges that are used during RJE on a monitor JOB 
control record. A logical drive number as specified on the JOB control record must be 
used in the . . DATA command. 
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End-of-File Indicators 

The end-of-file indicator on disk is the . . DATA command. This command passes reading 
to another disk file or to the card reader. The end-of-file indicators for the card reader are 
the . . null command and the . . RJEND command. 

Note. The . . null command and the . . RJEND command can be read from disk and have 
the same effect as if they were read from the card reader; that is, reading is stopped both 
from the card reader and from the disk. 



OUTPUT TO THE WORK STATION 

Output to the work station consists of job output and messages. Job output, consisting of 
SYSOUT data sets created by the job, is directed to the printer, the card punch, or a 
user-exit subroutine. Each job output data set is directed to the device associated with 
the SYSOUT class specified in the DD statement for that output data set. RJE system 
messages are directed to the console printer or the line printer. 

You can specify carriage control for printer output with a special control character as the 
first byte of each data record; either System/360 machine code or ASA control characters 
are allowed. Output is single spaced with a skip to channel one when channel 12 is sensed 
in the carriage tape and control characters are not specified or are not recognized by the 
equipment. 

You can specify stacker-select for punched output, if available, by specifying a special 
control character as the first byte of each data record; either System/360 machine code or 
ASA control characters are allowed. Stacker one is selected if control characters are not 
specified or are not recognized by the equipment. 

The 1 130 RJE Work Station Program includes a user-exit subroutine that accepts data sets 
directed to it and writes them on disk in an area that you reserve prior to executing the 
RJE program. 

The IBM-supplied user-exit subroutine can be replaced by an exit subroutine that you 
write. Your subroutine can process data directed to the user-exit and write output to any 
available device (see "User-Exit Subroutine" in this chapter for more detailed information). 

If you do not write a user-exit subroutine, the IBM RJE program user-exit subroutine 
writes data sets consecutively on disk, each data set beginning at a disk sector boundary. 
However, when the RJE program is reloaded at a later time, data sets previously written 
on disk are unprotected and may be destroyed since any user-exit data sets written after 
RJE is reloaded begin at the first sector of the reserved area. For each data set written, 
information is printed on the principal printer. 

The primary output device for messages is the console printer. The secondary device is 
the line! printer. You select the line printer as the message device by turning on console 
entry switch 0. 

Note. Data directed to disk can be referenced later by a . . DATA command. To do this, 
you miist define your data set as fixed blocked or unblocked with a logical record length 
of 80 bytes and no control characters. 
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Discontinuing and Continuing Output 

Job output is discontinued by operator intervention. The operator presses the console 
keyboard PROGRAM STOP key, then the PROGRAM START key, and the system prints 
the J90 OCR=message. The operator then responds by typing D to discontinue output. 

Output is also discontinued by the 1 1 30 RJE Work Station Program when a user-exit 
subroutine is not present for output directed to the user-exit and one of the following 
errors occurs: 

• An area is not reserved for user-exit output. 

• The reserved output area is exhausted. 

• An unrecoverable disk write error occurs. 

These errors are indicated to the operator in error messages. To correct the first 2 
problems, terminate the RJE program by submitting an RJEND command (after all 
pending input has been transmitted), and then specify a reserved area on disk by executing 
the RJE00 program (see "Generation of the 1 130 RJE Work Station Program" in this 
chapter). Reload the RJE program (see "Work Station Startup" in this chapter), and dis- 
continue output immediately by operator intervention. Then, enter a CONTINUE com- 
mand with the BEGIN operand; otherwise, data is lost. 

To correct the third error, enter a CONTINUE command with the BEGIN operand. The 
data set is then written again, starting at a new sector. 

In general, once output is discontinued, no other output is transmitted to the work station 
until the disposition of the discontinued output is specified by a CONTINUE command. 

Other conditions that cause output to be discontinued are: 

• A change in form number is found at the operating system 

• The work station program requests discontinuation 

• An irrecoverable error occurs during an output operation 

If either of the first 2 conditions occurs, you specify the disposition of the output with 
the CONTINUE command. The third condition requires error recovery procedures. 
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User-Exit Subroutine 



The operating system RJE program passes physical records to the user-exit subroutine, 
either the one that is supplied with the RJE program or the one that you write to replace 
it. This section describes the programming requirements that must be included in your 
subroutine. 

The subroutine entry point must be named UEXIT, and the subroutine must be stored in 
the user area (after deleting the resident module with the same name). You should save 
and restore the contents of registers 1 and 3 at the beginning and end of your subroutine. 
To specify that your subroutine be executed, use the UEXIT=USER parameter in the 
configuration data card used to generate the RJE program. 

The user-exit subroutine gains control when output becomes available for it. Upon entry, 
the return address is stored in the first word of the subroutine, and index register 1 con- 
tains the address of a parameter list that describes the output being passed to the subrou- 
tine. This parameter list with the following format is aligned on an even word boundary. 



+0 

+1 
+2 
+3 
+4 
+5 



Starting address 



Ending address 



Logical record length 



Control character type 



Record format 



End of data 



starting address 



ending address 

logical record 
length 

control character 
type 



Data characters are packed 2 characters per 1 1 30 word. The blocks start on a word 
boundary, but they end in the middle of a word if they contain an odd number of charac- 
ters. 

The starting address is the 1 1 30 core storage address of the block of data being received 
from the operating system. This address has the following format: the 15 leftmost bits 
are the core storage address, and the rightmost bit indicates whether the data starts in the 
first 8 bits or the second 8 bits of the first word at that location. Zero indicates that data 
begins in bit zero at the starting address; one indicates that data begins in bit 7 at the 
starting address. 

This is the ending address plus one of the data block being received from the operating 
system. The format of the ending address is the same as the starting address. 

When fixed length records are being passed, this word contains the length of logical records. 
If variable or undefined records are being passed, this word is zero. 

This is a code that indicates the type of control characters being used. 

0- No control characters 

1— IBM System/360 machine code 

2- ASA code 
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record format 



end of data 



OPERATING PROCEDURES 



This word contains a code that indicates the type of data records being transmitted. 

1— Fixed unblocked 
2— Fixed blocked 
3— Variable unblocked 
4— Variable blocked 
5— Undefined 

When this word is zero, the end of data is indicated. 

The user-exit subroutine that you write must use the same I/O subroutines that the 1 130 
RJE program uses. 



Device 
1132 Printer 


I/O Sub 
PRNT2 


1403 Printer 


PRNT3 


1442, Model 6 or 7, 


CARD1 


Card Read/Punch 




2501 Card Reader 


READ1 


1442, Model 5, Card Punch 


PNCH1 


Console Keyboard 


TYPEO 


Disk 


DISKZ 



Note. Your user-exit subroutine must return control to the RJE program within approxi- 
mately 21 seconds in order to maintain communication with the operating system. 



This section includes information about beginning and ending RJE jobs, as well as infor- 
mation about console keyboard operation during execution of the RJE program. 

Work Station Startup 

To start RJE operation, the 1 130 RJE Work Station Program must be loaded into core 
storage. This program is loaded by specifying the program name RJE in a monitor XEQ 
control record. The work station program then loads into core the programs and subrou- 
tines from the system library that correspond to the configuration of your system. To 
load these programs and subroutines, the work station program uses information stored 
on disk by the RJE generation program and information in the disk monitor system that 
specifies the principal I/O devices. 

Note. The console printer cannot be the principal print device. 

The following example shows the coding to start and end the execution of the RJE pro- 
gram: 



15 10 15 20 25 30 35 40 45 50 
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J\ 





B 
































































































L 


1 


*l 


E 


Q 




£ 


J 


£ 


























































































m 


g 


J 


S 


T 


A 


Z 


T 




































































































































































































JECL statements and operating system job| 




























































































































































# 


2 


<J 




H 


D 




































































































n 









































































































































































































Remote Job Entry Program 10-9 



The RJSTART command must be the first RJE command entered. An error message is 
printed when the RJSTART command is not the first entered. To continue, place an 
RJSTART command in the card reader, and press START on the card reader and 
PROGRAM START on the console keyboard. If the work station is connected to the 
operating system over a switched line, a message to call the central system is printed. 

The RJSTART command is followed either by input to be sent to the operating system 
or by an end-of-file indicator (see the following section "The Null Command"). When 
contact is made with the operating system, the RJSTART command and all other com- 
mands, if any, before the first job entry (the System/360 job with or without the JED 
card) or before the end-of-file indicator, are transmitted. 

The work station is logically attached to the RJE system when the RJSTART command 
is acknowledged. All pending messages and immediate job output is received at the work 
station. All pending input, if any, is transmitted, or the work station program waits for 
output from the operating system. The sequence of events is system dependent. 

The Null Command 

The null command is provided for the 1 130 work station to indicate the end of file on the 
card reader. This command is coded with the identifying characters (. .) in columns 1 and 
2. All other columns remain blank. The null command must be the last card in the input 
stream. When this command is read, the card reader is effectively closed even though 
communication is maintained with the operating system. 

Operator intervention is required to resume input from the card reader after the null 
command has been read (see the following section "Console Keyboard Procedures" in 
this chapter). 

Console Keyboard Procedures 

Four RJE functions that you can start from the 1 130 console keyboard are: 

• Indicating card reader input 

• Indicating keyboard input 

• Discontinuing output 

• Initiating an abnormal closedown of the RJE program 
You start any of these by: 

1. Pressing PROGRAM STOP on the console keyboard 

2. Pressing PROGRAM START 

The message J90 OCR= is printed on the console printer. Your response to this message 
indicates the function to be performed. The replies to this message are listed with other 
RJE messages in Appendix A. 

If you type B when message J90 is printed, keyboard input is indicated. The system prints 
the message J93 PROCEED and the K.B. SELECT light on the console turns on when the 
RJE program can service keyboard input. You can then enter commands, each ended by 
pressing EOF. After entering the last command, press EOF an extra time to indicate the 
end of keyboard input; the last EOF must not be entered until the keyboard select 
(K.B. SELECT) light turns on. 

You indicate abnormal closedown of the RJE program by typing T in response to the 
J90 message. This reply causes the work station program to be terminated and the con- 
tents of core storage to be printed. 
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The operating system notes an error condition and logically detaches and disconnects 
the work station if it is connected over a switched line. The work station is logically 
detached if connected with the central system over a leased or multipoint line and a line 
operation is in progress when you request termination through the keyboard. Also, if the 
RJE program is not reloaded, the work station is logically detached if the central system 
tries to contact the work station while the communication line is idle. 

Note 1. If the console keyboard procedure is used when the console printer is already in 
use, the message is not printed. However, the PROGRAM START key must be pressed 
to continue processing. 

Note 2. The INT REQ key cannot be used when the RJE program is being used. Pressing 
INT REQ prevents information in the skeleton supervisor that is modified by the RJE 
program from being restored. As a result, the disk monitor system may function improp- 
erly. 

Error Recovery Procedures 

Facilities are provided to recover from both communication errors and local device errors 
at the 1 130 work station. Operator intervention may be necessary to correct the condition 
causing the error. Error messages are printed when errors occur, except for a forms check 
error on the console printer. In the latter case, when the FORMS CHECK light on the 
console keyboard turns on, you must turn on console entry switch 1 to retry the operation. 
Communications on the line are maintained only if the error is corrected within approxi- 
mately 21 seconds. If errors cannot be corrected within the time allowed, the operating 
system logically detaches the work station from the RJE system. In addition, if the work 
station is connected over a switched line, the operating system breaks the connection. 

RJE messages and error messages are described in Appendix A. 

Unrecoverable communication errors result when communication is lost with the operating 
system because of either line errors or a failure at the central system. In either case, the 
work station is logically detached by the operating system and restart procedures are 
necessary. The response received when restart procedures are executed indicates whether 
the error is due to a line error or a failure at the central system. 

Restart Procedures 

Restart procedures must be used when the message J51 LINE ERROR OCR= is printed. 
These procedures involve regaining communication with the operating system and sub- 
mitting an RJSTART command and are indicated when you type A in response to the 
J5 1 message. A complete description of this message is included in Appendix A. 

The restart procedures cause output to automatically resume either where it was interrupted 
(after a line error) or at the beginning of the job (after a failure at the central system). If 
output is being written to disk at the time of a line error you should immediately discon- 
tinue the output and enter a CONTINUE command with the BEGIN operand. 

If output is being punched in cards or printed at the time of a line error, a duplication of 
the last transmission block may occur when the program is restarted. The printer skips to 
a new page when RJE is restarted if the data set being printed is without control characters. 

If a line error occurs during an input operation, all unacknowledged input must be resub- 
mitted. Furthermore, a line error in the middle of a job implies that the whole job must 
be resubmitted from the beginning. Before the job can be transmitted again with the same 
job name, the old job that was partially sent to the central system must be deleted. Deletion 
is sometimes automatic, but if not, you must delete the job. 

Note. The work station restart procedure after a central system failure is similar to the 
restart procedure after an unrecoverable line error. The primary difference is that after 
a system failure, an inprocess data set is rewritten from the beginning rather than from the 
last valid block. 
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Messages Sent to Work Stations 

Detailed descriptions of all messages sent to an 1 130 work station from the operating 
system RJE program are in "Messages Sent to Work Stations" in the publication IBM 
System/ 360 Operating System Remote Job Entry, GC30-2006. 



RJE Program Console Entry Switches 

Three console entry switches are used by the RJE Work Station Program 

Console Entry Switch Console Entry Switch Function 

(off) Indicates that RJE messages from the central 

system are printed on the console printer 

(on) Indicates that RJE messages from the central 

system are printed on the line printer 

1 If on when the console printer becomes not 

ready, the operation is retried. 

2 If on, the error statistics accumulated by the 

subroutines SCAT2 or SCAT3 are printed on 
the console printer at the end of the RJE run. 

Error Statistics 

Error statistics are accumulated during an RJE run by the subroutines SCAT2 and SCAT3. 
If you want these error statistics printed, turn on console entry switch 2 prior to the end 
of the RJE run. 

The error statistics accumulated during the last RJE run can be printed if you execute a 
program called RJSTA that is a part of the RJE program package. 
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Appendix A. Monitor System Operational and Error Messages 



This appendix includes all monitor system operational and error messages and codes, 
except for the messages for the stand-alone utility programs. The messages for these 
programs are included in Chapter 9 with the descriptions of the programs. 

The messages in the appendix are ordered alphabetically by an error prefix letter. Unless 
otherwise noted, the messages are printed on the principal printer. All monitor system 
control records are also printed on the principal printer. 

The messages, in sequential order, are: 



Error 




code 


Figure 


prefix 


number 


- 


A-1 


A 


A-2 


C 


A-3 


C 


A-4 


D 


A-5 


E 


A-6 


G 


A-7 


J 


A-8 


J 


A-9 


M 


A-10 



M 



A-11 



— 


A-1 2 


Note 


A-1 3 


R 


A-14 


S 


A-15 



Figure title including program name 

Assembler error detection codes 

Assembler error messages 

FORTRAN error codes 

FORTRAN error messages 

DUP/MUP error messages 

System loader error messages 

SGJP error messages 

RJE work station error messages 

RJE work station messages 

Phase 1 . System control record program error 
messages 

Phase 2. System control record program error 
messages 

SYSUP - DCOM update error messages 

RPG compiler error notes 

Core load builder error messages 

Auxiliary supervisor error messages 

Monitor system mainline programs messages 
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Assembler 

error codes and 
messages 

ASSEMBLER ERROR CODES AND MESSAGES 

At the completion of an assembly, the following messages are printed on the principal 
printer: 

XXX OVERFLOW SECTORS SPECIFIED 

XXX OVERFLOW SECTORS REQUIRED 

XXX SYMBOLS DEFINED 

XXX ERROR(S) AND XXX WARNING(S) FLAGGED IN ABOVE ASSEMBLY 

If LIST DECK or LIST DECK E control records are used, the error detection codes listed 
in Figure A-l are punched in columns 18 and 19. These error detection codes are also 
printed if the program is listed. Figure A-l includes the error flag (code), your coding 
violation that caused the error, and the assembler action. 

For the first error detected in each statement, the assembler stores and then punches (or 
prints) the appropriate code; the code for a second error is stored, overlaid by any subse- 
quent errors, and the code for the last error detected is punched (or printed). Thus, if 
more than 2 errors are detected in the same statement, only the first and last are indicated 
in columns 18 and 19 when LIST DECK or LIST DECK E is used, or are printed when the 
program is listed. 

At the end of an assembly, a message is printed indicating the number of assembly errors 
detected in the source program (see the last of the assembly messages previously listed). 
Since no more than 2 errors are flagged per statement, the error count in the message 
may exceed the actual number of error flags. 

Assembler error messages are listed in Figure A-2. These messages include the message 
number and message, the cause of the error, and the action you must take to correct the 
error. 
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Assembler Error Codes 



Flag 

A 



Coding error 

Address error 

An attempt has been made to specify a dis- 
placement field, directly or indirectly, outside 
the range of -128 to +127. 

Condition code error 

A character other than +, -, Z, E, C, or O is 
detected in the first operand of a short 
branch statement or the second operand of 
a long BSC, BOSC, or BSI statement. 

Format code error 

A character other than L, I, X, or blank is 
detected in column 32; L or I format is 
specified for a statement that is valid only 
in short form, or I format is specified when 
not allowed. 



Assembler action 



The displacement is set to zero. 



The displacement is set to zero. 



The statement is processed as if L format were specified, unless 
the statement is valid only in short form. The statement is then 
processed as if X format were specified. 



M 



Label error 

An invalid symbol is detected in the label 
field. 

Multiply defined label error 

A duplicate symbol is encountered in the 
label field. 



Operation code error 

An operation code is not valid. 



An ISS, ILS, ENT, LIBR, SPR, EPR, or 
ABS is incorrectly placed. 

Warning flag 



Relocation error 

An expression does not have a valid 
relocation. 

An absolute displacement is not specified. 

An absolute origin is specified in a 
relocatable program. 

An absolute operand is not specified in 
a BSS or BES statement. 

A relocatable operand is not in an END 
statement of a relocatable mainline 
program. 



The label is ignored. 



The first occurrence of a symbol in the label field is used to define 
its value; subsequent occurrences of the symbol in the label field 
cause a multiply defined indicator to be inserted in the symbol 
table entry (bit of the first word). 



The statement is ignored and the address counter is incremented 
by 2. If the opcode is punched beginning in column 26, the 
character punched in column 26 will not appear in the listing. 

The statement is ignored. 



A possible problem code is detected; that is, a modify memory 
statement with a displacement of zero. 



The expression is set to zero. 

The displacement is set to zero. 
The specified origin is ignored. 

The operand is assumed to be zero. 

Columns 9 through 12 are left blank; the entry is assumed to 
be relative zero. 



The operand of an ENT statement is not 
relocatable. 



The statement is ignored. 
Figure A-l (Part 1 of 2). Assembler error detection codes 
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Assembler Error Codes 



Flag 
S 



w 



Coding error 

Syntax error 

An invalid expression (that is, an invalid 
symbol, adjacent operators, invalid con- 
stant) is used. 

An invalid character is used in a record. 



The main program entry 
specified as the operand 
statement. 



point is not 
in an END 



The syntax of an EBC statement is incor- 
rect (that is, a delimiter is not in column 
35, a zero character count). 

An invalid label is used ais an operand in 
an ENT or ISS statement. 

An operand label occursln more than 
one ENT statement. 

Tag error 

Column 33 contains a character other 
than blank, 0, 1, 2, or 3 instruction 
statement. 

Undefined symbol 

A symbol used in an expression is not defined. 

An x- or y-coordinate, or both, is not within 
the specified range; or an operand is invalid. 

A character other than R or I is in column 
32; or a character other than D or N is in 
column 33. 

An invalid condition is iri a conditional 
branch or interrupt order. 



Assembler action 



The expression is set to zero. 



If an invalid character is used in an expression, label, 
operation code, format, or tag field, additional errors 
may occur. 

Columns 9 through 12 are left blank; the entry is 
assumed to be relative zero. 

Columns 9 through 12 are left blank; the address 
counter is incremented by 17. 

The statement is ignored. 

All entries are built as usual. 



A tag of zero is assumed. 

The value of the expression is set to absolute zero. 
The operand is set to zero. 

The field is set to zero. 

The condition bits in the first word are set to zero. 



Figure A-l (Part 2 of 2). Assembler error detection codes 



A-4 



Assembler Error Messages 



Error number and message 



A01 



A02 



MINIMUM W.S. NOT 
AVAILABLE . . . 
ASSEMBLY TERMI- 
NATED 



SYMBOL TABLE OVER- 
FLOW . . . ASSEMBLY 
TERMINATED 



Cause of error 

The available working storage is 
less than the specified number of 
overflow sectors plus one. 



The number of sectors of symbol 
table overflow is greater than 
the number of overflow sectors 
available. 



Your response 

Do one of the following: 

1 . Reduce the specified number of overflow 
sectors (the number specified is zero if an 
♦OVERFLOW SECTORS control record 
is not used). 

2. If your system has more than one disk drive, 
use a monitor JOB control record to specify 
system working storage on the cartridge that 
has the most working storage available. 

Use an *OVERFLOW SECTORS control record 
to increase the number of overflow sectors for 
this assembly (maximum 32 sectors). 



A03 



DISK OUTPUT EXCEEDS 
W.S. 



A04 SAVE SYMBOL TABLE 
INHIBITED 



A05 XXX ERRONEOUS ORG, 
BSS.OR EQU STATE- 
MENTS 



A06 LOAD BLANK CARDS 



Intermediate output (pass 1) or 
final DSF output (pass 2) ex- 
ceeds the capacity of working 
storage less the specified number 
of overflow sectors. 

One of the following occurs 
when an *SAVE SYMBOL 
TABLE control record is used: 

1. The program is relocatable. 

2. The program contains 
assembly errors. 

3. The source program con- 
tains more than 100 
symbols. 

XXX is the number of ORG, 
BSS, BES, and/or EQU state- 
ments undefined in the first 
pass. At the end of pass 1, these 
statements are printed on the 
principal printer. 

If the error is due to forward 
referencing, the error is not 
detected during pass 2. 

A card containing a punched 
column between 1 through 71 
is read while a symbol table is 
being punched (*PUNCH SYM- 
BOL TABLE specified for this 
assembly). 



If this error occurs during pass 1, restart the 
assembly using an *TWO PASS MODE control 
record. 

If this error occurs during pass 2, see the cor- 
rective actions for message A01 . 



Add an ABS statement to your program and 
reassemble. 

Correct the program errors and reassemble. 
Reduce the number of symbols and reassemble. 



When forward references are attempted, correct 
them and reassemble the program. 



The system waits with /100F displayed in the 
console ACCUMULATOR. 

1. Press NPRO on the card reader. 

2. Place blank cards in front of the card just read 

3. Press reader START. 

4. Press console PROGRAM START. 

Note: If output is being punched on a 1442, 
Model 5, a punched card cannot be detected. In 
addition, the card punch may be damaged if an 
attempt is made to punch a hole where a hole 
already exists. 



Figure A-2 (Part 1 of 2). Assembler error messages 
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Assembler Error Messages 



Error number and message 

A07 ABOVE CONTROL 
STATEMENT 
INVALID 



A08 MACLIB UNDEFINED 



A09 PARAMETER LIST 

OVERFLOW . . . ASSEM- 
BLY TERMINATED 

A10 MACRO AREA 
OVERFLOW . . . 
ASSEMBLY 
TERMINATED 

A12 NEST LEVEL EXCEEDS 
20. . .ASSEMBLY 
TERMINATED 

A21 'LEVEL CONTROL 
STATEMENT 
MISSING 



Cause of error 

The control record option does 
not agree, character for charac- 
ter, with its valid format. 

An invalid library name is 
detected on an *MACLIB con- 
trol record, or multiple 
*MACLIB control records 
are detected. 

An attempt is made to define a 
stored macro when a macro 
library is not associated with 
this assembly. 

The disk parameter-list spill 
area is undefined or exceeded. 



The disk area for macro 
definitions is undefined or 
exceeded. 



An attempt is made to nest 
more than 20 macro calls. 



A program is assembled as 
an ISS subroutine without 
the required * LEVEL control 
record. 



Your response 

The control record is ignored. 



Reassemble specifying a valid macro library. 



Reassemble specifying a larger parameter-list 
disk area (see "*OVERF LOW SECTORS" in 
Chapter 5). 

Reassemble specifying a larger macro-definition 
disk area (see "'OVERFLOW SECTORS" in 
Chapter 5). 



Redefine the macro nest and reassemble. 



Reassemble using an *LEVEL control record. 



A22 INVALID LIST DECK 
OPTION . . . ASSEM- 
BLY TERMINATED 



LIST DECK or LIST DECK E 
is specified when macros are 
called. 



Reassemble and do not specify either LIST DECK 
or LIST DECK E options. 



Figure A-2 (Part 2 of 2). Assembler error messages 
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messages and 
error codes 



FORTRAN MESSAGES AND ERROR CODES 

compilation messages 



compilation error 
messages 



Near the end of compilation, the FORTRAN compiler prints core usage information and 
the features supported as follows: 

FEATURES SUPPORTED 

EXTENDED PRECISION 

ONE WORD INTEGERS 

TRANSFER TRACE 

ARITHMETIC TRACE 

ORIGIN 

IOCS 
CORE REQUIREMENTS FOR XXXXX 
COMMON YYYYY VARIABLES YYYYY PROGRAM YYYYY 

where 

XXXXX is the program name specified in the *NAME control record or in the 

SUBROUTINE or FUNCTION statement. 

YYYYY is the number of words allocated for the specified parts of the program. 

During a subprogram compilation, the compiler prints the following message: 

RELATIVE ENTRY POINT ADDRESS IS XXXX (HEX) 

where 

XXXX is the address of the entry point relative to the address of the first word of 
the subprogram being compiled. 

The compiler prints the following messages for successful and unsuccessful compilations, 
respectively: 

END OF COMPILATION 
COMPILATION DISCONTINUED 

During compilation, the compiler checks to determine if certain errors occur. If one or 
more of these errors are detected, the compiler prints the error messages at the conclusion 
of compilation, and the object program is not stored on disk. Only one error is detected 
for each statement. In addition, due to the interaction of error conditions, the occurrence 
of some errors may prevent the detection of others until the errors detected first are 
corrected. With the exception of the messages listed in Figure A-4, the error messages 
printed by the FORTRAN compiler have the following format: 

C nn ERROR IN STATEMENT NUMBER xxxxx+yyy 

where 

C nn is the error code number in Figure A-3. xxxxx is all zeros until the first num- 
bered statement is encountered in your program. When a valid statement number 
is encountered, xxxxx is replaced by that statement number. Statement numbers 
on specification statements and statement functions are ignored. When xxxxx is 
all zeros, yyy is the statement line in error (excluding comments and continuation 
lines). When xxxxx is a valid statement number, yyy is a count of statements from 
that numbered statement (counted as 0) to the statement in error. If the erroneous 
statement has a statement number, yyy is not printed. 

For example: 

DIMENSION E(I,6,6) (error C 08) 

DIMENSION F(4,4),G(2,7), 

1H(34,21),I(5,8) (recall that the 1 in column 6 

indicates a continuation line) 
(error C 16) 
(error C 27) 



DIMENSION J(3,2,6)) 
FORMAT (I50,F5. 2)) 
10 WRITE (l'C) ARRAY 
WRITE (l'C) ARRAYS 



(error C 07) 
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FORTRAN 
messages and 
error codes 



This example causes the following error messages to be printed: 
C 08 ERROR AT STATEMENT 00000+001 
C 16 ERROR AT STATEMENT 00000+003 
C 27 ERROR AT STATEMENT 00000+004 
€ 07 ERROR AT STATEMENT 10 +00 1 

Look up the error numbers in Figure A-3 to determine the causes of the errors. 

Note that a FORTRAN compiler error message can be caused by an invalid character in 
the source statement. In that case, the character in question is replaced with an ampersand 
in the listing. Errors in specification statements and any other obvious errors should be 
examined first. Since variables are not defined when a statement contains a compiler error, 
valid statements that reference the variables may also be flagged. 
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FORTRAN Error Codes 

Error 

code Cause of error 

C01 Nonnumeric character in statement number 

C02 More than 5 continuation cards, or continuation card out of sequence 

C03 Syntax error in CALL LINK or CALL EXIT statement 

C04 Unrecognizable, misspelled, or incorrectly formed statement 

C05 Statement out of sequence 

C06 A statement follows a STOP, RETURN, CALL LINK, CALL EXIT, or GO TO statement, 

or an I F statement does not have a statement number 

C07 Name longer than 5 characters, or name not starting with an alphabetic character 

C08 Incorrect or missing subscript within dimension information (DIMENSION, COMMON, 

REAL, or INTEGER) 

C09 Duplicate statement' number 

C10 Syntax error in COMMON statement 

C1 1 Duplicate name in COMMON statement 

C12 Syntax error in FUNCTION or SUBROUTINE statement 

C13 Parameter (dummy argument) appears in COMMON statement 

C14 Name appears twice as a parameter in SUBROUTINE or FUNCTION statement 

C15 *IOCS control record in a subprogram 

C16 Syntax error in DIMENSION statement 

C17 Subprogram name in DIMENSION statement 

C18 Name dimensioned more than once, or not dimensioned on first appearance of name. 

C19 Syntax error in REAL, INTEGER, or EXTERNAL statement 

C20 Subprogram name in REAL or INTEGER statement, or a FUNCTION subprogram 

containing its own name in an EXTERNAL statement 

C21 Name in EXTERNAL that is also in a COMMON or DIMENSION statement 

C22 IFIX or FLOAT in EXTERNAL statement 

C23 Invalid real constant 

C24 Invalid integer constant 

C25 More than 15 dummy arguments, or duplicate dummy argument in statement function 

argument list 

C26 Right parenthesis missing from a subscript expression 

C27 Syntax error in FORMAT statement 

C28 FORMAT statement without statement number 

C29 Field width specification greater than 145 

C30 In a FORMAT statement specifying E or F conversion, w greater than 127, d greater 

than 31, or d greater than w, where w is an unsigned integer constant specifying the 
total field length of the data, and d is an unsigned integer constant specifying the 
number of decimal places to the right of the decimal point 

C31 Subscript error in EQUIVALENCE statement 

C32 Subscripted variable in a statement function 

C33 Incorrectly formed subscript expression 

C34 Undefined variable in subscript expression 

C35 Number of subscripts in a subscript expression, and/or the range of the subscripts 

does not agree with the dimension information 

C36 Invalid arithmetic statement or variable; or, in a FUNCTION subprogram the left 

side of an arithmetic statement is a dummy argument or in COMMON 

C37 Syntax error in IF statement 

C38 Invalid expression in IF statement 

Figure A-3 (Part 1 of 3). FORTRAN error codes 
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Error 

code Cause of error 

C39 Syntax error or invalid simple argument in CALL statement 

C40 Invalid expression in CALL statement 

C41 Invalid expression to the left of an equal sign in a statement function 

C42 Invalid expression to the right of an equal sign in a statement function 

C43 In an IF, GO TO, or DO statement, a statement number is missing, invalid, incorrectly 

placed, or is the number of a FORMAT statement 

C44 Syntax error in READ, WRITE or FIND statement 

C45 *IOCS record missing with a READ or WRITE statement (mainline program only) 

C46 FORMAT statement number missing or incorrect in a READ or WRITE statement 

C47 Syntax error in input/output list; or an invalid list element; or, in a FUNCTION sub- 

program, the input list element is a dummy argument or in COMMON 

C48 Syntax error in GO TO statement 

C49 Index of a computed GO TO is missing, invalid, or not preceded by a comma 

C50 'TRANSFER TRACE or "ARITHMETIC TRACE control record or CALL PDUMP 

statement present, with no *IOCS control record in a mainline program 

C51 Incorrect nesting of DO statements; or the terminal statement of the associated DO 

statement is a GO TO, IF, RETURN, FORMAT, STOP, PAUSE, or DO statement 

C52 More than 25 nested DO statements 

C53 Syntax error in DO statement 

C54 Initial value in DO statement is zero 

C55 In a FUNCTION subprogram the index of DO is a dummy argument or in COMMON 

C56 Syntax error in BACKSPACE statement 

C57 Syntax error in REWIND statement 

C58 Syntax error in END Fl LE statement 

C59 Syntax error in STOP statement 

C60 Syntax error in PAUSE statement 

C61 Integer constant in STOP or PAUSE statement greater than 9999 

C62 Last executable statement before END statement is not a STOP, GO TO, I F, CALL 

LINK, CALL EXIT, or RETURN statement 

C63 Statement contains more than 15 different subscript expressions 

C64 Statement too long to be scanned, because of compiler expansion of subscript 

expressions or compiler addition of generated temporary storage locations 

C65* All variables undefined in an EQUIVALENCE list 

C66* Variable made equivalent to an element of an array in such a manner as to cause the 

array to extend beyond the original of the COMMON area 

C67* Two variables of array elements in COMMON are equated, or the relative locations of 

two variables or array elements are assigned more than once (directly or indirectly). This 
error is also given if an attempt is made to allocate a standard precision real variable 
at an odd address by means of an EQUIVALENCE statement 

C68 Syntax error in an EQUIVALENCE statement; or an illegal variable name in an 

EQUIVALENCE list 

C69 Subprogram does not contain a RETURN statement, or a mainline program contains 

a RETURN statement 

C70 No DEFINE FILE statement in a mainline program that has disk READ, WRITE, or 

FIND statements 

C71 Syntax error in DEFINE FILE statement 

C72 Duplicate DEFINE FILE statement, more than 75 DEFINE FILES, or DEFINE FILE 

statement in subprogram 

Figure A-3 (Part 2 of 3). FORTRAN error codes 
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Error 

code Cause of error 

C73 Syntax error in record number of disk READ, WRITE, or FIND statement 

C74 Defined file exceeds disk storage size 

C75 Syntax error in DATA statement 

C76 Names and constants in a DATA statement not in a one-to-one correspondence 

C77 Mixed mode in DATA statement 

C78 Invalid hollerith constant in a DATA statement (see "Length of FORTRAN DATA 

Statement" in Chapter 6) 

C79 Invalid hexadecimal specification in a DATA statement 

C80 Variable in a DATA statement not used elsewhere in the program or dummy variable 

in DATA statement 

C81 COMMON variable loaded with a DATA specification 

C82 DATA statement too long to compile, due to internal buffering. Refer to the section 

TIPS FOR FORTRAN PROGRAMMERS 

* The detection of a code 65, 66, or 67 error prevents any subsequent detection of any of these 
three errors. 

Figure A-3 (Part 3 of 3). FORTRAN error codes 
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Error number and message 

C85 ORIGIN IN SUBPROGRAM 

C86 INVALID ORIGIN 



C96 WORKING STORAGE 
EXCEEDED 



C97 PROGRAM LENGTH 
EXCEEDS CAPACITY 



C98 SUBROUTINE INITIALIZE 
TOO LARGE 



C99 CORE REQUIREMENTS 
EXCESSIVE 

Figure A-4. FORTRAN error messages 



Cause of error 

An ORIGIN control record was detected in a 
subprogram compilation. 

An attempt has been made to relocate a word at 
an address exceeding 7FFF (hexadecimal). 

The working storage area on disk is too small to 
accommodate the compiled program in disk 
system format. 

The error occurs when the program in internal 
compiler format is too large to be contained in 
core working storage, and the program must 
be reduced in size in order to compile. 

During compilation of subprograms a subroutine 
initialize statement (CALL SUBIN) is generated. 

The CALL SUBIN statement initializes all 
references to dummy variables contained within 
the subprogram to the appropriate core location 
in the calling program. 

The nature of the FORTRAN compiler limits! 
the size of any statement in internal compiler 
format to 51 1 words. In the case of CALL 
SUBIN, the size is calculated by the following 
formula: 

S = 5 + ARG + N 

where ARG is the number of arguments in the 
subroutine parameter list and N is the total 
number of times the dummy arguments are used 
within the subprogram. S is the total size of the 
CALL SUBIN statement; if S ever exceeds 51 1, 
an error occurs and the above error message is; 
printed. 

The error occurs when the total core requirements 
exceed 32767 words. 
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DUP AND MUP MESSAGES AND ERROR MESSAGES 
DUP messages 



MUP messages 



When a Disk Utility Program (DUP) function is performed without errors, an informational 
message is printed on the principal printer. Information messages are described in the 
following text. 

At the end of a DEFINE VOID, one of the following messages is printed: 

ASSEMBLER VOIDED 
FORTRAN VOIDED 
RPG VOIDED 
COBOL VOIDED 

At the end of a DEFINE FIXED AREA function, the following message is printed: 

CART ID XXXX CYLS FXA XXXX DBS AVAIL XXXX FLET SECTOR 
ADDR XXXX 

where 

CYLS FXA XXXX is the decimal number of cylinders minus one in the fixed area 

(the additional cylinder is used for FLET). 

DBS A VAIL XXXX is the hexadecimal number of disk blocks remaining in the 

fixed area after the last program or data file stored there. 

FLET SECTOR ADDR XXXX is the hexadecimal sector address of the first cylinder 

in the fixed area (the sector address of FLET). 

At the end of a dump of LET or FLET, the following sign-off message is printed: 

END OF DUMPLET/FLET 
All other DUP operations, except MUP are followed by this message: 

CART ID XXXX DB ADDR XXXX DB CNT XXXX 

where 

DB ADDR XXXX is the hexadecimal starting address of the program or data file. 
DB CNT XXXX is the hexadecimal number of disk blocks being deleted, stored, or 
dumped. 

The error messages printed by DUP are listed in Figure A-5. These messages include the 
message number and message, the causes of the error messages, and your corrective actions 
where appropriate. 

The sign-off message of the Macro Update Program (MUP) is: 

UPDATE COMPLETED 
Informational messages that can be printed during a MUP run are: 

ABOVE MACRO PURGED 

that follows a PURGE control record, and 

ABOVE MACRO RENAMED AS 
SSSS DDDD MNAME 

where 

SSSS is the sector address in hexadecimal. 
DDDD is the displacement in hexadecimal. 
MNAME is the new macro name. 

The error messages printed by MUP are listed in Figure A-5. These messages include the 
message number and message, the causes of the error messages, and your corrective actions 
where appropriate. 
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DUP/MUP Error Messages 



Error number and message 



D01 



D02 



D03 



DOS 



NAME IS NOT 
PRIME ENTRY 



INVALID HEADER 
RECORD TYPE 



INVALID HEADER 
LENGTH 



SECONDARY ENTRY 
XXXXX IN LET 



Cause of error 

The primary entry point name of the 
program in working storage does not 
match the name on the DUP control 
record. 

One of the following is detected: 

1. A non-DSF program 

2. A mispositioned header 

3. Foreign data 

4. An erroneous subtype 

Word 6 of the DSF header is outside the 
range of 3 through 45. 

Other causes are similar to those of message 
D02, except for subtype. 

The specified secondary entry point name 
is already in LET. 



Your response 



Delete the specified entry point name before 
storing this subroutine. 



D06 ENTRY POINT NAME 

ALREADY IN 
LET/FLET 



The specified name is already in LET or 
or FLET. 



Delete the specified name from LET or FLET 
before storing this program or data file. 



D12 



D13 



D14 



D15 



INVALID DISK I/O 
SPECIFIED 



INVALID FUNCTION 
FIELD 

INVALID FROM 
(CC 13-14) 



INVALID TO FIELD 
(CC 17-18) 



The disk I/O subroutine coded (column 9) 
on the STORECI control record is other 
than 0, 1, N, Z, or blank. 

An invalid DUP function is specified on 
the DUP control record. 

One of the following: 

1. Unacceptable characters are in columns 
13 and 14 of the DUP control record. 

2. The FROM field specified is not valid 
with this DUP function. 

One of the following: 

1. Unacceptable characters are in columns 
17 and 18 of the DUP control record. 

2. The TO field specified is not valid with 
this DUP function. 



D16 



INVALID NAME 
FIELD (CC 21-25) 



One of the following: 

1. A required name is not specified. 

2. The specified name contains a syntax 



Figure A-5 (Part 1 of 8). DUP/MUP error messages 
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Error number and message 



D17 



INVALID COUNT 
FIELD (CC 27-30) 



Cause of error 

Columns 27 through 30 are blank or 
include alphabetic characters. The count 
field requires a decimal number. 



Your response 



D18 INVALID FUNCTION 

DURING TEMPORARY 
JOB 

D19 CARTRIDGE NOT ON 

SYSTEM 



This function is not allowed during the 
JOB T mode. 



The cartridge specified as the TO or 
FROM cartridge is not specified on the 
JOB control record as being used for this 
job. 



D20 CARTRIDGE ID 

OUTSIDE VALID 
RANGE (0001-7FFF) 



Correct the cartridge ID and retry. 



D21 INVALID STOREMOD. 

SIZE OF REPLACEMENT 
EXCEEDS SIZE OF 
ORIGINAL 



The replacement version of the program 
or data file is larger than the current 
stored version. 



Delete the old version of the program or data file 
and retry. 



D22 



PROGRAM NOT IN 
WORKING STORAGE 



One of the following: 

1. The disk block count for the requested 
program Ih working storage is zero. 

2. The program is not in working storage. 



D23 INVALID SYSTEM 

OVERLAY SUBTYPE 
SPECIFIED 



The system overlay subtype indicator 
(column 11) on a STORE control record 
is not in the range through 9. 



D24 



COUNT FIELD TOO 
LARGE 



One of the following: 

1. The count field extends beyond 
column 30 of a DEFINE FIXED 
AREA control record. 

2. Column 31 is not a minus sign. 



D25 REQUIRED FORMAT 

NOT IN W.S. 



During a STOREMOD, the format of the 
LET or FLET entry does not agree with 
the format in working storage. 



D26 NAME NOT FOUND IN 

LET/FLET 



The name specified on a DELETE or 
DUMP control record is not in LET or 
FLET. 



D27 



SOURCE NOT IN DSF 



The format indicator of the FROM 
cartridge indicates that working storage 
on this cartridge does not contain a DSF 
program. 



D30 



INVALID RECORD 
TYPE 



An invalid type binary record has been read 
when storing from cards or paper tape. 

Figure A-5 (Part 2 of 8). DUP/MUP error messages 
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DUP/MUP Error Messages 



Error number and message 



Cause of error 



Your response 



D31 PROGRAM OR DATA 

EXCEEDS 
DESTINATION 
DISK AREA 



The number of disk blocks required to 
store a program or data file exceeds the 
amount of space available in the 
specified TO field. 



D32 INVALID CORE 

IMAGE CONVERSION 



D33 ILET/FLET OVERFLOW. 

A CORE DUMP FOLLOWS 



The core load builder has inhibited the 
continuation of STORECI. The specific 
reason has been printed by the core load 
builder (see "Core Load Builder Error 
Messages" in this appendix). 

A ninth sector of LET/FLET is required 
(or a seventh sector of LET on a non- 
system cartridge) for the LET/FLET 
entry. 

A core dump follows this message since 
the affected cartridge may have to be 
reloaded. The dump allows you to 
locate the condition that caused the 
error. Use of the affected cartridge is 
not recommended until the problem 
is investigated. 



You must delete a program with a LET or FLET 
entry of similar size before this program can be 
stored. 



D41 



INVALID STORECI 
CONTROL RECORD 



A control record read after a STORECI 
is not a LOCAL, NOCAL, FILES, or 
G2250 record, or a mainline name is 
specified on a LOCAL, NOCAL, or 
G2250 record. 



D42 STORECI CONTROL 

RECORDS 
INCORRECTLY 
ORDERED 



LOCAL, NOCAL, FILES, and G2250 
control records are intermixed. 



All records of a given type must be loaded 
together. 



D43 



INCORRECT 
CONTINUATION 



A comma at the end of a record 
indicates continuation to the next record; 
however, it is not continued.. 



D44 



ILLEGAL 
CHARACTER IN 
RECORD 



An illegal character, probably a blank, is 
in the record. 



D45 



D46 



ILLEGAL FILE 
NUMBER 



ILLEGAL NAME 



One of the following: 

1. A nonnumeric character is in a file 
number. 

2. A file number is more than 5 characters 
long. 

One of the following: 

1. A name is more than 5 characters long. 

2. A name contains characters other 
than A through z, through 9, or $. 

3. A name contains embedded blanks. 

Figure A-5 (Part 3 of 8). DUP/MUP error messages 



A-16 



DUP/MUP Error Messages 



Error number and message 



D47 



ILLEGAL 
CARTRIDGE ID 



Cause of error 

One of the following: 

1. The specified cartridge ID is not in the 
range /0001 through /7FFF. 

2. The specified cartridge I D contains an 
invalid character. 



Your response 



D48 



D70 



SCRA BUFFER 
OVERFLOW 



LAST ENTRY IN 

LET/FLETNOT 

1DUMY 



The supervisor control record area (SCRA) 
cannot contain all the LOCAL, NOCAL, 
FILES, or G2250 information. 

A DELETE operation cannot find the end 
of LET or FLET. The header for this 
LET/FLET sector contains the 6ount of 
unused words in this sector. This count 
should point to the last 1DUMY entry; 
however, the entry to which it now points 
is not a 1DUMY. 



D71 1DUMY ENTRY IN 

LET/FLET IS 
FOLLOWED BY A 
SECONDARY ENTRY 
POINT 



The name on the DE LETE control record 
points to a secondary entry point that 
follows a 1DUMY entry point. The primary 
entry is not in LET/FLET. 



D72 FIRST ENTRY IN 

LET/FLET SECTOR 
IS A SECONDARY 
ENTRY POINT 



The LET/FLET table is improperly 
constructed; the first entry is not a 
primary entry. 



D80 



FIXED AREA 
PRESENT 



The FORTRAN compiler, RPG compiler, 
or assembler cannot be eliminated if a 
fixed area is defined on the disk. 



D81 ASSEMBLER NOT 

IN SYSTEM 

D82 FORTRAN NOT IN 

SYSTEM 

D83 INCREASE VALUE 

IN COUNT FIELD 
(CC 27-30) 



The assembler has been previously deleted 
from the system. 

The FORTRAN compiler has been 
previously deleted from the system. 

The count field read is a value of zero or 
one; the first DEFINE FIXED AREA 
requires one cylinder for FLET plus one 
cylinder of fixed area. Thereafter, as 
little as one cylinder of additional fixed 
area can be defined. 



D84 DEFECTIVE SLET 

D85 FIXED AREA NOT 

PRESENT 



The cartridge must be reloaded. 



The control record specifies a decrease 
in the fixed area, or specifies the fixed 
area as the TO field, and a fixed area is 
not on the cartridge. 

Figure A-5 (Part 4 of 8). DUP/MUP error messages 
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DUP/MUP Error Messages 



Error number and message 



Cause of error 



Your response 



D86 



DECREASE VALUE 
IN COUNT FIELD 



D87 


RPG NOT IN 




SYSTEM 


D88 


COBOL NOT IN 




SYSTEM 


D90 


CHECKSUM 




ERROR 



D92 



INVALID DISKZ 
CALL. A CORE 
DUMP FOLLOWS 



D93 



D100 



CARTRIDGE 
OVERFLOW 

LIBRARY NOT 
FOUND 



One of the following: 

1. Enough working storage is not available 
to allow the fixed area to be defined or 
expanded by the amount specified in 
the count field (cc 27 through 30). 

If a large program is in working 
storage this error may also occur. 
If you do not need the contents of 
working storage, precede the //DUP 
card with a //JOB card to 
reinitialize #WSCT in DCOM. If the 
contents of working storage are 
needed, save the required information, 
then run with the following cards: 
//JOB, //DUP, and *DEFINE FIXED 
AREA. 

2. The number of unused cylinders in the 
fixed area is insufficient to decrease 
the fixed area the amount specified 

in the count field. 
This message is preceded by a count of the 
number of cylinders available: XXXX 
CYLS AVAILABLE. The count is a 
decimal number. 

The RPG compiler has been previously 
deleted from the system. 

The COBOL compiler (a program product) 
has been previously deleted from the 
system. 

One of the following: 

1. A cheek sum error is detected in a 
binary card or paper tape record. 

2. Binary cards are out of order. 

While performing a DUP function, an 
attempt has been made to read or write 
sector 0, or to read or write with a 
negative word count. This is a system 
error. 

A core dump follows this message since 
the affected cartridge may have to be 
reloaded. The dump allows you to 
locate the condition that caused the 
error. Use of the affected cartridge is 
not recommended until the problem is 
investigated. 

While performing a DUP function, an 
attempt has been made to read or 
write a sector beyond 1599 decimal. 

The library named on a LIB, BUILD, 
JOIN, or CONCAT statement cannot 
be found on drives currently in use. If 
the statement is a LIB, BUILD, or 
JOIN, all statements are ignored until 
the next LIB, BUILD, or ENDUP 
statement is encountered. If the 
statement is a CONCAT, processing 
continues with the next control 
statement. 

Figure A-5 (Part 5 of 8). DUP/MUP error messages 



Correct the name field in the statement in error, 
or change the // JOB control record to include 
the drive on which the named library resides, or 
define the macro library using a *DFILE or 
*STOREDATA control record. 
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DUP/MUP Error Messages 



Error number and message 



D101 



INVALID 
SUBFIELDCOL XX 



D102 



ILLEGAL 
REQUEST 



D103 



LIBRARY 
OVERFLOW 



Cause of error 

One of the following: 

1. If on an INSERT or DELETE 
statement, the sequence number 

is incorrectly specified; that is, it is 
negative, nonnumeric, or the sequence 
numbers are reversed. 

2. If on a SELECT statement, an 
incorrect parameter is specified. 

3. If on a NAME statement, an invalid 
parameter was detected, and processing 
continues with the next LIB, 

BUI LD, or ENDUP statement. 

4. If on an INSERT or DELETE 
statement, processing continues with 
the next control statement. 

5. If on a SE LECT statement, processing 
continues with the remainder of the 
statement. 

One of the following: 

1. An invalid statement was detected. 

2. An INSERT or DELETE statement 
is not preceded by an UPDATE 

or RENAME statement. 

3. An OUTPUT operation was requested 
using a cartridge configured for 
paper tape. 

Processing continues with the next control 
statement. 

One of the following: 

1. The library last specified by a LIB or 
BUILD statement does not have 
enough room to perform the operation. 

2. If on a JOIN or an ADD statement, 
the operation is suppressed and the 
library is restored to its previous state. 

3. If on an INSERT statement, the 
statements listed prior to the message 
are the only ones that can be included. 

Processing continues with the next LIB, 
BUILD, or ENDUP statement. 

Figure A-5 (Part 6 of 8). DUP/MUP error messages 



Your response 

XX indicates the column in which the error 
was found. 

Correct the error and rerun the portion of the job 
that is affected. 



Correct the error and rerun the portion of the job 
that is affected. 



Do one of the following: 

1 . Purge unneeded macros or delete unneeded 
statements to obtain additional space in the 
current library. If this is not possible, define 
a larger library using an *DFILE or 
*STOREDATA control record, join the old 
library to a new one, and delete the old library. 
Once the additional space is obtained, rerun the 
portion of the job that is affected. 

2. If on an INSERT statement, you may have to 
alter the INSERT statement as the statements 

in the macro library may have been resequenced. 
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DUP/MUP Error Messages 



Error number and message 



D104 



D105 



MACRO NOT 
FOUND 



SEQUENCE 
NUMBER NOT 
FOUND 



D106 LIBRARY NOT 

SPECIFIED 



D107 SPILL OVERFLOW 



D108 CONTROL 

STATEMENT READ 



Cause of error 

The macro name specified on an 
OUTPUT, PURGE, RENAME, or 
UPDATE statement cannot be found 
in the library being processed. Processing 
continues with the next control 
statement. 

The sequence number on an INSERT or 
DELETE statement is out of the range of 
the macro and cannot be found, or the 
sequence numbers on multiple INSERT 
and/or DELETE statements for the 
same macro are out of order. Processing 
continues with the next control 
statement. 

An attempt was made to operate on a 
macro without specifying a macro 
library. 

Processing continues with the next LIB, 
BUILD, or ENDUP statement. 

Macro text insertions have caused the 
capacity of working storage spill to be 
exceeded. 

Processing continues with the next LIB, 
BUILD, or ENDUP statement. 

An * or // statement has been read, and 
the MUP run is terminated. Control is 
returned to the supervisor for a // statement 
or to DUP for an * statement. 



Your response 

Do one of the following: 

1. Correct the macro name on the statement in 
error. 

2. Specify the correct macro library. 

Then, rerun the portion of the job that is affected. 

Place a correct sequence number on the 
statement in error, and rerun the portion of the 
job that is affected. 



Place a LI B or BUI LD statement before the state- 
ment before the statement in error, and rerun the 
portion of the job that is affected. 



Correct the sequence numbers in the unprocessed 
INSERT statements, if necessary, and rerun these 
statements. Additional disk drives may have to 
be defined to provide adequate working storage. 



D109 NAME STATEMENT 
NOT FOUND 



D110 [INVALID NAME 



The operation attempted requires a NAME 
statement, and one has not been processed 
after the last LIB or BUILD statement. 
Processing continues with the next LIB, 
BUILD, or ENDUP statement. 

One of the following: 

1. The name field on a LIB, BUILD, 
JOIN, CONCAT, UPDATE, ADD, 
PURGE, RENAME, or OUTPUT 
statement was left blank. 

2. The name specified is invalid. 

3. Apostrophes are improperly placed. 

If on a LIB, BUILD, or JOIN statement, 
processing continues with the next LIB, 
BUILD, or ENDUP statement. 

If on a CONCAT, UPDATE, ADD, 
PURGE, RENAME, or OUTPUT statement, 
processing continues with the next 
control statement. 

Figure A-5 (Part 7 of 8). DUP/MUP error messages 



Insert a NAME statement, and rerun the portion 
of the job that is affected. 
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DUP/MUP Error Messages 



Error number and message 



Cause of error 



D112 



NONBLANKCARD 
READ ENTER 
BLANK CARDS 



D116 



LIBRARY NOT 
INITIALIZED 



D117 



INVALID 
PARAMETER 



One of the following: 

1. The library named on a LIB, 
JOIN, or CONCAT statement is not 
properly initialized. 

2. The library specified on a BUI LD 
statement is not a data file. 

If on a LIB, or JOIN statement, processing 
continues with the next LIB, BUILD, 
or ENDUP statement. 

If on a CONCAT statement, processing 
continues with the next control statement. 

One of the following: 

1. A parameter has been detected that was 
not defined in the NAME statement. 

2. More than 20 parameters are specified 
in a NAME statement. 

3. A parameter greater than one character 
was used in the format or tag field. 

If the error occurs during an OUTPUT 
operation, the operation is terminated and 
processing continues with the next control 
statement. 

If the error occurs during a listing 
operation, this is a warning message, and 
the invalid parameter is printed as //N 
where N is 1 through 20. 

Note: N may be truncated if the field size 
is exceeded. 



Your response 

1 . Remove the stacked input from the card 
hopper. 

2. Press NPRO to clear out nonblank cards. 

3. Place blank cards followed by the NPRO 
nonblank cards and the stacked input in the 
hopper. 

4. Press reader START and console keyboard 
PROGRAM START. 

Do one of the following: 

1. Initialize the library with a BUI LD statement, 
and rerun the portion of the job that is affected. 

2. Correct the BUILD statement and rerun the 
portion of the job that is affected. 



Note. In addition to the DUP error messages just listed, the following message: 

NO SUCH ERROR MESSAGE NUMBER 

can be printed immediately followed by a 2-digit hexadecimal number. 
This message is an indication of a system error. The message is likely to 
be printed if DUP operations are performed while the physical core size 
and the configured core size do not agree. This situation is not supported 
by most system programs. 

Figure A-5 (Part 8 of 8). DUP/MUP error messages 
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System Loader 
messages and 
error messages 

SYSTEM LOADER MESSAGES AND ERROR MESSAGES 

Informational messages are not printed during an initial load. 

At the completion of a reload, the following message is printed: 

END OF RELOAD 

The error messages and the corrective action that you perform are listed in Figure A-6. 
Procedures A and B that are referenced under the column "Your response" are included 
at the end of the figure. 
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System Loader Error Messages 



Error number and message 



Your response 



From phases 1 and 2 

E01 CHECKSUM ERROR 

E02 INVALID RECORD OR BLANK 

E03 SEQ ERROR OR MISSING RECORDS 

E04 ORG BACKWARD 

E05 INITIALIZE THE CARTRIDGE 



Follow procedure A or restart initial load. If the input is paper tape, this message 
can be caused by a paper tape read error. In such a case, follow procedure B. 

Follow procedure A or restart initial load. 

Follow procedure A or restart initial load. The missing record may be end-of- 
program record. 

Inspect the deck for records missing or out of sequence. Correct the deck and 
restart from the record in error. 

The cartridge ID cannot be found in DCOM because DCOM is defective or an 
attempt is being made to initial load a cartridge that has not just been initialized 
or has been improperly initialized. Initialize and initial load the cartridge. 



From phase 1 only 
E11 INVALID DRIVE NO. 



Set all bit switches off. Set bit switches to select physical drive number and 
press PROGRAM START. 

Drive 0— All switches off 

Drive 1— Switch 15 on 

Drive 2— Switch 14 on 

Drive 3— Switches 14 and 1 5 on 

Drive 4— Switch 13 on 

Drive 5— Switches 1 3 and 1 5 on 



Drive 6— Switches 13 and 14 on 
Drive 7— Switches 13, 14, and 1 5 on 
Drive 8-Switch 12 on 
Drive 9— Switches 1 2 and 1 5 on 
Drive 10— Switches 1 2 and 14 on 



E12 ID SECTOR DATA INVALID 

E13 CONFIG DECK ERROR 

E14 FILE PROTECT ADDR TOO HIGH 

E15 PHID RECORD ERROR 

E16 INITIAL LOAD THE CARTRIDGE 

E17 ERROR IN LOAD MODE RECORD 

E18 PAPER TAPE ERROR 



E19 INVALID SLET/RELOAD TABLE 
CHECKSUM 



Initialize using DCIP or DISC and follow with an initial load. 

System configuration deck may be missing, out of place, or may contain an 
error in one or more records. Correct the deck and restart load. 

This error occurs on a reload only. The last program in the user area extends 
into the last two cylinders on the cartridge. These cylinders are required by the 
system loader during a reload operation. The file protect address must be 
lowered before a reload can be accomplished. 

Follow procedure A or reload and restart. 

The ID sector indicates that this cartridge has not been loaded since initialization 
by DCIP or DISC. Only an initial load may be performed. 

Follow procedure A or restart load. 

The paper tape system loader has found a word count greater than 54. This is 
probably due to incorrect sequencing of tapes, a faulty tape, or a paper tape 
reader malfunction. Correct error and restart load. 

System loader will ignore the checksum and continue if PROGRAM START is 
pressed. However, the cartridge should be initialized and an initial load per- 
formed. 



From phase 2 only 
E20 FIXED AREA PRESENT 

E21 SYSTEM DECK ERROR 



Programs may not be added to a cartridge with a fixed area defined. Press 
PROGRAM START to restore the resident image and DCOM. 

A defective record follows the sector break record. Correct the deck and restart 
the initial load or continue the reload from the preceding sector break record. 



Figure A-6 (Part 1 of 3). System loader error messages 

Monitor System Operational and Error Messages A-23 



System Loader Error Messages 



Error number and message 



Your response 



E22 SCRA OVERLAY -STOP 



E23 PHASE ID OUT OF SEQUENCE 



E24 PHASE MISSING 



E25 PHASE ID NOT IN PHID RECORD 



The cushion area used for allowing expanded or added phases has been used up. 
An initial load must be performed to store these phases on the cartridge. Press 
PROGRAM START to restore the resident image and DCOM. 

The ACCUMULATOR displays the phase ID that is out of sequence (from last 
card read). Place the decks in proper order and continue from the sector breaik 
record of the correct phase. 

Error occurred when phase ID (word 11) of last record read was processed. In- 
spect load mode record, PHID record and phase ID of previously loaded phase to 
determine which phase is now required. Locate missing phase, place deck in 
reader starting with sector break record of missing phase and continue. 

The ACCUMULATOR displays the extraneous phase ID. To ignore the phasei 
press PROGRAM START. To load the phase correct the PHID record and restart 
the load. 



E26 PHASE ID NOT IN SLET 



If the error occurred during processing of the reload table, the ACCUMULATOR dis- 
plays the phase ID sought, and the extension displays the ID of the phase 
requesting the SLET search. Press PROGRAM START to place zeros in the 
entry and process the next. 

If the extension displays zeros, a phase is being added, and the phase which 
should precede it cannot be found. The ACCUMULATOR displays the phase 
ID searched for. Press PROGRAM START to restore the resident image and 
DCOM. 



E27 DEFECTIVE SLET 

E28 SLET FULL 

E29 PROGRAM NOT PRESENT 

E30 RELOAD TABLE FULL 



E31 MISSING PHASE ID DUE TO 

DEFECTIVE SLET OR RELOAD 
TABLE 

E32 MISSING SYSTEM I/O PHASE 



SLET is defective. Initialize the cartridge and perform an initial load. 

The ACCUMULATOR displays the ID of a phase that may not be added because 
the SLET table is full. Press PROGRAM START to ignore the phase and con- 
tinue. An initial load should be performed as SLET is probably defective. 

A program or phases of a program defined in the primary PHID record cannot 
be reloaded unless the program is currently on the cartridge. Press PROGRAM 
START to ignore the phases of this program. 

If this error occurs before the '81' record is read the ACCUMULATOR displaiys 
the ID of a phase which may not be loaded because the reload table is full. Press 
PROGRAM START to ignore the phase and continue. 

The ACCUMULATOR displays the ID of a phase listed in the reload table as a 
phase requiring SLET information but the phase itself does not appear in SLET. 
Initialize the cartridge and perform an initial load. 

All system I/O subroutines must be on the cartridge and in SLET. Initialize the 
cartridge and perform an initial load. 



Procedure A 

If cards are being read from a 1442 Card Read Punch: 

1. Lift the remaining cards from the hopper and press nonprocess run out (NPRO). 

2. Correct the card in error (first card nonprocessed out) and place the two nonprocessed cards ahead of the cards removed from 
the hopper. 

3. Place the deck back in the hopper. 

4. Press reader START. 

5. Press console PROGRAM START. 

Figure A-6 (Part 2 of 3). System loader error messages 
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System Loader Error Messages 
If cards are being read from a 2501 Card Reader: 

1. Lift the remaining cards from the hopper and press NPRO. 

2. a. Correct the card in error (last card in stacker prior to NPRO) and place this card followed by the single nonprocessed card 

ahead of the cards removed from the hopper or, 
b. If the error occurred after the PHID card was read and before the type 81 card was read the system loader is in double 
buffer mode. Correct the card in error (in this case the second from last card in the stacker when the error occurred) and 
place the last two cards from the stacker and the nonprocessed card ahead of the cards removed from the hopper. Note, 
however, that the last card in the stacker will be the next card processed since it is already in the double-buffer. 

3. Place the deck back in the hopper. 

4. Press reader START. 

5. Press console PROGRAM START. 

If the input is paper tape, procedure A is applicable only to errors E15 and E17. 

Procedure B 

1. Place a mark on the tape adjacent to the highest sprocket tooth under the read starwheels as a point of reference. 

2. Count back (from that mark) the number of frames displayed in the ACCUMULATOR and mark the tape. 

3. Reposition the tape in reader so that the last mark is at the point of reference. 

4. Press console PROGRAM START. 

Note: Corrective actions for error messages E04, E21, E23, and E24 are not 
applicable to paper tape since a faulty tape must normally be replaced 
in full. 

Figure A-6 (Part 3 of 3). System loader error messages 
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SGJP Error Messages 



SATELLITE GRAPHIC JOB PROCESSOR ERROR MESSAGES 



Figure A-7 lists the error messages that are printed by the satellite graphic job processor 
(SGJP). The numbered messages are printed on the console printer; the messages preceded 
by IKyxxxz are displayed on the 2250 screen. 

SGJP is described in detail in the publication IBM System/360 Operating System and 1 130 
Disk Monitor System User's Guide for Job Control from an IBM 2250 Display Unit 
Attached to an IBM 1130 System, GC27-6938. 



Error number (if any) and message 



Cause of error 



Your response 



G01 



INITIALIZATION 
FAILURE 



Contact has not been made with SGJP 
in the System/ 360 during an attempt to 
initialize the telecommunications line 
via the GTNIT data transmission 
subroutine. 



Ensure that the System/360 operator has issued 
a VARY ON command for the 1 130/2250 
subsystem on which this error message is printed. 
Then, using the console keyboard, type either an 
R to retry the operation or a C to cancel SGJP. 



G02 LINE ERROR 



G03 SYNCHRONIZATION 

ERROR 



An attempt to transmit data to the 
System/360 is unsuccessful because of 
an I/O error; standard retries are 
unsuccessful. 

The operation is not completed, either 
because both the System/ 360 and the 
1 1 30/2250 subsystem are in read mode, or 
because the System/ 360 terminated 
communication. 



Using the console keyboard, type either an R to 
retry the operation or a C to cancel SGJP. 



Using the console keyboard, type either an R to 
retry the operation or a C to cancel SGJP. 



IKyxxxz message text THE 
SATELLITE GRAPHIC JOB 
PROCESSOR MUST RESTART 



SGJP is terminated because an internal error 
occurred. If the error recurs, refer to the 
publication, IE M System/360 Operating 
System Messages and Codes, GC28-6631, 
under the message code (IKyxxxz) for 
further explanation of the error condition. 



Perform the END function, which causes the 
LOG ON frame to reappear. Perform the LOG 
ON operation again. 



I Kyxxxz message text THE 
SATELLITE GRAPHIC JOB 
PROCESSOR MUST 
TERMINATE 



SGJP must be terminated because an 
internal error occurred. If the error 
recurs, refer to the publication, IBM 
System /360 Operating System Messages 
and Codes, GC28-6631, under the 
message code (IKyxxxz) for further 
explanation of the error condition. 

Figure A-7. SGJP error messages 



Perform the END function. This returns SGJP 
to the state it was in before the initial (CANCEL 
key) attention. 
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Remote Job Entry 
messages and 
error messages 

RJE MESSAGES AND ERROR MESSAGES 

The error messages that are printed by the RJE program are listed in Figure A-8. The first 
digit of the messages has the following meaning: 

O-Error in RJEOO 

1 —Error in the initializing part of RJE 

2— Error during the processing of the RJE program; does not require an operator 

reply through the console keyboard 
5— Error during the processing of the RJE program; requires a reply through the 

console keyboard from the operator 

Messages that are not caused by errors but are printed by the RJE program are listed in 
Figure A-9. 
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RJE Error Messages 



Error number and message Cause of error 



System action 



Your response 



J01 INVALID CARD 



The control card that 
contains the work 
station generation 
information is invalid 
or contains invalid 
information (see 
"Generation of the 
1130 RJE Work 
Station Program" in 
Chapter 10). 



The work station 
prepares to read a 
new data card. 



Enter a valid data card. 



110 



INVALID 
PRINTER 



Information from the disk 
monitor system indicates 
that the principal print 
device is not an 1 132 
Printer or a 1403 
Printer. 



The work station 
program exits to 
the disk monitor 
supervisor. 



Reload the RJE Work Station 
Program after performing a 
system reload that specifies the 
1 1 32 or the 1 403 as the principal 
print device (see Chapter 8 for 
information about system reload). 



J11 



INVALID 
READER 



Information from the 
disk monitor system 
indicates that the 
principal I/O device for 
system is not a 1 442 
Card Reader or a 2501 
Card Reader. 



The work station 
program exits to 
the disk monitor 
supervisor. 



Reload the RJE Work Station 
Program after performing a 
system reload that specifies the 
1442 Card Reader or the 2501 
Card Reader as the principal I/O 
device (see Chapter 8 for 
information about system reload). 



J12 



LOGICAL DRIVE 
XNOT IN 
SYSTEM 



J13 



TOO MANY 
EQUATS 



J14 



DISK ERROR 
OCR= 



The area on disk reserved 
for your exit data is on a 
logical disk drive that is 
not present during this 
RJE run. The logical drive 
number replaces X in the 
message. 

The number of subroutines 
equated by you and the 
RJE program in the current 
job is more than 25. 



A permanent error is 
encountered while 
attempting to read data 
from disk during the 
initialization part of the 
RJE program. 



The work station 
program exits to 
the disk monitor 
supervisor. 



The work station 
program exits to 
the disk monitor 
supervisor. 



The program 
continues according 
to your response. 



Change your exit parameters or 
ready the requested logical drive, 
and reload the RJE Workstation 
Program. 



Reload the RJE Work Station 
Program with a smaller number 
of subroutines specified in the 
*EQUAT control record. 

Note: The RJE program internally 
requires the following number of 
EQUATS. 

Compress/expand feature— 
2 pairs 

2501 Card Reader-2 pairs 

1132Printer-1 pair 

Enter one of the following codes: 

T — Indicates exit to the disk 
monitor supervisor requesting a 
terminating dump of the contents 
of core storage on the printer. 



X — Indicates exit to the disk 
monitor supervisor without 
printing the contents of core 
storage on the printer. 



Figure A-8 (Part 1 of 5). RJE Work Station Program error messages 



A-28 



RJE Error Messages 



Error number and message 



Cause of error 



System action 



Your response 



J20 RJSTART 
MISSING 



J21 . . DATA 
INVALID 



J22 INVALID INPUT 



J23 INPUT ABORTED 
BY CENTRAL 



J51 



LINE ERROR 
OCR= 



The requirement for an 
RJSTART command is 
not satisfied. 



A . . DATA command 
contains invalid param- 
eter. 

Note: This message is 
also printed if the 
requested logical disk 
drive is not present. 

The input entered 
from the console 
keyboard does not 
start with the JECL 
identifier (. .) followed 
by at least one blank. 

The central system has 
terminated input from 
the work station and 
sends a message that 
explains why input was 
terminated (see 
"Messages Sent to Work 
Stations" in IBM 
System/360 Operating 
System Remote Job 
Entry, GC30-2006, for 
a list of the messages). 

An unrecoverable error 
is encountered while 
reading or writing on 
the communication 
line, or the line cannot 
be opened. 



The program waits 
for your response. 



The program waits 
for your response. 



The program waits 
for more input from 
the keyboard. 



The program waits 
for input from the 
line. 



The RJE program 
closes the 
communication 
line, if it is open, 
and waits for your 
response. 



Enter an RJSTART command 
through the card reader, and 
press PROGRAM START on 
the console to resume processing. 

Use the operator communication 
request facility (see message J90 
in Figure A-9). 



Enter a work station command or 
press EOF. 



When the message from the central 
system is printed, take the indicated 
action. To resume input, follow the 
procedures described under "Console 
Keyboard Procedures" in Chapter 10. 



Enter one of the following codes 
through the console keyboard: 

A — Indicates that input is 
available at the card reader. If you 
select this option, the first card in 
the card reader must be an 
RJSTART command. On a switched 
line, the line must be disconnected 
before the restart is tried. If this is 
not done automatically by the work 
station program, you must do it. 
Dial again when J91 ESTABLISH 
LINE CONNECTION is printed. 

T — Indicates exit to the disk 
monitor supervisor, requesting a 
terminating dump of core storage to 
the printer. 

X — Indicates exit to the disk 
monitor supervisor, without 
printing the contents of core storage 
on the printer. 



Figure A-8 (Part 2 of 5). RJE Work Station Program error messages 
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RJE Error Messages 



Error number and message Cause of error 



System action 



Your response 



J52 



DISK ERROR 
INPUT OCR= 



A permanent error is 
encountered while 
attempting to read 
input from disk. This 
message is printed only 
if your disk input is 
being read at the time 
the error occurs. 



Reading of input 
data files and 
card reader input 
is discontinued. 
Any available 
output from the 
central system is 
accepted after 
you make your 
response. The 
system continues 
according to your 
response. 



Enter one of the following codes 
(within approximately 3 minutes 
on a switched line): 

A — Indicates that input is 
available at the card reader. 

B — Indicates that commands are 
to be read from the console key- 
board. 

C — Indicates that available output 
is accepted. (Any pending keyboard 
input is processed first.) 



J53 



DISK ERROR 
OUTPUT OCR= 



An unrecoverable error 
is encountered while 
attempting to write data 
on disk. This message is 
printed only if data is 
being written on disk by 
the IBM-supplied user- 
exit routine. 



Output from the 
central system is 
discontinued. The 
disposition of the 
output is specified 
by the use of the 
CONTINUE 
command. The 
system continues 
as directed by 
your response. 



T — Indicates exit to the disk 
monitor supervisor, requesting a 
terminating dump of the contents 
of core storage on the printer. 

Note: You may have to resubmit 
a job that has been partially entered, 
but must precede this by either 
obtaining the output of, or deleting, 
the job in question. 

Enter one of the following codes 
(within approximately 3 minutes on 
a switched line): 

A — Indicates input is available at 
the card reader. (Any pending 
keyboard and disk input is processed 
first.) 

B — Indicates that commands are to 
be read from the console keyboard. 



J54 DISK ERROR OCR= 



An unrecoverable error is 
encountered while 
attempting to read RJE 
constants or error 
messages from disk. If 
this message is printed, 
an RJE error message 
that indicates the original 
error may not be printed. 



The program 
continues 
according to 
your response. 



C — Indicates that any pending 
input (keyboard, disk or card] is 
processed. If input is not available, 
the system maintains the line 
operations. 

T — Indicates exit to the disk 
monitor supervisor, requesting a 
terminating dump of the contents 
of core storage on the printer. 

Enter one of the following codes: 

T — Indicates exit to the disk 
monitor supervisor, requesting a 
terminating dump of the contents 
of core storage on the printer. 

X — Indicates exit to the disk 
monitor supervisor without printing 
the contents of core storage on the 
printer. 



Figure A-8 (Part 3 of 5). RJE Work Station Program error messages 
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RJE Error Messages 



Error number and message 



Cause of error 



System action 



Your response 



J 55 



END OF DISK 
AREAOCR= 



You did not reserve 
space or reserved too 
little space on disk 
for user-exit output 
data sets. 



Output from the 
central system is 
discontinued. The 
system continues 
as directed by 
your response. 



Enter one of the following codes 
(within approximately 3 minutes 
on a switched line): 

A — Indicates that input is available 
at the card reader. (Any pending 
keyboard and disk input is processed 
first.) 



J56 



CARD READER 
ERROR OCR= 



An error has occurred 
on the card reader that 
requires your inter- 
vention. 



The system waits 
for your response. 



J 57 



CARD PUNCH 
ERROR OCR= 



An error has occurred 
on the card punch that 
requires your inter- 
vention. 



The system waits 
for your response. 



B — Indicates that commands are 
to be read from the console key- 
board. 

C — Indicates that any pending 
input (keyboard, disk, or card) 
is processed. If pending input 
does not exist, the system maintains 
the line operations. 

T — Indicates exit to the disk 
monitor supervisor, requesting a 
terminating dump of the contents 
of core storage on the printer. 

Enter one of the following codes 
(within approximately 3 minutes 
on a switched line): 

A — Indicates you have corrected 
the problem, and the program 
resumes card reader input. 

E — Indicates that you could not 
correct the problem. The program 
assumes an end-of-file ( . . null 
card) indication closes the card 
reader. 

Enter one of the following codes 
(within approximately 3 minutes 
on a switched line): 

D — Indicates you could not correct 
the problem. Output from the 
central system is discontinued and a 
. . CONTINUE command has to be 
transmitted to resume output. 

P — Indicates that you have 
corrected the problem, and the 
program resumes card punch 
output. 



Figure A-8 (Part 4 of 5). RJE Work Station Program error messages 
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RJE Error Messages 



Error number and message Cause of error 



System action 



Your response 



J 58 



PRINTER ERROR 
OCR= 



An error has occurred on 
the printer that requires 
your intervention. This 
message is also printed if 
the length of the records 
received from the central 
system exceeds the size 
of a print line. 



The system waits Enter one of the following codes 

for your response. (within approximately 3 minutes 

on a switched line): 

D — Indicates you could not correct 
the problem. Output from the 
central system is discontinued, and a 
. . CONTINUE command must be 
transmitted to resume output. 



J59 



PREOPERATIVE 
ERROR CODE 
XXXXOCR= 



A preoperative error has 
occurred in the user-exit 
subroutine, or a logical 
disk drive has been 
referenced that was 
present during the job 
processing preceding the 
loading of the work 
station program, but 
that has later become 
not ready. The pre- 
operative error code that 
replaces XXXX is 
explained in Appendix B. 



P — Indicates that you have corrected 
the problem, and the program 
resumes printer output. 

The system waits Enter one of the following codes 

for your response. (within approximately 3 minutes: 

on a switched line): 

C — Indicates that you have 
corrected the problem, and the 
program retries the operation. 

T — Indicates exit to the disk 
monitor supervisor, requesting a 
terminating dump of the contends 
of core storage on the printer. 

X — Indicates exit to the disk 
monitor supervisor without prin ting 
the contents of core storage on the 
printer. 



Figure A-8 (Part 5 of 5). RJE Work Station Program error messages 
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RJE Messages 



Message number 
and message 



Reason for message 



System action 



Your response 



J90 OCR= 



You have indicated that 
you want to communicate 
with the system by 
pressing PROGRAM 
STOP and PROGRAM 
START on the console 
keyboard. 



The system waits 
for your response. 



Enter one of the following codes 
(within approximately 21 seconds 
for switched lines and also within 
the same time limit on a leased or 
multipoint line, if a line operation 
is in progress): 

A — Indicates that input is available 
at the card reader. 

B — Indicates that commands are to 
be submitted from the console key- 
board. 

D — Indicates that receiving output 
is to be discontinued. 

N — Indicates that the system ignore 
the request. 

T — Indicates exit to the disk 
monitor supervisor, requesting a 
terminating dump of the contents 
of core storage on the printer. 



J91 



ESTABLISH LINE 
CONNECTION 



J92 



DATA rrrrOcOf 
TO DISK AT 
xaaa,bbbb 



This message is printed only 
on a switched line 1 130 
work station. You must 
establish a connection 
with the central system. 



This message is printed only 
when the IBM-supplied user- 
exit subroutine is used to 
write a data set to disk. 
The message codes have the 
following meanings. 

rrrr — The logical record 
length in hexadecimal for 
fixed blocked or unblocked 
records. 

c — The type of control 
characters used, where c 
may have the following 
values: 

— No control 
characters used 

1 - IBM System/360 
machine code 

2 - ASA control 
characters are used 



The system waits 
for you to com- 
plete the 
connection. 



The user-exit data 
set is written on disk. 
The disk block in- 
formation part of 
the message is 
written when the 
data set is com- 
pleted; therefore, if 
a line error or a disk 
error occurs before 
the whole data set 
is received, this 
portion of the 
message remains 
blank. 



Perform the dial-up procedure to 
establish the connection with the 
central system (see "Operating 
Procedures" in the IBM 1130 
Synchronous Communications 
Adapter Subroutines, GC26-3706). 



Figure A-9 (Part 1 of 3). RJE Work Station Program messages 
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RJE Messages 



Message number 
and message 

J92 (Continued) 



Reason for message 



f- The IBM System/360 
Operating System record 
format, where f may have 
the following values: 

1 — Fixed unblocked 
records 

2 — Fixed blocked 
records 

3 - Variable 
unblocked records 

4 — Variable blocked 
records 

5 — Undefined 
records 

x — The logical disk drive 
number. 

aaa — The starting sector 
address of the data set in 
hexadecimal. 



System action 



Your response 



J93 PROCEED 



bbbb — The length of the 
data set in disk blocks 
where there are 40 packed 
EBCDIC characters per 
block (16 disk blocks per 
sector). The last block 
may not be filled. 

This, message is printed as 
a result of a B reply to a 
J90 6CR= message. The 
work station is ready to 
receive commands from 
the keyboard. 



The K.B. SELECT 
light on the console 
keyboard is turned 
on, and the program 
waits for input 
from the keyboard. 



Enter the desired commands with an 
EOF after each command. After 
entering the last command, press 
EOF again to indicate the end of 
input. (On a switched line, you have 
approximately 3 minutes to ente>r 
each command.) 



J94 PUNCHED OUTPUT 



A SYSOUT data set is to 
be punched on a Model 
6 or 7 card read punch 
that is also used to read 
card input, and a coded 
card is in the punch 
station. 



The system waits 
for your action. 



You may load blank cards in the 
punch and then press any character 
key or the space bar to resume 
processing. If you want the output 
to be punched in the prepunched 
cards, you press any character key or 
the space bar as just described. 



You must take action within 
approximately 3 minutes to maintain 
line communication. If this time 
limit is exceeded, a line error occurs. 
The RJE program is then restarted as 
described under message J51. You 
receive punched output if you place 
an RJSTART command, a null com- 
mand, and the blank cards in the 
card reader, then reply A to the line 
error message. 



Figure A-9 (Part 2 of 3). RJE Work Station Program messages 



A-34 



Supervisor 

messages and 
error messages 

Message number Reason for message System action Your response 

and message 

J94 (Continued) Note: If punched output is to be 

sent to a 1442 Card Read Punch 
that is also used for reading, all 
punched output should be specified 
as deferred. 

Figure A-9 (Part 3 of 3). RJE Work Station Program messages 

SUPERVISOR MESSAGES AND ERROR MESSAGES 

The monitor supervisor causes all monitor system control records to be printed on the 
principal printer. 

During a DCOM update operation (after each JOB control record or when your program 
calls SYSUP), the following information is printed: 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 

xxxx xxxx xxxx xxxx 

where 

LOG DRIVE is the drive number specified on the JOB control record (or in the 

calling sequence of the SYSUP subroutine). 

CART SPEC is the specified cartridge ID. 

CART AVAIL is the available cartridge ID. 

PHY DRIVE is the physical drive number starting with zero. 

One line is printed for each physical drive that is ready on the system. The logical drive 
may be different from the physical drive; that is, physical drive zero may be defined as 
logical drive 2. 

After the cartridge information is printed, the following is printed: 

V2MXX ACTUAL XXK CONFIG XXK 

where 

V2MXX is the current version and modification level of the 1 130 Disk Monitor 

System 

ACTUAL XXK indicates the physical core size 

CONFIG XXK indicates the configured core size specified by a system load or reload 

Figures A- 10 and A-l 1 list the error messages, and their causes, that are printed by Phases 
1 and 2, respectively, of the System Control Record Program. Figure A- 12 lists the error 
messages that are printed by the SYSUP DCOM update program. 

SYSUP waits with zero displayed in the ACCUMULATOR if it fails to find the SLET 
entry for the principal printer subroutine. This error can be caused by your replacing the 
master cartridge with a nonsystem cartridge. Press INT REQ on the console keyboard to 
flush to the next job. An error printout during SYSUP results in termination of execution. 
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System Control Record Program 
error messages 



Error number and message 



Cause of error 



M11 INVALID MONITOR 

CONTROL RECORD 



A // record was not recognized as a valid monitor 
control record. 



M12 EXECUTION SUPPRESSED 



M13 DUP SUPPRESSED 



M14 SYSTEM PROGRAM 

DETECTED MONITOR 
CONTROL RECORD 



$NXEQ was set upon detection of an error that 
would prevent successful execution by the system. 
Execution is bypassed. 

$NDUP was set upon detection of an error that 
would prevent successful DUP operation. DUP 
is bypassed. 

A system program has detected a monitor control 
record when none was expected. The control reic- 
ord is passed to the MCRA for processing. This 
situation often occurs as a result of a missing END 
statement in an assembler language program. 



M15 ILLEGAL CARTRIDGE ID 



M16 PROGRAM VOIDED 



A cartridge ID contains an illegal character or is a 
negative number. The job is terminated. 

ASM, FOR, or RPG required but the FORTRAN 
compiler and/or assembler and/or RPG compiler 
was either not loaded by the system loader or was 
voided by a DUP DEFINE. 



Figure A-10. Phase 1. System Control Record Program error messages 
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System Control Record Program 

error messages 
SYSUP - DCOM Error Messages 



Error number and message 



Cause of error 



M21 ABOVE RECORD NOT A 
SUPERVISOR CONTROL 
RECORD 



The last record read is not a LOCAL, NOCAL, 
G2250, or FILES, record. 



M22 SUPERVISOR CONTROL 
RECORDS INCORRECTLY 
ORDERED 



LOCAL, NOCAL, FILES and G2250 records 
cannot be intermixed. All records of each type 
must be kept together. 



M23 INCORRECT 

CONTINUATION 



A comma at the end of the record indicated that 
the record would be continued; however, it was 
not. 



M24 ILLEGAL CHARACTER 
IN RECORD 



An illegal character, probably a blank, appeared 
in the record. 



M25 ILLEGAL FILE NUMBER 



A non-numeric character appears in a file number 
or the number is more than 5 characters long. 



M26 ILLEGAL NAME 



A name is more than 5 characters long, or contains 
characters other than A through Z, through 9, or 
$, or a name contains embedded blanks. 



M27 ILLEGAL CARTRIDGE ID 



The cartridge ID specified is not in the range 
/0001 through /7FFF or contains an illegal 
character. 



M28 SCRA BUFFER OVERFLOW 



The supervisor control record area (SCRA) cannot 
contain all the LOCAL, NOCAL, FILES, EQUAT, 
or G2250 record information. 



M29 ILLEGAL DISK 

SUBROUTINE REQUESTED 



A character other than 0, 1 , N, Z, or blank ap- 
peared in column 19 of the XEQ card. 



M30 INVALID CHAR. IN G2250 
OPTION COLUMN 



A character other than U, N, or blank appeared 
in column 13, 15, 17, 19, or 21 of the *G2250 
control record. 



M31 REQUESTED W.S. 
DR NOT AVIL. 



The requested cartridge has not been specified in 
the job record. 



Figure A-l 1. Phase 2. System Control Record Program error messages (Phase 2 errors cause 
execution to be bypassed) 



Cartridge ID and message 



Cause of error 



XXXX IS NOT AN AVAILABLE 
CARTRIDGE ID 



A requested cartridge ID is not on any cartridge 
on the system, or the ID is not listed #CIDN of 
the DCOM on the cartridge. 



XXXX IS A DUPLICATED 
SPECIFIED CARTRIDGE ID 



The cartridge ID was listed as appearing on more 
than one drive on the JOB card. 



XXXX IS A DUPLICATED 
AVAILABLE CARTRIDGE ID 



A specified ID appears on more than one cartridge 
on the system. 



XXXX IS NOT A SYSTEM 
CARTRIDGE 



An attempt has been made to specify a non-system 
cartridge as the master cartridge (logical 0). 



Figure A-l 2. SYSUP - DCOM update error messages 
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RPG Compiler 
messages and 
error notes 



RPG COMPILER MESSAGES AND ERROR NOTES 

compiler messages 



compilation errors 



Near the end of compilation, core usage information and literal parameters are printed in 
the following format: 

INDICATORS 

IND DISP . . Indicators through H9 are printed for all programs (relative address) 

FIELD NAMES 

FIELD DISP L T 

(field name) (field length) (field type) 



D... 

(number of 
decimal positions) 



LITERALS 

LITERAL LENGTH TYPE DISP . . . 

KEY ADDRESS OF OBJECT PROGRAM 
Name of routine Hex DISP . . . 

END OF COMPILATION 

See "Sample Program 3" in Appendix H for an actual program listing. 

The relative address that is printed can be used to compute the actual address of the; indi- 
cator, field, literal, or routine the program is loading. The actual address is computed as 
follows: add the relative address to the execution address (as printed in the core map) 
and subtract hexadecimal 1 1 from the sum. The answer is the actual address. 

If working storage is exceeded, compilation is terminated and the following message is 
printed: 

WORKING STORAGE EXCEEDED 

If terminating errors are detected during compilation, the following messages are printed: 

ERROR(S) IN COMPILATION 
END OF COMPILATION 

The program is executed if any of the detected errors are in the correctable class; that is, 
an asterisk (*) preceeds the error note number (see Figure A- 13 for an explanation of the 
asterisk). 

Compiler error notes are printed as follows: 

1. As each statement is processed, it is checked for invalid conditions. When an error 
is detected, the error note: 

NOTE xxx 

is printed on the line following the line in error in the columns reserved for program 
ID. (xxx is a 3-digit error note number.) 

2. The source program is checked for invalid file references (modified, unreferenced, 
multidefined) and error notes are printed as required. These notes are printed within 
or below the source listing in the following format: 

NAME NOTE xxx 

NAME is replaced with the name of the invalid file reference. 
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RPG Compiler 
messages and 
error notes 

3. After the printout of indicators, field names, and literals at the end of compilation, 
any errors on extended diagnostics are printed in the following format: 

Seq. No. Error 

EXTENDED FILE DEF. xxxx NOTE xxx 

EXT. AND/OR INPUT 
DIAGNOSTICS 

EXTENDED CALCULATION xxxx NOTE xxx 

SPECIFICATION 

DIAGNOSTICS 

EXTENDED OUTPUT xxxx NOTE xxx 

SPECIFICATION 

DIAGNOSTICS 

The sequence number (xxxx) is a 4-digit number that is assigned to program state- 
ments. Comments cards are not assigned sequence numbers. Some error messages 
(such as, 227 and 228) are printed together with the number of the statement 
following the error because the error cannot be determined until then. 

4. After the extended diagnostics, a summary of all error messages is printed as follows: 

DIAGNOSTIC MESSAGE EXPLANATIONS 

NOTE xxx y error message (y is the specification type) 

or 
NOTE *xxx y error message 
***UNCORR ERR JOB TERM 
A message is printed for each error. 

All RPG Compiler error notes are listed and explained in Figure A- 13. The term 
specification is dropped means that a statement is no further processed by the compiler; 
the term no immediate action taken means that the compiler continues processing a 
statement by looking for additional errors. An * preceding an error note number indicates 
that the error cannot be corrected. The program is not executed, and the key addresses of 
the program are not printed. 
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RPG Compiler 
error notes 




Note 


Spec 
type 


* 1 


F 


* 2 


F 


* 3 


F 



Error message 

FILE TYPE COL 15 INVALID 
PROC MODE COL 28 INVALID 
REC ADDR COL 29-30 INVALID 



RECADDRTYPECOL31 
INVALID. CORRECT ENTRY 
ASSUM 



Cause of error 

File Type entry is not I, O, U, or C, or is blank. 

Mode of Processing entry is not L, R, or blank. 

Length of Record Address Field (or key length) 
entry is invalid or is blank. 

Warning only. The correct value for the file 
type (column 32) is assumed. 



System action 

I is assumed. 
Blank is assumed. 
08 is assumed. 



Blank is assumed 
for sequential 
files. K is 
assumed for 
ISAM Files. 



5 F TABLE FILE COL 16 REQE 

COL 39. E ASSUM 

6 F FILE DESIGN INVALID WITH 

INPUT FILE 



7 F OF I ND COL 33-34 INVALID 

BLK ASSUM 

8 F FILE TYPE COL 15 INVALID 

ASSUM 

9 F MULT PRI FILES DEF. 

SEC ASSUM 



Extension Code entry must be E if File 
Designation entry is T (table file). 

File Designation entry column 16 is not 
P, S, R, C, or T with an input file (I in 
column 15). 

Overflow Indicator entry is invalid for the 
device type specified. 

File Type entry is invalid with a printer 
device in columns 40 through 46. 

Only one primary file (P in column 16) is 
allowed. Other input files are designated 
as secondary (S in corumn 16). 



E is assumed. 



P is assumed. 



Blanks are 
assumed. 

is assumed. 



Secondary is 
assumed for all 
but first input 
file. 



11 



12 



FILE ORG COL 32 INVALID 



EXT CODE COL 39 NOT BLK 
BLK ASSUM 



File Organization entry is not I, numeric 
(1 through 9), or blank; or, two I/O areas 
are specified for a table file. 

Extension Code must be blank for output 
files. 



Blank is 
assumed. 



Blank is 
assumed. 



13 



14 



EOF COL 17 INVALID 
E ASSUM 

SEQCOL 18 INVALID 
A ASSUM 



End of File entry is not E or blank. 



Sequence entry not A, D, or blank. 



E is assumed. 



A is assumed. 



15 



16 



17 



18 



FILE DESIG COL 16 NOT BLK. 
BLK ASSUM 

CIN FILE TYPE COL 15 
INVALID WITH DEVICE 

REC ADDR FILE REQ 
E COL 39. E ASSUM 



FILE FMT INVALID. 
F ASSUM 



File Designation entry is not blank for an Blank i> 

output file. assumed. 

File Type entry C requires card read punch READ 42 is 

in device columns 40 through 46. assumed. 

File Designation entry R (record address E is assumed. 

file) requires an E in Extension Code 

column. 

File Format (column 19) is not F. 1130 F is assumed. 
RPG uses fixed length records only. 



Figure A-13 (Part 1 of 14). RPG compiler error notes 
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RPG Compiler 
error notes 



Spec 
Note type 



Error message 



Cause of error 



System action 



19 



BLOCK LNG COL 20-23 NOT 
BLK. BLKASSUM 



Block Length must be blank for 1 130 RPG. 



Blanks are 
assumed. 



20 



REC LNG COL 24-27 INVALID. 
120 ASSUM PRINTER. ALL 
ELSE 80 



Record Length is improperly specified or is 
blank. 



120 is assumed 
for printer. 80 
is assumed 
otherwise. 



21 



U IN FILE TYPE COL 15 
INVALID WITH DEVICE 



File Type entry U requires disk I/O in 
device columns 40 through 46. 



DISK is 
assumed. 



22 



COL 17-18 INVALID WITH 
PRINTER. BLKASSUM 



End-of-File and Sequence entries are 
invalid with a printer. 



Blanks are 
assumed. 



23 



COL 28 INVALID WITH CHAIN 
FILE, R ASSUME 



Mode of processing must be random 
for chain file. 



R is assumed. 



24 



MORE THAN 8 SEC FILES DEF 



The number of secondary files (S1 in 
column 16) exceeds the maximum 
allowable 8. 



8 is assumed. 



25 



OF IND COL 33 34 INVALID 
BLK ASSUM 



Overflow indicator not OF on OV. 



Blanks are 
assumed. 



27 



EOF COL 17 NOT BLK WITH 
OUTPUT. BLKASSUM 



End-of-File entry must be blank with 
output files. 



Blank is 
assumed. 



29 



EXT CODE 39 INVALID. 
E ASSUM 



Extension Code entry is not E or blank 
with input file. 



E is assumed. 



30 



FROM FILENAME COL 11-18 
INVALID 



From Filename entry is missing or not 
left-justified. 



Specification is 
dropped. 



31 



FROM FILENAME COL 11-18 
INVALID 



From Filename entry was not defined Specification is 

on a File Description Specification form. dropped. 



32 



FROM FILENAME COL 11-18 
INVALID 



From Filename entry requires an E in 
Extension Code column on the File 
Description Specifications form. 



Specification is 
dropped. 



33 



CHAINING FLD COL 9-10 
INVALID 



Chaining Field entry is not CI, C2, or Specification is 

C3 for chaining file (same entry as dropped, 

columns 61 and 62 of Input Specifications 
form). 



34 



SEQCOL 7-8 INVALID 



Record Sequence entry must be 2 
alphabetic or 2 numeric characters for 
chaining file (same entry as columns 
15 and 16 of Input Specifications form). 



Specification is 
dropped. 



35 



TO FILENAME COL 19-26 
INVALID 



To Filename entry is missing or not left- Specification is 

justified on RAF or chaining type dropped- 

specifications. 



36 



TO Fl LENAME COL 19-26 
INVALID 



To Filename entry was not defined on RAF Specification is 

or chaining type specifications on a File dropped. 

Description Specifications form. 



Figure A-13 (Part 2 of 14). RPG compiler error notes 
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RPG Compiler 
error notes 



Spec 
Note type 



Error message 



Cause of error 



System action 



37 E TO FILENAME COL 19-26 

INVALID 



38 E COL 33-57 NOT BLK. 

BLK ASSUM 



39 E COL 7-10 NOT BLK. 

BLK ASSUM 



40 E COL 33-57 NOT BLK. 

BLK ASSUM 



41 E COL 7-10 NOT BLK. 

BLK ASSUM 



42 E TO FILENAME COL 19-26 

INVALID 

43 E TO FILENAME COL 19-26 

INVALID 

44 E TO FILENAME COL 19-26 

INVALID 



45 E TBL NAME COL 27-32 OR 

46-51 INVALID 



46 E COL 27-29 OR 46-48 

NOT TAB 



47 E NO OF TBL ENTRIES COL 

33-35 NOT NUMERIC 



48 E NO OF TBL ENTRIES COL 

36-39 NOT NUMERIC 



49 E TBL ENTRY LNG COL 40-42 

OR 52-54 NOT NUMERIC 



To Filename entry is not the same as the 
filename defined as a RAF or chaining 
type specification on a File Description 
Specifications form. 



Specification is 
dropped. 



Columns 33 through 57 of the Extension Blanks are 

Specifications form must be blank for all assumed, 
chaining type specifications. 

Columns 7 through 10 of the Extension Blanks are 

Specifications form must be blank for all assumed. 
RAF type specifications. 



50 E 



PACKED ENTRY COL 43 OR 
55 INVALID. BLK ASSUM 



Columns 33 through 57 of the Extension 
Specifications form must be blank for all 
RAF type specifications. 

Columns 7 through 10 of the Extension 
Specifications form must be blank for all 
table type specifications. 

To Filename entry is missing or not left- 
justified. 

To Filename entry was not defined on a 
File Description Specifications form. 

To Filename entry is not defined as an 
output file on a File Description 
Specifications form. 

Table Name entries missing or not left- 
justified. Columns 46-51 are required 
for alternating input formats only. 

First 3 characters of table names must be 
TAB. Columns 46 through 48 are re- 
quired for alternating input formats only. 

Number of table entries per record. 
These columns must contain a right- 
justified decimal number. 

Number of table entries per table. 
These columns must contain a right- 
justified decimal number. 

Length of table entry. These columns 
must contain a right-justified decimal 
number. Columns 52 through 54 are 
required for alternating input formats 
only. 

Packed entry is not P or blank, or 
invalid for specified device. 



Blanks are 
assumed. 



Blanks are 
assumed. 



Specification is 
dropped. 

Specification is 
dropped. 

Blanks are 
assumed. 



Specification 
dropped. 



TAB is 
assumed. 



10 is assumed. 



100 is assumed. 



8 is assumed. 



Blank is 
assumed. 
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Note 



Spec 
type 



Error message 



Cause of error 



System action 



51 



NUM DEC POS COL 44 OR 56 
INVALID 



Decimal positions is not -blank or a number. 



Zero is 
assumed. 



52 



TBLSEQCOL45 0R 57 
INVALID. BLK ASSUM 



Sequence entry is not A, D, or blank. 



Blank is 
assumed. 



53 



FORM TYPE COL 6 
NOT VALID 



The next specification should have been 
an E or I specification. 



Specification is 
dropped. 



56 



COL 47-65, 67-70 MUST BE 
BLK FOR 1130 RPG 



Specified columns are not used with 1 130 Blanks are 

RPG except for ISAM load files. assumed. 



57 



ISAM NUMBER OF RECORDS 
INVALID 



The number of records specified for an 
ISAM load (columns 47 through 52) is 
not numeric or left-justified. 



One is assumed. 



60 



NO RPG CONTROL CARD. 
BLK ASSUM 



Warning only. A compilation and listing 
will be performed for this run. 



Blanks are 
assumed for 
all entries. 



61 



COL 11 INVALID. 
BLK ASSUM 



Type of run. This entry should be B, D, 
or blank. 



Blank is 
assumed. 



63 



COL 17-20 INVALID. 
BLK ASSUM 



Sterling entries are not blank, 0, 1 , or 2, 
as required. 



Blanks are 
assumed. 



64 



COL 21 INVALID. 
BLK ASSUM 



Inverted print option entry is not I or 
blank. 



Blank is 
assumed. 



65 



COL 26 INVALID. 
BLK ASSUM 



Alternating collating sequence entry is 
not A or blank. 



Blank is 
assumed. 



67 



PROG NAME COL 75-80 INV. 
RPGOBJ ASSUM 



Program Name entry on RPG Control 
Card is invalid. 



RPGOBJ is 
assumed. 



71 



RSLT FLD COL 43-48 
REQUIRED 



Result Field name is required but is missing. 



Specification is 
dropped. 



72 



RSLT FLD COL 43-48 MUST 
BE BLK. BLK ASSUM 



Result Field must be blank for COMP, 
GOTO, EXIT, TAG, SETOF, SETON, 
CHAIN, BEGSR, ENDSR, EXSR, and 
EXCPT. 



Blanks are 
assumed. 



73 



FACT1, COL 18-27 INVALID 



Factor 1 requires a fieldname, label, or 
literal with the specified operation. 



Numeric literal 
1 is assumed. 



74 



FACT2 COL 33-42 INVALID 



Factor 2 requires a fieldname, label, or 
literal with the specified operation. 



Numeric literal 
1 is assumed. 



75 



RSLT IND COL 54-59 
INVALID. 00 ASSUM 



Resulting Indicator is not 01 through 99, 
H1 through H9, L1 through L9, OF, or OV. 



00 is assumed 
for indicator 
in error. 



76 



FACT1 COL 18-27 MUST BE 
BLK. BLK ASSUM 



Factor 1 entry must be blank for the 
operation being performed. 



Blanks are 
assumed. 



77 



FACT2 COL 33-42 MUST BE 
BLK. BLK ASSUM 



Factor 2 entry must be blank for the 
operation being performed. 
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Blanks are 
assumed. 
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type 




Nome 


Error message 


* 78 


C 


CTRL LEVEL COL 7-8 
INVALID 



Cause of error 



Control Level column 7 is not L or blank. 



System action 



Blank is 
assumed. 



79 



DETAI L CALC DOES NOT 
PRECEDE TOTAL CALC 



A detail calculation, columns 7 and 8 blank, 
follows a total calculation, columns 7 and 8 
LO through L9 or LR. 



LO is assumed. 



80 



FACT1 COL 18-27 INVALID 



Factor 1 entry is not left-justified. 



Numeric literal 
1 is assumed. 



81 



FACT2 COL 33-42 INVALID 



Factor 2 entry is not left-justified. 



Numeric literal 
1 is assumed. 



82 



FACT1 COL 18-27 INVALID 



Factor 1 entry is an improperly stated 
literal or field name. 



Numeric literal 
1 is assumed. 



83 



FACT2 COL 33-42 INVALID 



Factor 2 entry is an improperly stated 
literal or field name. 



Numeric literal 
1 is assumed. 



* 84 



FACT1 COL 18-27 INVALID 



Factor 1 entry is a field name of more than 
6 characters. 



First six 
characters are 
assumed. 



85 



FACT2 COL 33-42 INVALID 



Factor 2 entry is a field name of more than 
6 characters. 



First six 
characters are 
assumed. 



86 



OPER CODE COL 28-32 
INVALID 



Operation code is missing or unrecognizable. 



MOVE 

operation code 
is assumed. 



87 



CTRL LEV COL 7-8 
INVALID. LOASSUM 



Column 7 is L but column 8 is not through 
9 or R. 



LO is assumed. 



89 



RSLTFLD COL 43-48 
REQUIRED 



Result Field entry is improperly defined. 



Specification is 
dropped. 



94 



RSLTFLD LNG COL 49-51 
INVALID 



Field Length entry is blank, not numeric, 014 is assumed, 

or not right-justified; or. Field Length is assumed 

entry contains an embedded blank. for blank. 



95 



DEC POS COL 52 INVALID 



Decimal Position entrv is not blank or 
numeric. 



is assumed. 



96 



HLF ADJ COL 53 INVALID. 
H ASSUM 



Half adjust entry is not H or blank. 



H is assumed. 



97 C RSLTIND COL 54-59 

REQUIRED 



98 C IND COL 9-17 INVALID 



'100 I STERL COL 71-74 INVALID 



A resulting indicator is required for this 
operation. 



Indicator entry improperly defined. 



Sterling entry not numeric or sterling not 
defined on RPG Control Card. This note 
can be printed by input or output 
specifications. 



Internal 
indicator 
is assigned. 

Indicator is 
dropped. 

Blanks are 
assumed. 
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Note type Error message 



Cause of error 



System action 



'101 I FLDREC RELATION IND COL 

63-64 INVALID 



Field Record Relation Indicator 
unrecognizable. 



Blanks are 
assumed. 



'102 I 



PLUS, MINUS, ZERO/BLK 
IND COL 65-70 INVALID 



Indicator columns 65 through 70 
unrecognizable. 



Blanks are 
assumed. 



>103 I 



OVER 60 REC TYPE SPEC'S 



Input has more than 60 record identifica- Specification 

tion columns 6 through 42. is dropped. 



'109 



INPUT OR OUTPUT SPECS 
MISSING OR INVALID 



Input or output specifications are 
required. 



Job is 
terminated. 



110 I 



FORM TYPE COL 6 INVALID 



Form Type is not I, C, or O and 
column 7 does not contain an *. 



Specification 
is dropped. 



h 111 I 



'112 I 



FILENAME COL 7-14 
INVALID 

FILENAME COL 7-14 
INVALID 



Filename entry is not defined. 



Filename entry is not correctly defined 
on the File Description form. 



Specification 
is dropped. 

Specification 
is dropped. 



h 113 I 



'AND' CD OUT OF SEQ 



'AND' card is first card in deck, first 
specification after field name, or 
invalid file type. 



Specification 
is dropped. 



114 



NO RECORD ID IN CARD 
BEFORE 'AND' CARD 



Record ID entry columns 21 through 41 
of Input Specifications form required 
in card before 'AND' card. 



Specification 
is dropped. 



f 115 



'OR' CD OUT OF SEQ 



'OR' card is first card in deck, first 
specification after field name, or 
invalid file type. 



Specification 
is dropped. 



'116 



FILENAME COL 7-14 
INVALID 



Filename entry not left-justified. 



Specification 
is dropped. 



>117 



FILENAME COL 7-14 
INVALID 



Filename entry begins with a numeric 
character. 



Specification 
is dropped. 



118 



FILE AND FLD NAME ARE 
BOTH ON SAMESPEC 



File and field names cannot both appear 
on same specification. 



Filename entry 
is assumed. 



119 



SEQ COL 15-16 BLK. 
A A ASSUM 



Sequence entry must be 2 alpha or 2 
numeric characters. 



AA is assumed. 



120 



SEQ COL 15-16 ALPHA SEQ 
AFTER NUMSEQ 



Alpha sequence entries must appear 
before numeric sequence entries. 



Numeric 
sequence last 
used is 
assumed. 



>121 



SEQ COL 15-16 IS INVALID 



Ascending numeric sequence is required, 
or the first entries must begin with 01 . 



Numeric 
sequence last 
used is 
assumed. 



122 



NUMBER ENTRY COL 17 
INVALID. N ASSUM 



Sequence is numeric and the number 
entry column is not N or 1 . 
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N is assumed. 
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System action 



123 I 



OPTION ENTRY COL 18 
INVALID. OASSUM 



Sequence is numeric, and the option entry 
column is not or blank. 



is assumed. 



124 I 



125 I 



>126 I 



f 127 



128 



129 



REC IDENTIFYING IND COL 
19-20 INVALID. BLK ASSUM 

STKR SEL COL 42 INVALID. 
BLK ASSUM 



INVALID INPUT FILE 



POSITION ENTRY COL 
21-24, 28-31, 35-38 INVALID 

'NOT' ENTRY COL 25, 32 
OR 39 INVALID. N ASSUM 

C/Z/D ENTRY COL 26, 33 
OR 40 INVALID. C ASSUM 



Record Identifying Indicator entry is not Blanks are 

01 through 99. assumed. 

Stacker Select entry is one of the following: Blank is 

1. Not 1, 2, or blank. assumed. 

2. Specified with 2 I/O areas. 

3. Invalid with the reader specified. 

Input file has been specified as I, C, or U in No immediate 

column 15 of File Description Specifications action taken, 

form and no input specifications are found 
for that file. The file was not defined on an 
Extension Specifications form. 

Position entry contains a non-numeric is assumed, 

character. 

'NOT' entry not N or blank. N is assumed. 



Combined/Zone/Digit entry is not C, Z, C is assumed, 

or D. 



130 



FIELD NAME SPEC OUT OF 
SEQ 



Field Name Type specification is first in 
deck, after invalid filename or invalid 
AND or OR specification. 



Specification 
is dropped. 



*131 



>132 



f 133 



FLD NAME COL 53-58 
INVALID 

FLD NAME COL 53-58 
INVALID 

FROM OR TO COL 44-51 
INVALID 



Field Name entry is not left-justified. 



Field Name entry does not begin with an 
alphabetic character. 

From or To columns are blank. 



Specification 
is dropped. 

Specification 
is dropped. 

0001 is 
assumed. 



134 



FROM OR TO COL 44-51 
INVALID 



From or To columns contain a non- 
numeric character. 



is assumed. 



135 



TO COL 48-51 LESS THAN 
FROM COL 44-47 



Defined field length less than 1. 



1 is assumed. 



>136 



137 



PACKED INPUT FLD INVALID 



PACKED ENTRY COL 43 
INVALID. P ASSUM 



Packed input field length defined by From 
and To fields is greater than 8, or packed 
field is invalid for input device. 

Packed entry is not P or blank. 



8 is assumed. 



P is assumed. 



f 138 
'139 



DEC POS COL 52 INVALID 
NUMERIC FLDGT 14 



Decimal Positions are not numeric. 

Numeric field length is greater than 14 
characters. 
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is assumed. 

Field length 
of 14 is 
assumed. 
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Cause of error 



System action 



'140 



CTRL LEV COL 59-60 
INVALID 



Column 59 not L. 



L in column 
59 is assumed. 



'141 



CTRL LEV COL 59-60 
INVALID 



Column 60 is not numeric. 



1 in column 
60 is assumed. 



'142 



MATCH OR CHAIN ENTRY 
COL 61-62 INVALID 



Column 61 not M or C. 



M in column 
61 is assumed. 



'143 



MATCH OR CHAIN ENTRY 
COL 61-62 INVALID 



Column 62 is not numeric. 



1 in column 
62 is assumed. 



'144 



MATCH ENTRY COL 61-62 
NOT M1-M9 



Match entry is invalid. 



M9 is assumed. 



145 



RSLT IND COL 65-68 
SPECIFIED FOR NON-NUM 
FLD. INDIGN 



Plus and minus indicators cannot be 
used with an alphameric field. 



Indicator is 
ignored. 



'146 



ALPHA FLD GT 256 



Alphameric field length is more than 
256 characters. 



Field length of 
256 is assumed. 



'147 



STERL FLD INVALID 



Sterling field has more than 3 decimal 
positions specified. 



3 is assumed. 



*148 



STERL FLD INVALID 



Sterling field has no decimal positions 
specified. 



is assumed. 



149 



REC ID SPEC OUT OF SEQ 
OR NO FIELDS FOR 
GIVEN REC 



Warning only. Record ID specification No immediate 

is out of order, or no fields are indicated action is taken, 

for a given record. 



'150 



PACKED FLD MUST BE 
NUMERIC 



Decimal Position entry column 52 is 
blank. 



is assumed. 



'151 



FROM TO OR RECORD 
ID ZERO 



From, To, or Position entries are zero. 



0001 is 
assumed. 



152 



FLD RECPOSBLK, 

BUT TEST CHAR PRESENT 



Position entry 27, 34, or 41 contains 
a valid test character. 



No immediate 
action is taken. 



'155 



KEY SIZE EXCEEDS REC LNG 



Key length columns 29 and 30 (ISAM 
file) is greater than record length. 



No immediate 
action is taken. 



'158 



KEY LNG EXCEEDS 50 



Key length columns 29 and 30 (ISAM 
file) is more than 50 characters. 



50 is assumed. 



'159 



FLD NAME BEGINS WITH 
'TAB' BUT IS NOT 
TBLNAME 



Field name beginning with TAB is not a 
table name. Tables are defined on 
Extension Specifications form columns 
27 through 32. 



Specification 
is dropped. 



'160 



FORM TYPE COL 6 INVALID 



Next Form Type entry should have been 
0. 
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Specification 
is dropped. 



Monitor System Operational and Lrror Messages A-47 



RPG Compiler 
error notes 



Note 



Spec 
type 



Error message 



Cause of error 
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161 



INVALID OUTPUT SPEC 



Column 6 of specification contains an 0, 
but column 7 does not have * or start of 
filename. There is no H/D/T/E specified 
in column 15. The specification is not 
an AND or OR. 



Specification 
is dropped. 



162 



FILENAME COL 7-14 
INVALID 



Filename entry is missing, improperly 
defined, or undefined. 



Specification 
is dropped. 



>163 



H/D/T/E ENTRY COL 15 
OUTOFSEQ 



Output lines must be sequenced as 
follows: H/D/T/E. 



Specification 
is dropped. 



*164 O LINE TYPE COL 15 INVALID 

*165 O IND COL 23-31 MISSING ON 

'OR' SPEC. OOASSUM 



Line Type entry must be H, D, T, or E. 

'OR' specification requires conditioning 
indicators in columns 23 through 31. 



H is assumed. 

Indicator 00 
is assumed. 



166 



IND COL 23-31 MISSING ON 
'AND* SPEC. SPEC DROPPED 



'AND' specification requires conditioning Specification 

indicators in columns 23 through 31 . is dropped. 



167 



COL 32-70 MUST BE BLK ON 
LINE SPEC. BLK ASSUME 



File ID and CONTROL specification 
requires columns 32 through 70 blank. 



Blanks are 
assumed. 



168 



FIELD NAME COL 32-37 
INVALID. SPEC DROPPED 



Field Name entry is not left-justified. 



Specification 
is dropped. 



h 169 



IND COL 23-25, 26-28, OR 
29-31, INVALID OR OF OR 
OV NOT IN 33-34 OF FDS. 
SPEC DROPPED 



Output Indicator entry is incorrect. 



Blanks are 
assumed. 



h 170 



h 171 



*172 



173 



CARD OUT OF ORDER 



CARD OUT OF ORDER 



OUTPUT FLD SPEC WITH 
ENTRIES IN COL 7-22 



LEAD OR CLOSE QUOTE COL 
45-70 MISSING. NO EDIT 



'OR' or 'AND' card is out of sequence. 



Field type specification with column 15 
blank is not preceded by a valid line 
type specification. 

Output field specification requires 
columns 7 through 22 blank. 



Edit word must be enclosed by apostrophes. 



Specificcition 
is dropped. 

Specification 
is dropped 



Entries in 
columns 7 
through 22 
are ignored. 

No editing is 
performed. 



174 



EDIT CODE COL 38 INVALID 
OR USED WITH ALPHA FLD. 
BLK ASSUM 



Edit code used is invalid or an edit code 
has been specified with an alpha field. 



Blank is 
assumed. 



175 



BLANK AFTER COL 39 INVALID. 
BLK ASSUM 



Blank After entry not B or blank. 



Blank is 
assumed. 



176 



177 



PACKED ENTRY COL 44 
INVALID. BLK ASSUM 

COL 17-22 NON-BLK ON 
'AND' SPEC. BLK ASSUM 



Packed entry not P or blank, field is not 
numeric, or packed field is invalid. 
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Blank is 
assumed. 



Columns 1 7 through 22 are not blank on Blanks are 

'AND' specification. assumed. 
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System action 



178 



END POS COL 40-43 
INVALID. SPEC DROPPED 



End position in Output Record entry 
is blank, alphabetic, or is incompatible 
with constant or edit word. 



Specification 
is dropped. 



179 



LEAD OR CLOSE QUOTE COL 
45-70 MISSING. SPEC DROPPED 



Constant must be enclosed by apostrophes. 



Specification 
is dropped. 



M80 



FLD NAMED COL 43-48 
GT 14 



On an arithmetic operation, the field 
named in columns 43 through 48 is 
longer than 14 characters. 



Specification 
is dropped. 



h 181 



MOVE ZONE OPER INVALID 



Incorrect alphameric or numeric fields 
have been specified for this Move Zone 
operation. Only the low zone of a 
numeric field can be referred to. 



Specification 
is dropped. 



h 183 C 



FIELD NAME UNDEF 



The field name in Factor 1 , Factor 2, or 
Result Field is undefined. 



Specification 
is dropped. 



184 



FLD NAME UNREF 



Warning only. Field Name entry is 
unreferenced field or table name. 



No immediate 
action is taken. 



h 185 



FLD NAME MULT-DEF 



( 186 



ARITH OPER SPECIFIED 
WITH ALPHA FLD 



Field Name entry columns 53 through No immediate 

58 Input Specification, columns 43 action is taken, 

through 48 Calculation Specification, or 
columns 32 through 37 Output Specifica- 
tion contain a multidefined field name. 
The field name has been defined as alpha 
and numeric or as same field type with 
different lengths or as numeric field 
with different decimal positions. 

Arithmetic operation specified in operation Specification 

columns 28 through 32 with an alphameric is dropped, 

field specified in Factor 1, Factor 2, or 
Result field. 



f 187 



188 



'189 



f 190 



>191 



COMP OPER SPECIFIED WITH 
ALPHA AND NUM FLD 



RSLT FLD LNG COL 49-51 
MAY NOT BE LARGE ENOUGH 

FACT2 OR RSLT FLD NOT 
TBLNAME 



EXSR OPER CALLS ITSELF 



TESTZOPER INVALID 



Alphameric and numeric field being 
compared. Compare operations are 
valid only between like fields. 

Warning only. The Result Field may not 
be long enough to contain the true result. 

LOKUP requires table names in Factor 2 
columns 33 through 42, and Result Field 
columns 43 through 48 (if specified). 

Name in Factor 2 is the name of the sub- 
routine of which the EXSR operation is 
a part (a subroutine may not call itself). 

Result Field entry columns 43 through 48 
is numeric. TESTZ tests for a high-order 
zone punch of an alpha field. 



Specification 
is dropped. 



No immediate 
action is taken. 

Specification 
is dropped. 



Specification 
is dropped. 



Specification 
is dropped. 
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192 



GOTO AND TAG OPERS ARE 
NOT IN SAME CALC SECTION 



Label of the TAG operation and the 
corresponding GOTO are not in Detail 
or Total calculations. 



Specification 
is dropped. 



193 



194 



196 



'197 



h 198 



'199 



'200 



'201 



*202 



*203 



204 



205 



'206 



207 



HLF ADJ COL 53 IS 
INCOMPATIBLE. BLK ASSUM 



LOKUP OPER INVALID DUE 
TO UNEQUAL LNGS 



MVR OPER NOT PRECEDED 
BY DIV 



MVR OPER PRECEDED BY 
DIV WITH HLF ADJ 



LOKUP OPER SPECIFIED 
WITH ALPHA AND NUM FLD 



HIGH AND LOW RSLT IND 
SPEC FOR LOKUP OPER 

NO PRIMARY FILE 
SPECIFIED 



FORM TYPE COL 6 INVALID 



FILENAME COL 7-14 
INVALID 

MORE THAN 10 FILENAMES 
SPEC 



UNREF FILENAME 



FILE TYPE COL 15 INVALID 
WITH READ01 

DEVICE COL. 40-46 INVALID 



FILENAME COL 7-14 
MULT-RE F 



The number of positions of the arithmetic 
result is less than or equal to the specified 
decimal position of the Result Field; 
therefore, half-adjust cannot be performed. 



Blank is 
assumed. 



Length of Factor 1 columns 18 through 27 Specification 

and Factor 2 columns 33 through 42 are is dropped, 

not equal. 



There is no remainder to move. 



Half-adjust effectively removes any 
remainder. 



Factor 1 columns 18 through 27 and 
Factor 2 columns 33 through 42 must 
both be alpha or numeric. 

High and Low Resulting indicators are 
both specified for LOKUP operation. 

No P in column 16 of File Description 
Specifications form. One file must be 
defined as primary. 

Next Form Type entry should have been 
F, Eor I. 

Filename incorrectly specified. 



More than the maximum of 10 files 
are specified. 



Warning only. A file defined on the File 
Description Specifications form has not 
been used in the program. 

Device entry READ01 requires an I in 
File Type column 15. 

Device name is unrecognizable. 



MVR 
operation 
is ignored. 

MVR 
operation 
is ignored. 

Specification 
is dropped. 



Low indicator 
is ignored. 

Job is 
terminated. 



Specification 
is dropped. 

Specification 
is dropped. 

Only the first 
10 are 
processed. 

No immediate 
action is taken. 



Specification 
is dropped. 

Job is 
terminated. 



The filename is specified on the Input or No immediate 

Output Format Specifications form more action is taken, 

than once. 



*208 



FILENAME COL 7-14 
MULT-DEF 



The same filename is defined on two File 
Description Specifications forms. 
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Second 
specification 
is dropped. 
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'210 



NO IND OR ONLY PREDEF 
IND SPEC FOR INPUT REC 



At least one indicator is required on input Job is 

specifications. terminated. 



'212 



UNDEFINED RESULT IND 



Result indicator used but not defined. 



No immediate 
action is taken. 



213 



UNREFERENCED IND 



Warning only. Indicator specified but not 
used. 



No immediate 
action is taken. 



215 



Fl LE DESCR SPEC WITH E 
COL 39 NOT REFONEXT 
SPEC 



File description specification with E in 
column 39 is not used on an extension 
specification. 



No immediate 
action is taken. 



219 



FLD NAME COL 32-37 
UNDEFINED. SPEC DROPPED 



Name must be defined on Input or 
Calculation Specifications form. 



Specification 
is dropped. 



*221 



*222 



'223 



MATCH FLD LNGS 
INCOMPATIBLE 



TBL NAME MULT-DEF 



FLD IS OUTSIDE THE REC 



Sum of Matching Field lengths must be 
equal for all record types having 
matching records specified, or matching 
fields separated by fields conditioned on 
Field Record Relation indicators. 

Same name used for two tables, or the 
table has been defined as alpha and 
numeric or as same type with 2 lengths 
or decimal positions. 

The input field specified in columns 
44-51 is outside the physical record 
specified in columns 24-27 of the file 
description specification. 



No immediate 
action is taken. 



No immediate 
action is taken. 



No immediate 
action is taken. 



'224 



SPLIT CHAIN FLDS 
IMPROPER 



Split chain fields are improperly specified. 



No immediate 
action is taken. 



'225 



SPLIT CTRL FLDS 
IMPROPER 



Split control fields are improperly specified. 



No immediate 
action is taken. 



*226 



SPLIT MATCH FLDS INVALID 



Split matching fields are not allowed. 



No immediate 
action is taken. 



♦227 



'228 



*229 



'230 



MATCH FLD LNGS 
INCOMPATIBLE 

CTRL FLD LNG 
INCOMPATIBLE 



CHAIN FLD LNG 
INCOMPATIBLE 

CTRL FLD LNG GT 247 



All match fields of the same level must be No immediate 

the same length on all record types. action is taken. 

The control field on a given control level No immediate 

must be the same length for all record action is taken, 
types. 

All fields using the same chaining indicator No immediate 

must be the same length on all record types. action is taken. 

The sum of the control fields on all levels No immediate 

used on a record type cannot exceed 247 action is taken, 
characters. 



'231 



232 



FLD AREA GT REC SIZE 



PRINTER FILE BLK COL 17-22. 
SPACE 1 AFTER ASSUM 



Input field area size exceeds input record No immediate 

length. action is taken. 

Entry required in columns 17 through 22 Single space 

for printer carriage control. after is assumed. 



Figure A-13 (Part 12 of 14). RPG compiler error notes 
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RPG Compiler 






error notes 


Spec 








Note 


type 


Error message 


233 





STKR SEL COL 16 INVALID 
BLK ASSUM 



Cause of error 



Stacker select invalid for output device, or 
entry is incorrect (not 1 or 2). 



System action 



Blank is 
assumed. 



234 



SPACE BEFORE, COL 17, 
INVALID. 1 ASSUM 



There is an entry in column 17, but it is 
not 0, 1,2, or 3. 



Single space 
before is 
assumed. 



235 



SPACE AFTER, COL 18, 
INVALID. 1 ASSUM 



There is an entry in column 18, but it is 
notO, 1,2, or 3. 



Single space 
after is assumed. 



236 



SKIP BEFORE, COL 19-20 
INVALID. BLK ASSUM 



There is an entry columns 19 and 20, but Blanks are 

it is not 01 through 12 or with an 1 132 assumed. 

Printer the skip is to channel 7, 8, 10, or 1 1 . 



237 



SKIP AFTER, COL 21-22, 
INVALID. BLK ASSUM 



There is an entry in columns 21 through 22 Blanks are 

but it is not 01 through 12 or with an 1132 assumed. 

Printer the skip is to channel 7, 8, 10, or 1 1 . 



238 



PACKED FLD COL 44 NOT 
NUM. BLK ASSUM 



Output field is alpha. 



Blank is 
assumed. 



239 



EDIT CODE COL 38 SPECIFIED 
ON ALPHA FLD. BLK ASSUM 



Alpha fields cannot be edited with an edit 
code. 



Blank is 
assumed. 



240 



STERL SPECIFIED ON NON- 
NUM FLD, NO STERL ASSUM 



Sterling option columns 71 through 74 
requested for alpha field. 



No sterling 
is assumed. 



'241 



EDIT WD TOO SMALL 



Edit word is too small for field. 



No immediate 
action is taiken. 



*242 O EDIT FLD NOT NUM 



Alpha fields not edited. 



No immediate 
action is taken. 



'243 



DOLLAR SIGN INVALID 



Both fixed and floating dollar sign have 
been specified. 



No immediate 
action is taken. 



'244 



BOTH CR AND - USED 



Both CR and minus are used for credit. 



No immediate 
action is taken. 



*245 



OUTPUT SPEC INVALID 



Output specifications are missing or are 
invalid for this program. 



Job is 
terminated. 



'246 



PAGE FLD IS DEF AS ALPHA 



PAGE defined on Input Specifications No immediate 

form with no decimal position in column action is taken. 

52. 



'247 



FLD LNG GT END POS COL 
40-43 



Output field length is greater than the No immediate 

indicated End Position in Output Record action is taken, 

columns 40 through 43. 



h 248 



INDEX SEQ FILE ADDITION 
COL 66 INVALID 



Column 66 must contain an A for ISAM 
ADD functions. 



No immediate 
action is taken. 



'250 



INDEX SEQ KEY LNG COL 
29-30 INVALID 



Key Length entry columns 29 and 30 is 
not numeric. 



Figure A-13 (Part 13 of 14). RPG compiler error notes 



8 is assumed. 
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RPG Compiler 
error notes 



Spec 
Note type Error message 



Cause of error 



System action 



251 



F INDEX SEQ KEY START POS 

COL 35-38 INVALID. 1 ASSUM 



Key field must start in position one of 
record. 



0001 is 
assumed. 



'252 



END POS GT RCD LNG 



Output field length is greater than Record No immediate 

length (columns 40 through 43). action is taken. 



*254 O 'ADD' COL 16-18 MUST BE 

SPEC 



'ADD' must be specified if records are 
added to an ISAM file. 



Specification 
is dropped. 



'255 



FACT2 COL 33-42 INVALID 



Entry in Factor 2 must be filename 
described as a chained file on the File 
Description Specifications forms. 



No immediate 
action is taken. 



256 



CTRL LEV COL 7-8 
INVALID. SR ASSUM 



Closed subroutine must follow total 
calculations. 



SR is assumed. 



*257 



ERROR IN SEQ OF ENDSR- 
BEGSR 



BEGSR operation must come first. 



No immediate 
action is taken. 



*258 



BEGSR OR EXSR FACTORS 
INVALID 



BEGSR— Subroutine name must appear 
in Factor 1 columns 18 through 27. 
EXSR— Subroutine name must appear 
in Factor 2 columns 33 through 42. 



No immediate 
action is taken. 



259 



COL 49-59 MUST BE BLK WITH 
EXSR OR EXCPT. BLK ASSUM 



EXSR or EXCPT operation codes require Blanks are 

columns 49 through 59 blank. assumed. 



260 



COL 9-17 MUST BE BLK WITH 
BEGSR. BLK ASSUM 



BEGSR operation code requires columns Blanks are 

9 through 17 blank. assumed. 



262 



COL 49-53 MUST BE BLK 
WITH CHAIN. BLK ASSUM 



CHAIN operation code requires columns Blanks are 

49 through 53 blank. assumed. 



263 



IND COL 56-57 MUST BE 
THE SAME AS IND COL 
54-55 HIGH ASSUM 



The same indicator must be specified as 
high and low indicator. 



High indicator 
is assumed for 
high and low. 



264 



CHAIN SPECIFIED WITH IND 
IN COL 58-59. BLK ASSUM 



Equal indicator cannot be specified on 
chaining operation. 



Blanks are 
assumed. 



'265 



PAGE FLD INVALID 



Page field must be numeric. Field length 
must be 4 with zero decimal positions. 



Field length of 
4 and zero 
decimal 
positions are 
assumed. 



270 



SKIP INVALID FOR CONSOLE 
PRINTER. BLK ASSUM 



Console printer has no provisions for 
forms skipping. Columns 19 through 
22 must be blank. 



Figure A-13 (Part 14 of 14). RPG compiler error notes 



Blanks are 
assumed. 
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Core Load Builder 
messages 

CORE LOAD BUILDER MESSAGES 



Except for the core load map described in Chapter 6, "Programming Tips and Techniques," 
and messages R41-R45 listed in Figure A- 14, the core load builder does not print infor- 
mational messages. All core load builder messages are listed in Figure A- 14. These messages 
include the message number and message, the causes of the error messages, and your 
corrective actions where appropriate. 
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CLB Error Messages 



Error number and message 

R00 LOCALS/SOCALS 

OVERFLOW 
WORK STORAGE 



R01 ORIGIN BELOW 

1ST WORD OF 
MAINLINE 



R02 DEFINE-FILE(S) 

OVERFLOW 
WORK STORAGE 

R03 NO DSF PROGRAM 

IN WORKING 
STORAGE 

R05 INVALID 

LOADING ADDR 
FORILS02 



Cause of error 

Enough working storage is not available 
to accommodate the LOCAL and/or 
SOCAL overlays required by the core 
load. 



The core load builder has been instructed 
to load a word into an address lower than 
the first word of the mainline program. 



Enough working storage is not available to 
accommodate any records of the defined 
file(s). 

Working storage does not contain a program 
when the core load builder is called. 



ILS02 has been loaded into low COMMON. 
If error message R48 is also printed, see R48. 
If ILS02 (or ILSX2) can be relocated, this is 
a warning message only. 



Your response 

Do one of the following: 

1. Change the working storage ID on the JOB 
control record to the ID of the cartridge 
on the system that contains the most 
available working storage. 

2. Create more working storage on the present 
cartridge by deleting subroutines, subprograms, 
and/or data that is no longer required. 

Do one of the following: 

1. Remove the ORG statement that is causing 
the problem. 

2. Assign the mainline program origin at a lower 
address. 

See the options for error message R00. 



Load the desired program into working storage. 



Make the mainline program longer so that 
ILS02 can be loaded in a higher address. 
If the mainline program is a system program, 
restore the system I LSs and store the 
program in core image format. 



R06 



R07 



R06 



R09 



R16 



FILE(S) 
TRUNCATED 
(SEE FILE MAP) 



TOO MANY 
ENTRIES IN LOAD 



CORE LOAD 
EXCEEDS 32K 



LIBF TV REQUIRES 
84 OR MORE 
ENTRIES 

XXXXXISNOTIN 
LET OR FLET 



At least one defined file has been truncated, 
either because the previously defined 
storage area in the user area or fixed area is 
inadequate, or because enough working 
storage is not available to store the file. 

More than approximately 375 different 
entry points are referenced in the core 
load by CALL and/or LIBF statements. 
If your system has a 4K core size, the number 
is approximately 125. 

The core load builder has been instructed 
to load a word into a core address that 
exceeds 32767 (a negative number). The 
loading process is immediately terminated, 
since the core load builder cannot process 
negative addresses. This error is probably 
caused by bad data being read from the 
disk. 

At least 82 different entry points are 
referenced in the core load by LIBF 
statements. 

The program name or data file name 
printed cannot be found in LET or 
FLET. 



Do one of the following: 

1. Redefine the user area or fixed area file. 

2. Change the record count specification in the 
DEFINE FILE statement. 

Divide the core load into 2 or more links. 



Divide the core load into 2 or more links. 



Store the program or data file. If the name 
cannot be explained, the program being 
loaded has probably been destroyed (bad 
data was read from the disk). 



Figure A-14 (Part 1 of 4). Core load builder error messages 
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CLB Error Messages 



Error number and message 



Cause of error 



Your response 



R17 



XXXXX CANNOT 
BE A LOCAL/ NOCAL 



The program named in this message is either 
a type that cannot appear on a * LOCAL 
control record, or is a LOCAL that has been 
referenced, directly or indirectly, by another 
LOCAL. 



R18 



XXXXX LOADING 

HAS BEEN TERMINATED 



The loading of the mainline program named 
in this message has been terminated as a result 
of the errors listed in the messages preceding 
this one. 



R19 XXXXX IS NOT A 

DATA FILE 



R20 XXXXX COMMON 

EXCEEDS THAT , 
OF ML 

R21 XXXXX PRECISION 

DIFFERENT FROM 
ML 



R22 XXXXX AND 

ANOTHER VERSION 
REF'ENCED 



The area named in this message does not begin 
at a sector boundary, which implies that 
it is not a data file but a DSF program, and 
thus a possible error. 

The length of COMMON for the subroutine 
named in this message is longer than that 
of the mainline program. 

The precision, both real and integer, for 
the subroutine named in this message 
is incompatible with that of the mainline 
program. 

At least 2 different versions of the same 
ISS have been referenced; thai; is, 
CARDZ and CARDO (FORTRAN uses 
CARDZ). If a disk subroutine is named 
in the message, it is possible that the 
XEQ control record specifies one version 
(DISKZ) whereas the program references 
another (DISKN). (A blank in column 19 
of the XEQ control record causes DISKZ 
to be used.) 



Choose another area for the storage of this file. 



Define more COMMON for the mainline program. 



Make 'EXTENDED PRECISION or *ONE WORD 
INTEGERS the same in the named subroutines 
and the mainline program. 



Change the references so that the core load uses 
only one version of any given I/O subroutine. 



R23 



XXXXX SHOULD BE 
IN THE FIXED AREA 



The area named in this message is in the 
user area. 



References in DEFINE FILE and DSA statements 
for *STORECI functions must be to the fixed area. 



R39 XXXX is not 

CURRENTLY 
MOUNTED 

R40 XXXX (HEX) = 

ADDITIONAL CORE 
REQUIRED 



XXXX is a cartridge ID specified on an 
*FILES:card, but not the ID of a cartridge 
currently mounted. 

One of the following: 

1. If the core load was executed, /XXXX 
is the number of words by which it 
exceeded core before the core load 
builder made it fit by creating special 
overlays (SOCALs). 

2. If the core load was not executed, 
/XXXX is the number of words still 
required after the core load builder 
has attempted to make it fit by using 
SOCALs. 



Change *FILES card to reference an 
available cartridge or mount the requested 
cartridge and restart the job. 

For the second case, create more links or L.OCALs. 



R41 



XXXX (HEX) 
WORDS UNUSED 
BY CORE LOAD 



Not an error. /XXXX is the number of 
words of core storage not used by this 
core load. 



R42 XXXX (HEX) 

IS THE EXECUTION 
ADDR 



Not an error. This message follows every 
successful conversion from DSF to DCI 
when a core map is requested. 

Figure A-14 (Part 2 of 4). Core load builder error messages 
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Error number and message 



R43 



R44 



R45 



R46 



R47 



R48 



XXXX(HEX) = 

ARITH/FUNC 

SOCALWDCNT 



XXXX(HEX) = 

Fl/O, I/O 
SOCAL WD CNT 



XXXX(HEX) = 
DISK Fl/O SOCAL 
WD CNT 



XXXX(HEX) =AN 
ILLEGAL ML ADDR 



XXXX(HEX)TOO 

MANYWDSIN 

COMMON 



XXXX(HEX) 



Cause of error 

Not an error. Special overlays 
(SOCALs) are required. /XXXX is the 
length of the arithmetic/function overlay 
(see "Incorporating Subroutines" in 
Chapters). 

Not an error. Special overlays (SOCALs) 
are required. /XXXX is the length of the 
FORTRAN I/O, I/O, and conversion 
subroutine overlay (see "Incorporating 
Subroutines" in Chapter 3). 

Not an error. Special overlays (SOCALs) 
are required. /XXXX is the length of the 
disk FORTRAN I/O overlay, including 
the 320 word buffer. 

One of the following: 

1. /XXXX is the address where the core 
load builder has been requested to start 
loading the mainline program. However, 
this address is lower than the highest 
address occupied by the version of disk 
I/O requested for this core load. 

2. This error may also be caused by 
starting an absolute mainline program 
at an odd location. An ORG to an 
even location, followed by a BSS 

of an odd number of words, has the same 
effect as an ORG to an odd location. 

The length of COMMON specified in the 
mainline program plus the length of the 
core load exceeds core storage by 
/XXXX words. Defined COMMON for this 
coreload overlaps low COMMON by /XXXX 
words. 

This message is printed with message R05. 



CLB Error Messages 



Your response 



Do one of the following: 

1. Assign the mainline program origin at a higher 
address. 

2. Request a shorter version of disk I/O. 

3. Assign the mainline program origin at an even 
boundary. 



Do one of the following: 

1. Decrease the size of COMMON. 

2. Request a shorter version of disk I/O. 



The hex value is the number of words that must 
be added to your mainline program. The reason for 
this addition is that I LSX2 or a user-written I LS02 
would have been loaded into an area where word 
count and sector address are temporarily placed by 
the disk routine as a result of an entry to the 
$DUMP entry point in the skeleton supervisor. 



R64 



XXXXX IS BOTH 
A LIBF AND A CALL 



The subroutine named in this message 
is either improperly referenced; that is, 
a CALL instead of a LIBF or vice versa, 
or has been referenced in both CALL 
and LIBF statements. 



R65 XXXXX HAS MORE 

THAN 14 ENTRY 
POINTS 



This message usually means that the 
subroutine has been destroyed since 
a subroutine is not stored if it contains 
more than 14 entry points. 

Figure A-14 (Part 3 of 4). Core load builder error messages 
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CLB Error Messages 

Auxiliary Supervisor 

error messages 

Error number and message 



R66 



R67 



R68 



XXXXX HAS 
AN INVALID 
TYPE 



XXXX HAS AN 
INVALID GSB 
ADDRESS 

XXXXX FILE 
NUMBER 
PREVIOUSLY 
USED 



Cause of error Your response 

One of the following: 

1. The subroutine named in this 
message: 

* Has been designated on an 
XEQ control record and is 
not a mainline program, or 

* Contains a type code other 
than 3 (LIBF subprogram, not 
an ISS), 4 (CALL subprogram, 
not an ISS), 5 (ISS referenced 
by LIBF), 6 (ISS referenced 
by CALL), or 

* Has been stored with an 
appropriate subtype. 

2. This error can also be caused by 

a DSA statement referencing a DSF 
program, or a CALL or LIBF 
referencing a program in DCI or DDF. 

The subroutine named has a Graphic 
Short Branch order address that is 
larger than 81 91 after relocation. 



The data file named in this message 
appears on an 'FILES control record 
equated to a file number that has 
been previously assigned to another 
data file. 



Figure A-14 (Part 4 of 4). Core load builder error messages 



Change the file numbers on the "FILES control 
record to point to unique data files. 



AUXILIARY SUPERVISOR ERROR MESSAGES 



The auxiliary supervisor does not print informational messages. Figure A- 15 lists the 
auxiliary! supervisor error messages. 



Error number and message 

500 INVALID FUNCTION CODE 

501 XXXXX IS NOT IN LET/FLET 

502 XXXXX IS A DATA FILE 

Figure A-15. Auxiliary supervisor error messages 



Cause of error 

The auxiliary supervisor received an illegal 
parameter. 

The core image loader is unable to find the 
name specified in this message in LET or 
FLET. 

The specified name cannot be executed 
since it is a data file, not a program. 
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Mainline Program Messages 
IDENT 
DISC 



MONITOR SYSTEM LIBRARY MAINLINE PROGRAMS MESSAGES AND ERROR MESSAGES 

The following text describes the informational messages and error messages printed by the 
mainline programs that are a part of the monitor system library. These programs are des- 
cribed in Chapter 4. 

IDENT Messages 

At the end of execution of the IDENT program, the following message is printed: 

PHYSICAL DRIVE CART. ID 

YYYY XXXX 

YYYY is replaced with the physical drive number, beginning with 0000, and XXXX is 
replaced with actual cartridge IDs. One line is printed for each ready drive. 

DISC Messages and Error Messages 

When DISC is executed, the contents of the *ID control record are printed on the princi- 
pal print device. Then, if errors occur, any of the following messages may be printed, 
depending on the errors: 



Error message 

CARTRIDGE XXXX INVALID 
... LOGICAL ID 



CARTRIDGE XXXX NEW 
LABEL IS INVALID 

CARTRIDGE XXXX IS NOT 
AVAILABLE 



Cause of error 

The ID of the master cartridge (logical 
drive 0) is specified as a current ID on 
the *ID control record. XXXX is the 
ID of the master cartridge. 

The new label XXXX is outside the range 
/0001 through /7FFF. 

A selected cartridge with the ID XXXX is 
not on the system or the selection of XXXX 
results in the definition of more than 5 
LOGICAL drives. 



CARTRIDGE XXXX IS 
DEFECTIVE 



Sector @IDAD, or more than 3 cylinders, 
on the identified cartridge are defective 
(to identify the defective cylinders, 
initialize the cartridge with the stand- 
alone program DCIP). 
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Mainline Program Messages 
ID 
COPY 



At the end of reinitialization, the following is printed: 

XXXXYYYY NOT DONE 

or 
XXXXYYYY COMPLETE 

where 

XXXX is the old (FID1) cartridge ID. 
YYYY is the new (TID1) cartridge ID. 

One of these messages is printed for each satellite cartridge that is reinitialized. A NOT 
DONE message is printed only if an error message has been printed. 

ID Messages and Error Messages 

At completion of the execution of the ID program, the following is printed: 

FFFF TTTT NOT DONE 

or 
FFFF TTTT COMPLETE 

where 

FFFF is the FROM cartridge ID. 
TTTT is the TO cartridge ID. 

One of these messages is printed for each cartridge ID that is changed (maximum of 4). 
The NOT DONE message is printed when a selected cartridge is not found on the system. 

COPY Messages and Error Messages 

At completion of the copy program, one of the following messages is printed for each 
copy requested on the *ID control record: 

FFFF TTTT NOT DONE 
FFFF TTTT NOT PRES 
FFFF TTTT NO. ERROR 
FFFF TTTT COMPLETE 

where 

FFFF is the source cartridge ID. 

TTTT is the object cartridge ID. 

NOT PRES indicates that the cartridge with the requested ID is not on the system. 

NO. ERROR indicates that the requested ID is not within the range /0001-/7FFF. 

When at least one COMPLETE message is printed, all of the cartridges on the system are 
listed. 



A-60 



Mainline Program Messages 
DLCIB 
MODIF 

DLCIB Messages and Error Messages 

When the CIB is deleted from a cartridge, the following message is printed at the comple- 
tion of the DLCIB program: 

CART UA/FX FPAD 
XXXX YYYY NNNN 

where 

XXXX is the cartridge ID. 

YYYY is the sector address of the user area. 

NNNN is the file protect address. 

If the CIB cannot be deleted, 

XXXX ERROR 

is printed. XXXX is the cartridge ID. 

This error message is printed if: 

• The cartridge ID specified in the *ID control record is not on the system. 

• The cartridge ID specified in the *ID control record is not specified on the current 
JOB monitor control record. 

• The specified cartridge is a system cartridge. 

• The CIB is already deleted from the specified cartridge. 

• The CIB on the specified cartridge is specified as system CIB by the current JOB moni- 
tor control record. 

MODIF Messages and Error Messages 

When execution of MODIF is completed successfully, the following messages are printed 
on the principal printer: 

MODIF EXECUTION OWXX 
MODIF COMPLETED OYZZ 

where 

WXX is the old version and modification number. 
YZZ is the new version and modification number. 

If an error is detected during execution of MODIF, an error message is printed in the 
following format: 

ERROR# XXXX XXXX 

where 

XXXX represents hexadecimal numbers. 

The system waits for an operator response. All MODIF errors and operator recovery 
procedures are listed in Figure A-16. 
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Error 
number 



f 



Description 



Invalid patch control 
record {*MON or 
*SUB) 



Operator's 
switch option 



No switches on 



Switch on 



Operator recovery procedure 

(Note that the instruction 
PRESS START, if not stated, 
is implied in each of the 
following procedures.) 



Correct error and reread from 
corrected patch control record. 
(If the error has occurred on 
the first patch control record, 
restart the modification.) 

Press START to call EXIT 



Remarks 



First hexadecimal 
number printed 



Second hexadecimal 
number printed 





2 




0) 






2 


3_ 


o 


5" 


o 


CD 






-n 


-o 


CD 


o 




CO 






o 


a> 




3 


3 




C 


2 


3 


CD 
en 


CT 


en 


CD 


0) 




en 


en 


CD 




en 



This terminates 
modification. 



Checksum error on 
binary patch data 
record 



No switches on 



Switch on 



Switch 15 on 



Rechecksum and reread from 
preceding patch control record. 
(If the error has occurred on 
the first patch control record, 
restart the modification.) 

Press START to call EXIT 



Reread card in error (cards 
may be out of order). 



Amount of checksum 
difference 



This terminates 
modification. If 
word 2 is blank, 
the test for a 
valid checksum 
is not made. 



Number of binary 
records read after 
patch header (in- 
cluding record in 
error) 



Invalid hex data 
record 



Modification level error 
in system modification 
update 



No switches on 

Switch on 

Switch 15 on 
No switches on 

Switch on 



Correct error and reread from 
preceding patch control record. 

Press START to call EXIT 

Reread card in error. 

Correct error and reread from 
corrected patch control record. 

Press START to call EXIT 



This terminates 
modification. 



This terminates 
modification. 



Present version and 
modification level 
(from DCOM on disk) 



Level of version and 
modification (from 
natch control recT*"" 



Tl 



Error 




Operator's 


number 


Description 


switch option 


5 


New modification level 
lower than current level 
in system modification 
update 


No switches o 

Switch on 
Switch 15 on 



Operator recovery procedure 

Correct error and reread from 
corrected patch control record. 



Press START to call EXIT 



Press START to continue 



Remarks 



This terminates 
modification. 

Level is reduced 
and program 
continues. 



First hexadecimal 
number printed 

Present version and 
modification level 
(from DCOM on disk) 



Second hexadecimal 
number printed 

Level of version and 
modification (from 
patch control record) 



O 

"8 



Monitor control 
record or // DEND 
card read before required 
number of patches read 



DCOM configuration 
indicators do not agree 
with SLET or required 
system I/O routine 
missing 

DUP control record 
errors (DELETES 
or STORES) 



SLET ID not found 

Patch exceeds space 
allotted on disk for 
this phase 

// DEND card not 
found (patches com- 
pleted but version 
and modification level 
in DCOM not updated) 



No switches on 



Switch on 



Switch on 



No switches on 



No switches on 
No switches on 



No switches on 



Press START to continue 



Press START to call EXIT 



Press START to call EXIT 



Press START to continue 



Press START to continue 
Press START to continue 

Press START to call EXIT 



New patch 
control 
record is read . 

This terminates 
modification. 

This terminates 
modification. 



Number of patches 
not installed 



This terminates 
modification. 



Contents of 
ACCUMULATOR 
when error was 
detected 



XXYY where XX is the 
number of DUP errors 
detected (see DUP error 
printout) and YY is the 
number of DUP control 
records not processed. 

SLET ID in question 

High core patch address 



Address +2 from 
which error branch 
was executed 



Number of DUP con- 
trol records specified 
on *SUB patch con- 
trol record 



High core SLET 
address 





^ 




Q)_ 


s 


3~ 


o 


5' 


D 


CD 






Tl 


T3 


CO 


O 




CQ 






O 


CD 




3 


D 




C 


S 


3 


CD 


C7 


VS 


CD 


CD 




CQ 


en 


CD 



System modification 
update mixed with 
temporary fixes 



No switches on 



Press START to call EXIT 



This terminates 
modification. 
Preceding 
patches in this 
MODIF JOB 
have been 
installed. 





^ 




CB 


^ 


3^ 


o 


5' 


D 


CD 






Tl 


TJ 


CD 


O 




(D 






O 


Q) 




3 


3 




C 


2 


3 


CD 


or 


c/> 


CD 


Q) 




(O 


» 


CD 



•n 


Error 




Operator's 


-i 


number 


Description 


switch option 


> 


C 


Modification level 


No switches on 


CT\ 




error in general 




""3 




temporary fix 





■Viodificdiion ievei 
error in restricted 
temporary fix 



Operator recovery procedure 

Press START to call EXIT 



i\io swiicnes or 



Piess START io call EXIT 



Remarks 

This terminates 
modification. 
Preceding 
patches in this 
MODIF JOB 
have been 
installed. 

This terminates 
modification. 
Preceding 
patches in this 
MODIF JOB 
have been 
installed. 



First hexadecimal 
number printed 

Present version and 
modification level 
(from DCOM on 
disk) 



present version ano 
modification level 
(from DCOM on 
disk) 



Second hexadecimal 
number printed 

Version and modifi- 
cation level (from 
patch control 
record) 



version and modiTi 
cation level (from 
patch control 
record) 



Mainline Program Messages 
MODSF 

MODSF Messages and Error Messages 

All update requests read by MODSF are listed on the principal printer, along with an 
indication of the results of the requests. Upon successful completion of an update that 
does not expand a program: 

MODIFICATIONS MADE 

is printed after the list of requests. When an *END control record is read and the program 
is not expanded: 

SUCCESSFUL COMPLETION 

is printed after the *END control record. 

When an update that expands a program is successfully completed: 

MODIFICATIONS MADE IN WORKING STORAGE 

is printed after the list of requests. When an *END control record is read after a successful 
update that expands a program: 

(*DELETE/*STORE RECORDS MUST FOLLOW) 

is printed after the *END control record. 

When an error is detected by MODSF: 

**ERROR nn** 

PROGRAM WAS NOT MODIFIED 

is printed after the list of requests (nn represents the error number). Any previous program 
for which the message: 

MODIFICATIONS MADE 

has been printed, have been successfully updated; the current program is not updated, and 
any succeeding programs are bypassed. A program is never partially updated by MODSF. 
The MODSF error codes that are printed in the error message are listed in Figure A- 17. 
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Mainline Program Messages 
MODSF error codes 



Error 

number Cause of error 

01 MODSF cannot be run in a temporary job mode. 

02 MODSF cannot be run with DUP suppressed. 

03 First card is not *PRO. 

04 Last card was encountered before *END card. 

05 Monitor control record was encountered. 

06 'Card neither *PRO nor *END. 

07 Column which must be blank was not blank in patch control record. 

08 Version/modification (columns 6 through 8) invalidly specified or omitted. 

09 Version/modification (columns 6 through 8) does not match system cartridge. 

10 Program name (columns 10 through 14) is invalid or omitted. 

1 1 Number of patch data records (columns 16 through 19) is not a valid positive 
hexadecimal value. 

12 Cartridge ID (columns 23 through 36) is not validly specified. 

13 Cartridge specified (columns 23 through 26) is not online. 

14 Program specified (columns 10 through 14) cannot be found on requested 
cartridge. 

15 Name specified in columns 10 through 14 is a secondary entry point. 

16 Name specified in columns 10 through 14 is a core-image program. 

17 Name specified in columns 10 through 14 is a data file. 

18 Addressing mode (column 21) is neither D nor P. 

19 Invalid address is specified for verification (columns 28 through 31, 38 through 
41 , 48 through 51 , 58 through 61 ). 

20 Invalid value is specified fbr verification (columns 33 through 36, 43 through 46, 
53 through 56, 63 through 66). 

21 During verification, a nonmatch was detected. 

22 Number of patch data records does not match number specified. 

23 Patch address is a valid hexadecimal value. 

24 Column in patch data record which must be blank was not blank. 

25 In addressing mode P, relocation mode indicator is not A, R, L, or C. 

26 Patch address is an invalid hexadecimal value. 

27 Patch address is within BSS or area skipped by ORG. 
Figure A-17 (Part 1 of 2). MODSF error codes 
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Mainline Program Messages 
MODSF error codes 
DFCNV 

Error 

number Cause of error 

28 Attempt was made to change relocation mode of an LIBF. 

29 Relocation mode of second word of LIBF is not A. 

30 Attempt to patch in an LIBF where non-LIBF appears in program. 

31 Program requiring expansion is not followed by *END patch control record. 

32 More than 31 words are to be updated. 

33 Insufficient working storage for expansion. 

34 Address specified for verification beyond end of program or in area skipped 
by BSSor ORG. 

Figure A- 17 (Part 2 of 2). MODSF error codes 

DFCNV Messages and Error Messages 

Each DFCNV control record is printed on the principal printer as it is read. At the end of 
successful processing of the DFCNV control records, the following message is printed: 

DISK DATA FILE CONVERSION COMPLETED 

As errors are detected in DFCNV control records, diagnostic messages are printed. All 
diagnostic errors, except the warning messages, cause program termination. If an error 
is detected on the file description card, program termination is immediate; all other 
errors are diagnosed before program termination. All messages, except F10, are printed 
before data conversion begins. All DFCNV diagnostic error messages are listed in 
Figure A- 18. 
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Mainline Program Messages 
DFCNV error messages 



Error number and message 

F01 INVALID DESCRIPTION 
CARD FIELD-COL. XX 



F02 FILE NAME NOT 
IN LET/FLET-Y 



F03 FILE SIZE INVALID-Y 



Cause of error 

%9 1. Numeric field at card column XX outsides 
allowable field range 

%M 2. Unrecognizable character in field at card 
column XX 

V 1. LET/F LET entry not found for file 
named on File Description card 

2. File name given on File Description card 
invalid 



O 



Y = I, input file error 

Y = O, output file error 

File size calculated from File Description 
data exceeds actual file size 



F04 INVALID FIELD 
SPECIFICATION 
SYNTAX-COL. XX 



F05 CSP A3 TABLE MISSING 



F06 INVALID CARD 
SEQUENCE 



F07 TRUNCATION OCCURS 
AT COL. XXX 

F08 CARD INPUT INVALID 



F09 OUTPUT RECORD 
LENGTH INVALID 

F10 FIELD OUT OF RANGE 
AT COL. XXX OF 
RECORD YYYYY 



e 



1 . Numeric field of specification starting at 
card column XX outside allowable field 
range 

2. Unrecognizable character in field of 
specification starting at card column XX 

3. Embedded or intervening blanks on Field 
Specification card 

4. J-field type specification detected starting 
at card column XX when extended pre- 
cision was specified 

No A (column 72) card precedes / * card 
when F -field specified. 

t& 1. Unrecognizable card precedes / * card 
(column 72 not D, S, or A). 

%M 2. Multiple File Description cards read 

^F 3. File Description card out of order 



4. No Field Specification card precedes / 
card 



©H 



igh order truncation occurs in output field 
at column XXX. 

%M Card input is specified when principal input 
device is console keyboard. 

Sum of individual field lengths exceeds 
specified record length for output. 



© 



RPG real number field starting at column 
XXX has been set to zeros or nines in 
record YYYYY. 



%9 Program termination immediate 

t50 Warning only 

J5r No columns indication 

Figure A-18. DFCNV error messages 
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Cold Start Error Waits 



Appendix B. Monitor System Error Wait Codes 



System loader, FORTRAN I/O and RPG object program errors cause the system to wait 
at $PRET. At the wait, bits 2 and 3 of the OPERATION REGISTER are on. FORTRAN 
I/O errors are identified by the Fxxx code in the ACCUMULATOR. RPG object program 
errors are identified by the Cxxx code in the ACCUMULATOR. A $PRET wait also 
occurs when a system I/O device is required but is not ready. The codes for all of these 
errors and the errors detected during the cold start program are described in this appendix. 



COLD START PROGRAM ERROR WAITS 



The following are the absolute addresses that are displayed in INSTRUCTION ADDRESS 
on the console when errors are detected during the cold start program: 



INSTRUCTION 
ADDRESS 
register display 

/001F 



/0046 



Explanation 

—Invalid disk drive number in console entry switches 

—Indicated disk drive not ready 

—Power is unsafe in the disk drive; turn drive off and on for a 
retry 

—Disk read error 

—Waiting for interrupt from seek operation 

-Waiting for interrupt from reading sector @IDAD 



/0048 
Note. When any of these errors occur, perform another cold start 
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ISS Subroutines 

preoperative error waits 

ISS SUBROUTINE PREOPERATIVE ERROR WAITS 

A preoperative error is an error condition that is detected before an I/O operation is 
started. The following preoperative error conditions cause the monitor system to wait at 
$PRET, $PST1, $PST2, $PST3, or $PST4: 

• Device not ready 

• Error check in device 

• Illegal parameter or illegal specification in an I/O area 
When a preoperative error condition is detected: 

• The address of SPRET+2 is displayed in the INSTRUCTION ADDRESS on the console. 

• An error code represented by 4 hexadecimal digits is displayed in the console 
ACCUMULATOR, where digit 1 identifies the ISS called: 

1-CARDxorPNCHx 

2-TYPEx or WRTYx 

3-PAPTx 

4-READx 

5-DISKx 

6-PRNT1, PRNT2 or PRNTZ 

7-PLOTl,PLOTx 

8-SCATx 

9-PRNT3 or PRNZ 

A-OMPR1 

Digits 2 and 3 are not used (zero). 

Digit 4 identifies the error, where 

0— Device not ready 

1 -Illegal parameter or illegal specification in I/O area 

• SPRET contains the address of the call in question. The ISS is set up to attempt initia- 
tion of the operation a second time if the call is reexecuted. Pressing console PROGRAM 
START returns control to the ISS for a reexecution of the call. 

When a preoperative error wait occurs, you can do one of the following: 

• Correct the error condition if possible and press PROGRAM START 

• Note the contents of the ACCUMULATOR and location SPRET, dump core storage, 
and proceed with the next job 

All ISS subroutine error waits are listed and described in Figure B-l. 
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ACCUMULATOR 




display 


Device causing wait 


/1000 


1442 Card Read/Punch 


/1O01 


or 1442 Card Punch 



/100F 

/2000 
/2001 

/2002 

/3000 
/3001 

/4000 
/4001 

/5000 
/5001 

/5002 



/5003 



/5004 



/6000 
/6001 



Keyboard/Console 
Printer 



11 34/1 055 Paper Tape 
Reader/Punch 



2501 Card Reader 



Disk 



1132 Printer 



ISS subroutine WAITs 



Cause of wait 

Device is not ready, or last card indicator is on or read. 

Illegal device, device is not in system, illegal function, word 
count is over +80, or word count is zero or negative. 

This wait occurs in a DUP operation after a D1 12 error message 
has been printed. 

Device is not ready. 

Device is not in system, illegal function, or word count is zero 
or negative. 

Keyboard input is expected (TYPEZ only). 

Device is not ready. 

Illegal device, illegal function, word count is zero or negative, 
or illegal check digit. 

Device is not ready. 

Illegal function, word count is over +80, or word count is zero 
or negative. 

Device is not ready. Make device ready and press PROGRAM 
START. 

Illegal device, device is not in system, invalid function, attempt 
to write in file protected area, word count is zero or negative 
or starting address is over +1599. Operation is retried if 
PROGRAM START is pressed (DISK1 and DISKN only). 

Write select/power unsafe. Turn the cartridge off, then on 
again, to reset the error condition. 

DISKZ: If PROGRAM START is pressed, the 

operation is retried. 

DISKN or DISK1 : If the program is waiting at $PRET and 
PROGRAM START is pressed, the 
operation is retried. If the program is 
waiting at $PST2 and PROGRAM START 
is pressed, the program goes to EXIT. 

Note. If an interrupt on level or 1 occurs when the program 
is waiting at $PST2. the program will go to E XIT. 

Read/write/seek failure remaining after 16 attempts, or disk 
overflow. Error occurred during the processing of a monitor 
control record (DISKZ only). If a code is also displayed in 
the ACCUMULATOR EXTENSION, bits through 3 indi- 
cate the logical drive number, and bits 4 through 15 indicate 
the working-storage address, except for disk overflow. Press 
PROGRAM START; the program is retried 16 times. 

Same as /5003 (DISK1 and DISKN only), or an attempt 
was made to cold start from a system cartridge when an 
uninitialized cartridge is on a ready drive. A cold start can- 
not be performed until the disk is initialized or is turned 
off. If a code is also displayed in the ACCUMULATOR 
EXTENSION, bits through 3 indicate the logical drive 
number, and bits 4 through 15 indicate the working- 
storage sector address plus one. 

Device is not ready or end of forms. 

Illegal function, word count is over +60, or word count is zero 
or negative. 



Figure B-l (Part 1 of 2). ISS subroutine WAITs 



Monitor System Error Wait Codes B-3 



ISS subroutine WAITs 




ACCUMULATOR 




display 


Device causing wait 


/7000 


1627 Plotter 


/7001 





/8001 


SCA (STR mode) 


/8002 


(SCAT1) 


/8003 





/8001 


SCA (BSCmode) 


/8002 


(SCAT2 or SCAT3) 


/8003 




/9000 


1403 Printer 


/9001 
/9002 




/A000 


1231 Optical Mark 


/A001 


Page Reader 


/A002 





/A003 



Cause of wait 

Device is not ready. Ready the device and press PROGRAM 
START. 

Illegal function, or word count is zero or negative. If 
PROGRAM START is pressed, the operation is retried (PLOT1 
only). 

Invalid function code or invalid word count. 

Receive or transmit operation is not completed. 

Failure to establish synchronization before attempting to 
perform some transmit or receive operation, or attempting 
to receive before receiving INQ sequence. 

Invalid function code, word count, or subfunction code. 

Invalid start characters in the I/O area for a transmit operation. 

Invalid number of identification characters for an identification 
specification operation (SCAT2 only). 

Device is not ready or end of forms. Make device ready and 
press PROGRAM START. 

Illegal function, word count is over +60, zero or negative. To 
retry operation, press PROGRAM START (PRNT3 only). 

Parity check, scan check, or ring check. Reset check and press 
PROGRAM START. The operation is not retried (PRNZ only). 

Device is not ready. 

Illegal function. 

Feed check, last document is processed. Clear jam, make 
ready, do not refeed. 

Feed check, last document is not processed. Clear jam, make 
ready, refeed last document. If error was caused by double 
feed, refeed both documents. 



Figure B*l (Part 2 of 2). ISS subroutine WAITs 
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1442 Card Subroutine 
errors 

I/O DEVICE SUBROUTINE ERRORS 

The error parameters of the card read and punch, console printer, and paper tape I/O 
subroutines are discussed in the following text. (The special function keys of the console 
keyboard are discussed in Chapter 7.) 

1442 Card Subroutine Errors 

CARDZ, CARDO, PNCHZ, and PNCHO do not have an error parameter. If an error is 
detected during processing of an operation-complete interrupt, the subroutine traps to 
$PST4 with interrupt level 4 on. You can reinitiate the operation by readying the 1442, 
and pressing PROGRAM START on the console keyboard. 

CARD1 and PNCH1 do have an error parameter. If an error is detected during processing 
of an operation-complete interrupt, your program can elect to terminate (clear the sub- 
routine busy indicator, and turn off the interrupt level) or to retry the operation. A retry 
consists of waiting at $PST4 with interrupt level 4 on, and then reinitiating the function. 

A read or feed function that is requested after the last card has been detected causes the 
last card to be ejected, and a trap to $PRET occurs. A punch function punches and then 
ejects the last card with a normal exit. 

If a 1442 device error occurs, the 1442 becomes not ready until you intervene. Unless the 
wait is caused by a stacker full (none of the 1442 error indicators are on) or chip box 
indication, the 1442 card path must be cleared before proceeding. The 1442 error indica- 
tors and the position of the cards in the feed path are used to determine which cards must 
be placed back in the hopper. 

For the card subroutines, a retry consists of positioning the cards (skipping the first card 
in the hopper, if necessary, on a read or feed operation) and reinitiating the function 
whenever the card reader is readied. 

Card read error conditions are described in Figure B-2. Read errors do not apply to the 
1442, Model 5. 
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1442 Card Read Error Waits 



Error 


Error 


indicator on 


condition 


HOPR 


Hopper misfeed 




indicates that 




card 2 failed to 




pass properly 




from the 




hopper to the 




read station 




during the card 




1 feed cycle. 


PUNCH STA 


Feed check 




(punch 




station) 




indicates that 




card 1 is im- 




properly 




positioned in 




the punch 




station at the 




completion of 




its feed cycle. 



TRANS 



FEEDCLU 



READ STA 



Transport 
indicates that 
card 1 has 
jammed in the 
stacker during 
the feed cycle 
for card 2. 



Feed cycle 
indicates that 
the 1442 took 
an unrequested 
feed cycle and, 
therefore, cards 
1, 2, and 3 are 
each one 
station ahead 
in the 1442 
card path than 
they should be. 

Feed check 
(read station) 
indicates that 
card 1 failed 
to eject from 
the read 
station during 
its feed cycle. 



Card positions after error 
Punch station 



Corner ■ 



Stacker > 



1 £ 



m 



Punch station 



1 



Corner ■ 



Stacker. 



Punch station 



Corner ■ 



Stacker- 



1 



<<> CD 



Punch station 



1 



Corner- 



Stacker ■ 



Punch station 



Corner - 
Stacker ■ 



1 



Read station 



H 



■Hopper 



£ 



Read station 





m 


en 






hi 



■Hopper 



I 



Read station 



[3 



■Hopper 



f 



Read station 





Q] 


LlI 

1 4| 


LU 





Hopper 



I 



Read station 



cf? 1 



•Hopper 



Your response 

When the program 
halts, press reader 
NPRO to eject card 

1, place card 1 in 
hopper before card 

2, and ready the 
1442. 



When the program 
halts, empty the 
hopper and clear 
the 1442 card path. 
If reading, place 
card 2 in the hopper 
before card 3 and 
ready the 1442. If 
punching, place 
cards 1 and 2 in 
the hopper before 
card 3 and ready 
the 1442. 

When the program 
halts, empty the 
hopper, clear the 
1442 card path, 
place cards 2 and 
3 in the hopper 
before card 4, and 
ready the 1442. 

When the program 
halts, empty the 
hopper, press 
NPRO to eject 
cards 2 and 3, 
place cards 1, 2, 
and 3 in the 
hopper before card 
4, and ready the 
1442. 



When the program 
halts, empty the 
hopper, clear the 
1442 card path, 
place cards 1 and 
2 in the hopper 
before card 3, 
and ready the 1442. 



Figure B-2 (Part 1 of 2). 1442 Card Read errors 
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1442 Card Read Error Waits 


Error 
indicator on 


Error 
condition 


Card positions after error 




Your response 


READ REG 


Read 

registration 
indicates 
incorrect card 
registration or 
a difference 
between the 
first and 
second reading 
of a column. 


Punch station-i r- Read station 


See error con- 
dition "Feed 
check (punch 
station)." Re- 
peated failures 




Corner » 
Stacker ► 




CD 


ra 


<*— Hopper 








of this type 




1 3 | 


might indicate 
a machine 














malfunction. 


PUNCH 


Punch check 
indicates an 
error in output 
punching. 


Punch station ~i 
\ 


.-Read station 

r 


When the 
program halts, 
empty the 
hopper, check 




Corner » 
Stacker » 




ra 


un 


-<— Hopper 






the card 








position, and 




1 3| 


press N PRO to 
clear the 1442 














card path. If 
necessary, correct 
card 1 to pre- 
punched state. 
Place card 1 and 
card 2 in the 
hopper before 
card 3 and 
ready the 1442. 



Figure B-2 (Part 2 of 2). 1442 Card Read errors 
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2501 Card Subroutine 
Console Printer Subroutine 
errors 



250 1 feed check 
error 



2501 read check 
error 



2501 Card Subroutine Errors 

READZ and READO do not have an error parameter. If an error is detected during pro- 
cessing of an operation-complete interrupt, the subroutine traps to $PST4, with interrupt 
level 4 on. You reinitiate the operation by making the 2501 ready and pressing PROGRAM 
START on the console keyboard. 

READ 1 does have an error parameter. If an error is detected during processing of an 
operation-complete interrupt, your program can elect to terminate (clear the subroutine 
busy indicator and turn off the interrupt level), or to retry the operation. A retry consists 
of waiting at $PST4 with interrupt level 4 on until the 2501 is readied, and then reinitia- 
ting the function. 

A read function requested after the last card has been detected causes a trap to $PRET. 

If a 250 1 device error occurs, the 2501 becomes not ready until the operator intervenes. 
Unless the stop is caused by a stacker full or cover open (ATTENTION), the 2501 card 
path must be cleared before proceeding. The 2501 error indicators and the position of the 
cards in the feed path should be used to determine the cards to be placed back in the 
hopper. 

For the card subroutines, a retry consists of positioning the cards (skipping the first caird 
in the hdpper, if necessary) and reinitiating the read function whenever the card reader 
is readied. 

A 2501 feed check indicates that a card has failed to feed from the hopper or that a card 
is mispositioned in the feed path. 

To correct this error, empty the hopper and press NPRO when the program waits at $PST4. 
If a card has failed to feed from the hopper, place the last card in the stacker ahead of the 
deck remaining to be read. Place this deck in the hopper, and ready the reader. 

If a cardihas been mispositioned in the feed path, place the last 2 cards in the stacker 
ahead of the deck remaining to be read. Place this deck in the hopper, and ready the 
reader. 

A read check indicates incorrect card registration or a difference between the first and 
second reading of a column. To correct this error when the program traps to $PST4, 
empty the hopper, press NPRO, place the last 2 cards in the stacker ahead of the deck 
remaining to be read, place this deck back in the hopper, and ready the reader. 

Console Printer Subroutine Errors 

If the carrier attempts to print beyond the manually positioned margins, a carrier restore 
(independent of the program) occurs. 

When TYPE0 and WRTY0 are being used, printing begins wherever the carrier is positioned 
as a result of a previous print operation. TYPEZ and WRTZ provide automatic carriage 
return before each operation. 

If the console printer indicates a not-ready condition after printing begins, the subroutines 
trap to $PST4 with interrupt level 4 on. After you make the console printer ready, pressing 
PROGRAM START causes the operation to be reinitiated. 

The special function keys of the console keyboard are discussed in Chapter 7. 
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Paper Tape Subroutine Errors 
Card Core Image Loader Wait 
PTUTL Wait Codes 

Paper Tape Subroutine Errors 

If the reader or punch becomes not ready during an I/O operation, the subroutines exit 
to your program via the error parameter. You can request the subroutine to terminate 
(clear device busy on the interrupt level) or to wait at $PST4 for operator intervention 
(interrupt level 4 on). 

If the 1 134/1055 indicates a not-ready condition after an operation has been initiated, 
the subroutines trap to $PST4 with interrupt level 4 on. The operation is reinitiated by 
making the device ready, and pressing PROGRAM START on the console. 

Card Core Image Loader Wait Code 

If any kind of card reader or checksum error occurs during the loading of a card image 
format program into core storage, the core image loader waits at location /0020 with the 
number of the card to be loaded displayed in the ACCUMULATOR on the console display 
panel. 

To continue processing: 

1. Press NPRO on the card reader. 

2. Place all the cards, beginning with the one whose number is displayed in the 
ACCUMULATOR, in the card hopper, and press START on the card reader. 

3. Press PROGRAM START on the console keyboard 



PAPER TAPE UTILITY PROGRAM (PTUTL) ERROR WAIT CODES 



When the paper tape reader or punch becomes not ready during processing, the system 
waits with an error code displayed in the console ACCUMULATOR. The PTUTL error 
wait codes are described in Figure B-3. 



ACCUMULATOR 
display 

/3005 



/3004 



Error condition 

Paper tape reader 
not ready 



Paper tape punch 
not ready 



Your response 

Ready the reader if additional tape is to be read; set the 
console entry switches as desired, and press PROGRAM 
START on the console keyboard. 

Ready the paper tape punch and press console PROGRAM 
START. 

To repunch the record that was being processed when the 
not-ready condition occurred, set console entry switches 1 
and 2 off (to prevent another record from being read), set 
switches 3 and 14 on (punch record and wait with /3333 
in the ACCUMULATOR), and press PROGRAM START. 
After the record is punched, return the console entry 
switches to the original configuration, and press PROGRAM 
START. 



Figure B-3. PTUTL error wait codes 



Monitor System Error Wait Codes B-9 



FORTRAN I/O Wait Codes 



FORTRAN I/O WAIT CODES 



ACCUMULATOR 
display 

F000 



F001 
F002 

F003 

F004 

F005 

F006 

F007 

F008 
F009 



When a FORTRAN I/O error occurs, the system waits at $PRET with Fxxx displayed in 
the console ACCUMULATOR. The program should be corrected, and the execution re- 
started. 



Figure B-4 describes the FORTRAN I/O error waits. 



Cause of error 

No *IOCS card appeared with the 
mainline program and I/O was 
attempted in a subroutine. 

Logical unit defined incorrectly, or 
no *IOCS control record for specified 
I/O device. 

Requested record exceeds allocated 
buffer size. 



Illegal character encountered in 
input record. 



Exponent too large or too small in 
input field. 



More than one exponent field 
encountered in input field. 



More than one sign encountered in 
input field. 



More than one decimal point 
encountered in input field. 



Read of output-only device, or write 
of input-only device. 

Real variable transmitted with an I 
format specification or integer 
variable transmitted with an E or F 
format specification. 



Type of 
FORTRAN I/O 

SFIO ' 



SFIO ' 



SFIO ' 



SFIO 



SFIO 



SFIO 



SFIO ' 



SFIO 



SFIO 



SFIO ' 



System action if you 
press PROGRAM START 

CALL EXIT 



Execution continues with next 
FORTRAN statement. 

All the variables in the I/O list, follow- 
ing the one which has the erroneous 
format specification, will also be 
treated as errors. 

The variables connected with the 
erroneous data fields will contain 
zeros. Other variables in the I/O list 
connected to fields in the same data 
record will be handled as usual. 

The variables connected with the 
erroneous data fields will contain 
zeros. Other variables in the I/O list 
connected to fields in the same data 
record will be handled as usual. 

The variables connected with the 
erroneous data fields will contain 
zeros. Other variables in the I/O list 
connected to fields in the same data 
record will be handled as usual. 

The variables connected with the 
erroneous data fields will contain 
zeros. Other variables in the I/O list 
connected to fields in the same data 
record will be handled as usual. 

The variables connected with the 
erroneous data fields will contain 
zeros. Other variables in the I/O list 
connected to fields in the same data 
record will be handled as usual. 

Execution continues with next 
FORTRAN statement. 

The actual format specifications will 
be effectuated. 



Figure B-4 (Part 1 of 2). FORTRAN I/O errors 
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FORTRAN I/O Wait Codes 



ACCUMULATOR 
display 



Cause of error 



Type of System action if you 

FORTRAN I/O press PROGRAM START 



F020 
F021 
F022 

F023 



F024 

F100 
F101 



F103 



F105 



F107 



F10A 



Illegal unit reference. 

Read list exceeds length of write list. 

Record not existing for read list 
element. 

Maximum length of $$$$$ area on 
the disk has been exceeded. This 
error is unrecoverable and results in 
a call exit. 

UFIO has not been initialized: there 
is no *IOCS (UDISK) record in the 
mainline program. 

File not defined by DEFINE 
FILE statement. 

File record number too large, equal 
to zero, or negative. This error may 
be caused by attempting to access 
the end of a working storage file 
that has been truncated by the core 
load builder. 

Disk FIO has not been initialized; 
there is no "IOCS (DISK) record 
in the mainline program. 

The length of a list element (2 or 
3 words, depending on the pre- 
cision) exceeds the record length 
(1 or 2 words) defined in a 
DEFINE FILE statement. 

An attempt has been made to read 
or write at an invalid sector address. 
This error occurs if a core image 
program with working storage files 
is executed on a system with too 
small working storage. 

Subscripting has destroyed the 
define file table and/or core image 
header. This occurs when a sub- 
script exceeds the specification 
in a DIMENSION. 



UF^ * 


UFIO not updated. 


UFIO 2 


UFIO updated. 


UFIO * 


UFIO updated. 


UFIO a 


CALL EXIT 



UFIO 

SDFIO 
SDFIO 



CALL EXIT 

CALL EXIT 
CALL EXIT 



SDFIO 



SDFIO 



SDFIO 



CALL EXIT 



CALL EXIT 



CALL EXIT 



SDFIO 



CALL EXIT 



Standard FORTRAN I/O 
Unformatted FORTRAN I/O 
Standard disk FORTRAN I/O 

Figure B-4 (Part 2 of 2). FORTRAN I/O errors 



Monitor System Error Wait Codes B-l 1 



RPG Object Program 
wait codes 

RPG OBJECT PROGRAM WAIT CODES 

RPG object program errors cause the system to wait with Cxxx displayed in the console 
ACCUMULATOR. All RPG object program wait codes are described in Figure B-5. 

The object program errors can be divided into 2 categories, disk I/O and general. The wait 
codes for disk I/O errors are in the range C000 to C05F. All others are between CI 00 and 
CFFF. Some of the disk I/O errors should not occur during normal processing. However, 
if incorrect object code is generated or if the object program is erroneously modified at 
object time, these disk I/O errors may occur. These error codes are identified with an 
asterisk to the right of the Cxxx number in Figure B-5. 

When an RPG object program error occurs, the operator must take specific action. 
Generally, this means terminating the job by turning all console entry switches off and 
pressing PROGRAM START on the console keyboard. Certain errors, however, allow the 
operator to ignore the error or retry the operation by setting console entry switch 1 5 on, 
all others off, and pressing console PROGRAM START. In the case of a retry, the card in 
error must be placed back in the hopper before continuing. An incorrect operator action 
causes the error wait to reoccur. 
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ACCUMULATOR 
display 

C000 



coor 



C002 # 



C003 



C004 



COOS* 



C006* 



C010 



coir 



C012* 



Type of 
processing 

Sequential file: 
random processing 



Sequential file: 
random processing 



Sequential file: 
random processing 

Sequential file: 
random processing 



Sequential file: 
random processing 



Sequential file: 
random processing 

Sequential file: 
random processing 

Sequential file: 
sequential processing 

Sequential file: 
sequential processing 



Sequential file: 
sequential processing 



Meaning 

Record number is not 
within the assigned 
limits of the file. 



Record size is not 
within limits 
(maximum 640 
characters). 

Records per sector is 
not maximum. 

No record was found. 
The record number is 
not a positive number. 



Write before read on 
an update file. 



File was accessed when 
not open. 

I/O buffer is not on 
even-word boundary. 

Disk file is full. 



A write is requested 
on an input file. 



A read is requested 
on an output file. 



Your response 

One of the following: 
Terminate the job. 

Bypass the record and 
continue processing. 

If chaining, correct 
the card and reinsert 
it in the input 
stream, or bypass the 
chaining record and 
read the next card. 

Terminate the job. 



Terminate the job. 

One of the following: 
Terminate the job. 

Bypass the record 
and continue 
processing. 

If chaining, correct 
the card and reinsert 
it in the input stream, 
or bypass the chaining 
record and read the 
next card. 

One of the following: 
Terminate the job. 

Bypass the record and 
continue processing. 

Terminate the job. 

Terminate the job. 

Terminate the job. 

Terminate the job. 



RPG Object Program 
wait codes 

Console entry 
switch settings 



All off. Press 
console START. 

15 on, all others 
off. Press console 
START. 

15 on, all others 
off. Press console 
START. 



All off. Press 
console START. 



All off. Press 
console START. 



All off. Press 
console START 

15 on, all others 
off. Press console 
START. 

15 on, all others 
off. Press console 
START. 



Terminate the job. 
Figure B-5 (Part 1 of 5). RPG Object Program error messages 



All off. Press 
console START. 

15 on, all others 
off. Press console 
START. 

Ail off. Press 
console START. 

All off. Press 
console START. 

All off. Press 
console START. 

All off. Press 
console START. 

All off. Press 
console START. 
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RPG Object Program 
wait codes 

ACCUMULATOR 
display 

C0 13* 



C014* 



C015* 



CO 1 6* 



C017 



C020 



C021 



C022* 



C023* 



C024* 



C025 



C026 



C027* 



CQ28* 



Type of 
processing 

Sequential file: 
sequential processing 



Sequential file: 
sequential processing 

Sequential file: 
sequential processing 

Sequential file: 
sequential processing 

Sequential file: 
sequential processing 



ISAM load processing 



ISAM load processing 



ISAM load processing 
ISAM load processing 

ISAM load processing 

ISAM load processing 



Meaning 

Record size is not 
within limits 
(maximum 640 
characters). 

Number of records per 
sector is not maximum. 

File was accessed when 
not open. 

I/O buffer is not on 
even-word boundary. 

Write before read 
requested on an 
update file. 



Invalid type of 
processing on load 
function. 

One of the following: 

Record size not within 
limits (maximum 636 
characters). 

Number of records per 
sector is not maximum. 

Key length is greater 
than maximum. 

Index entry length is 
not same as length 
computed from key 
length. 

Number of index entries 
per sector does not 
permit maximum number 
of records per sector. 

Prime data area is full. 



ISAM load processing Index area is full. 



Your response 

Terminate the job. 

Terminate the job. 

Terminate the job. 

Terminate the job. 

One of the following: 
Terminate the job. 

Bypass the record and 
continue processing. 

Terminate the job. 
Terminate the job. 



Terminate the job. 



Terminate the job. 



Terminate the job. 



Terminate the job. 



Terminate the job. 



File was accessed when Terminate the job. 

not open. 



ISAM load processing 

ISAM load processing Index buffer is not on Terminate the job 

even-word boundary. 

Figure B-5 (Part 2 of 5). RPG Object Program error messages 



Console entry 
switch settings 

All off. Press 
console START. 



All off. Press 
console START. 

All off. Press 
console START. 

All off. Press 
console START. 



All off. Press 
console START. 

15 on, all others 
off. Press console 
START. 

All off. Press 
console START. 



All off. Press 
console START. 



All off. Press 
console START. 

All off. Press 
console START. 



All off. Press 
console START. 



All off. Press 
jonsole START. 

All off. Press 
console START. 

All off. Press 
console START. 

All off. Press 
console START. 
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ACCUMULATOR 
display 

C029* 



C02A 



C030* 



C03V 



C032 



C033 



C034 



C035 



C036* 



C040* 



C041* 



C042* 



C043 



Type of 
processing 

ISAM load processing 



ISAM load processing 



ISAM add processing 

ISAM add processing 
ISAM add processing 

ISAM add processing 

ISAM add processing 



ISAM add processing 



ISAM add processing 



ISAM file: 
sequential processing 

ISAM file: 
sequential processing 

ISAM file: 
sequential processing 

ISAM file: 
sequential processing 



Meaning 

Prime data buffer is 
not on even-word 
boundary. 

Input record is out 
of sequence. 



Invalid type of 
processing on add 
function. 

File was accessed when 
not open. 

Key length for this job 
is not same as key 
length in file. 

Record length for this 
job is not same as 
record length in file. 

Attempt was made to add 
record already on file. 



Overflow area is full. 
The file must be 
resequenced, or the data 
area must be made 
larger before another 
add run can be made. 

Index buffer is not on 
even-word boundary. 

Invalid type of 
processing on retrieve 
or update function. 

Index buffer is not on 
even-word boundary. 

Prime data buffer is not 
on even-word boundary. 

Key length for this job 
is not same as key 
length in file. 



Your response 

Terminate the job. 



One of the following: 
Terminate the job. 

Correct the card and 
reinsert it in the input 
stream, or bypass the 
record by reading 
another card. 

Terminate the job. 



Terminate the job. 



Terminate the job. 



Terminate the job. 



One of the following: 
Terminate the job. 

Bypass the record and 
continue processing. 

Terminate the job. 



Terminate the job. 
Terminate the job. 

Terminate the job. 
Terminate the job. 
Terminate the job. 



RPG Object Program 
wait codes 

Console entry 
switch settings 

All off. Press 
console START. 



All off. Press 
console START. 

15 on, all others 
off. Press console 
START. 



All off. Press 
console START. 



All off. Press 
console START. 

All off. Press 
console START. 



All off. Press 
console START. 



All off. Press 
console START. 

15 on, all others 
off. Press console 
START. 

All off. Press 
console START. 



All off. Press 
console START. 

All off. Press 
console START. 



All off. Press 
console START. 

All off. Press 
console START. 

All off. Press 
console START. 



Figure B-5 (Part 3 of 5). RPG Object Program error messages 



Monitor System Error Wait Codes B-15 



RPG Object Program 
wait codes 



ACCUMULATOR 
display 

C044 



C045* 



C046 



Type of 
processing 

ISAM file: 
sequential processing 



ISAM file: 
sequential processing 

ISAM file: 
sequential processing 



Meaning 

Record length for this 
job is not same as 
record length in file. 

File accessed when not 
open. 

Write before read 
requested on update file. 



Your response 

Terminate the job. 

Terminate the job. 

One of the following: 
Terminate the job. 

Bypass the record and 
continue processing. 



Console entry 
switch settings 

All off. Press 
console START. 



All off. Press 
console START. 



All off. Press 
console START. 

15 on, all others 
off. Press console 
START. 



C050* 



C051" 



C052" 



C053 



ISAM file: 
random processing 



ISAM file: 
random processing 

ISAM file: 
random processing 



ISAM file: 
random processing 



Invalid type of 
processing on retrieve 
or update function. 

Index buffer is not on 
even -word boundary. 

Prime data buffer is 
not on even-word 
boundary. 

Key length for this job 
is not same as key length 
in file. 



Terminate the job. 

Terminate the job. 
Terminate the job. 

Terminate the job. 



All off. Press 
console START. 



All off. Press 
console START. 

All off. Press 
console START. 



All off. Press 
console START. 



C054 



C055* 



C056 



C057 



C111 



ISAM file: 
random processing 



ISAM file: 
random processing 

ISAM file: 
random processing 



ISAM file: 
random processing 



Record length for this 
job is not same as 
record length in file. 

File accessed when 
not open. 

Write before read 
requested on update. 



Record not on file. 



Numeric records or 
matching fields out of 
sequence, or record 
is an undefined type. 



Terminate the job. 



Terminate the job. 

One of the following: 
Terminate the job. 

Bypass the record and 
continue processing. 

One of the following: 
Terminate the job. 

Bypass the record and 
continue processing. 

One of the following: 
Terminate the job. 

Bypass the record and 
continue processing. 



All off. Press 
console START. 



All off. Press 
console START. 



All off. Press 
console START. 

15 on, all others 
off. Press console 
START. 



All off. Press 
console START. 

15 on, all others 
off. Press console 
START. 



All off. Press 
console START. 

15 on, all others 
off. Press console 
START. 



Figure B-5 (Part 4 of 5). RPG Object Program, error messages 
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RPG Object Program 
wait codes 



ACCUMULATOR 
display 

C12n 



Type of 
processing 



C400 



Meaning 

Halt switch set by 
object program 
(n = 1-9) 



Write before read 
requested on combined 
file. 



Your response 

One of the following: 
Terminate the job. 

Set the halt switches 
off and continue 
processing. 

One of the following: 
Terminate the job. 

Bypass the record and 
continue processing. 



Console entry 
switch settings 



All off. Press 
console START. 

15 on, all others 
off. Press console 
START. 



All off. Press 
console START. 

15 on, all others 
off. Press console 
START. 



C430 



C450 



Attempt to divide by 
zero. 



Results of multiply 
over 14 positions. 



One of the following: 
Terminate the job. 

Continue processing. 
The quotient will be 
set to zero. 

One of the following: 
Terminate the job. 

Continue processing. 
The result is set to 
zero. 



All off. Press 
console START. 

15 on, all others 
off. Press console 
START. 



All off. Press 
console START. 

15 on, all others 
off. Press console 
START. 



C500 



Monitor control card is 
read while punching on 
the 1442 Reader/ 
Punch. 



One of the following: 
Terminate the job. 

Bypass the record and 
continue processing. 



All off. Press 
console START. 

15 on, all others 
off. Press console 
START. 



C998 



Table fields are out of 
sequence. 



Terminate the job. 



Figure B-5 (Part 5 of 5). RPG Object Program error messages 



All off. Press 
console START. 
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B-18 



Appendix C. Monitor System Library Listing 



System library programs 



Names 



Type and 
subtype 



Subroutines 
required 



ID field 
(73-75) 



MAINLINES 

Disk Maintenance Programs 

Disk initialization 

Print cartridge ID 
Change cartridge ID 

Disk copy 

Write sector addresses in WS 

Delete CIB 

Dump system location 
Equivalence table 
Library maintenance 
System maintenance 
Disk data file conversion 

Paper Tape Utility 

Keyboard or 1 1 34 input and/or console 
printer or 1055 output 

SUBROUTINES 
Utility Calls 

Selective dump on console printer 

Selective dump on 1 132 printer 

Dump 80 

Update DCOM 

Call system print 

Read *ID record 

Fetch phase IDs or fetch system subroutine 

Dummy log subroutine for SCA subroutines 

Common FORTRAN Calls 

Test data entry switches 
Divide check test 
Functional error test 
Overflow test 
Selective dump 



Sense light control and test 
FORTRAN trace stop 
FORTRAN trace start 
Integer transfer of sign 



DISC 


2, None 


SYSUP, RDREC, 
DISKZ 


U6C 


IDENT 


2, None 


CALPR,DISKZ 


U6F 


ID 


2, None 


RDREC, CALPR, 
DISKZ 


U6G 


COPY 


2, None 


RDREC, DISKZ 


U6B 


ADRWS (cannot 


2, None 


Linked from 


U6A 


be called) 




DUP DWADR 




DLCIB 


2, None 


RDREC, DISKZ 


U6D 


DSLET 


2, None 


FSLEN, DISKZ 


U6E 


MODSF 


2, None 


DISKZ 


U6I 


MODIF 


2, None 


DISKZ 


U6H 


DFCNV 


2, None 


DISK1,ELD, 
FLD, NORM 


W1L 


PTUTL 


2, None 


PAPHL, PAPPR, 
PAPT1.TYPE0 


U6J 



DMTDO, DMTXO 


4,0 


WRTY0 




U5B 


DMPD1,DMPX1 


4,0 


PRNT1 




U5C 


DMP80 


4,0 


None 




U5A 


SYSUP 


4,0 


FSLEN, 


FSYSU 


U5E 


CALPR 


4,0 


FSLEN 




U7A 


RDREC 


4,0 


FSLEN 




U7C 


FSLEN, FSYSU 


4,0 


DISKZ 




U7B 


IOLOG/CPLOG 


4,0 


None 






DATSW 


4,8 


None 




T3A 


DVCHK 


4,8 


None 




T3B 


FCTST 


4,8 


None 




T3C 


OVERF 


4,8 


None 




T3E 


PDUMP 


4,0 


SFIO.SIOAI, 


T3F 






SIOAF, 


SWRT, 








SCOMP 






SLITE,SLITT 


4,8 


None 




T3G 


TSTOP 


4,8 


TSET 




T3H 


TSTRT 


4,8 


TSET 




T3I 


ISIGN 


4,8 


None 




T3D 



Not distributed to papertape users. 



Monitor System Library Listing C-l 



System Library Listing 



System library programs 

Extended Arithmetic/Function Calls 
Extended precision hyperbolic tangent 

Extended precision A**B function 

Extended precision natural logarithm 

Extended precision exponential 
Extended precision square root 

Extended precision sine-cosine 

Extended precision arctangent 

Extended precision absolute value function 
FORTRAN Sign Transfer Calls 

Extended precision transfer of sign 
Standard precision transfer of sign 

Standard Arithmetic/Function Calls 
Standard precision hyperbolic tangent 



Standard precision A**B function 
Standard precision natural logarithm 



Standard precision exponential 
Standard precision square root 

Standard precision sine-cosine 

Standard precision arctangent 

Standard precision absolute value function 
Common Arithmetic /Function Calls 

Fixed point (fractional) square root 
Integer absolute function 
Floating binary/EBC decimal 
conversions 



Name:) 


Type and 


Subroutines 


ID fiold 




subtype 


required 


(73-75) 


ETANIH, ETNH 


4,8 


EEXP, EADD, EDIV, 
EGETP, ELD/ESTO 


S2I 


EAXB, EAXBX 


4.8 


EEXP, ELN, 
EMPY 


S2C 


ELN, EALOG 


4,8 


XMD, EADD, EMPY, 
EDIV, NORM, 
EGETP 


S2E 


EEXP.EXPN 


4,8 


XMD, FARC, 
EGETP 


S2D 


ESQR.ESQRT 


4,8 


EADD, EMPY, 
EDIV, EGETP, 
ELD/ESTO 


S2H 


ESIN, ESINE. 


4,8 


EADD, EMPY, 


S2G 


EGOS, ECOSN 




NORM, XMD, 
EGETP 




EATN, EATAN 


4,8 


EADD, EMPY, 
EDIV, XMD, 
EGETP, NORM 


S2B 


EABS.EAVL 


4,8 


EGETP 


S2A 


ESIGM 


4,8 


ESUB, ELD 


S2F 


FSIGN 


4,8 


FSUB, FLD 


R2F 


FTANH, FTNH 


4,8 


FEXP, FADD, 
FDIV, FGETP, 
FLD/FSTO 


R2I 


FAXB, FAXBX 


4,8 


FEXP, FLN, FMPY 


R2C 


FLN, FALOG 


4,8 


FSTO, XMDS, FADD, 
FMPY, FDIV, 
NORM, FGETP 


R2E 


FEXP, FXPN 


4,8 


XMDS. FARC, 
FGETP 


R2D 


FSQR, FSQRT 


4.8 


FADD, FMPY, 
FDIV, FGETP, 
FLD/FSTO 


R2H 


FSIN, FSINE, 


4,8 


FADD, FMPY, 


R2G 


FCOS, FCOSN 




NORM, XMDS, 
FSTO, FGETP 




FATN.FATAN 


4,8 


FADD, FMPY, 
FDIV, XMDS, 
FSTO, FGETP 


R2B 


FABS, FAVL 


4,8 


FGETP 


R2A 


XSQR 


4.8 


None 


T1C 


IABS 


4,8 


None 


T1B 


FBTD 


4,0 


None 


T1A 


(BIN. TO DEC). 








FDTB 








(DEC. TO BIN.) 
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System library programs 

Flipper for LOCAL/SOCAL Subprograms 

FORTRAN Trace Subroutines 
Extended floating variable trace 

Fixed variable trace 
Standard floating IF trace 

Extended floating IF trace 

Fixed IF trace 

Standard floating variable trace 

GO TO trace 

Nondisk FORTRAN Format I/O 
FORTRAN format subroutine 



FORTRAN Find Subroutines 



Disk FORTRAN I/O 



Unformatted FORTRAN Disk I/O 



FORTRAN Common LIBFs 

FORTRAN pause 

FORTRAN stop 

FORTRAN subscript displacement 

calculation 

FORTRAN subroutine initialization 

FORTRAN trace test and set 







System 


Library Listing 


Names 


Type and 


Subroutines 


ID field 




subtype 


required 


(73-75) 


FLIPR 


4,0 


DISKZ, DISK1, 
or DISKN 


U5D 


SEAR,SEARX 


3,0 


ESTO, TTEST, 
SWRT, SIOF, 
SCOMP 


S2J 


SIAR.SIARX 


3,0 


TTEST, SWRT, 
SIOI, SCOMP 


T6B 


SFIF 


3,0 


FSTO, TTEST, 
SWRT, SIOF, 
SCOMP 


R2K 


SEIF 


3,0 


FSTO, TTEST, 
SWRT, SIOF, 
SCOMP 


S2K 


SIIF 


3,0 


TTEST, SWRT, 
SIOI, SCOMP 


T6C 


SFAR.SFARX 


3,0 


FSTO, TTEST, 
SWRT, SIOF, 
SCOMP 


R2J 


SGOTO 


3,0 


TTEST, SWRT, 
SIOI, SCOMP 


T6A 


SFIO,SIOI, 


3,3 


FLOAT, IFIX, 


T4C 


SIOAI.SIOF, 




ELD/ESTOor 




SIOAF,SIOFX, 




FLD/FSTO, 




SCOMP, SWRT, 




PAUSE 





SRED,SIOIX 



SDFND 



SDFIO,SDRED, 
SDWRT.SDCOM, 
SDAF,SDF, SDI, 
SDIX,SDFX, 
SDAI 



UFIO, URED, 
UWRT, UIOI, 
UIOF, UIOAI, 
UIOAF.UIOFX, 
UIOIX, UCOMP, 
BCKSP, EOF, 
REWND 



PAUSE 

STOP 

SUBSC 

SUBIN 
TTEST, TSET 



3, 1 



3, 1 



3, 1 



3,0 
3,2 
3,0 

3,0 
3,0 



DISKZ, DISK1, 
or DISKN 



DISKZ, DISK1, 
or DISKN, 
PAUSE 



DISKZ, DISK1, 
or DISKN, 
PAUSE 



None 
None 
None 

None 
None 



T4B 



T4A 



T4D 



T2A 
T2B 
T2D 

T2C 
T2E 
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System Library Listing 



System library programs 

FORTRAN I/O and Conversion Subroutines 
FORTRAN 1442 input/output subroutine 

FORTRAN 1442 output subroutine 

FORTRAN 2501 input subroutine 



Disk I/O routine (part of supervisor) 
FORTRAN paper tape subroutine 
FORTRAN 1 1 32 printer subroutine 
Call to PRNTZ to call to PRNT2 conversion 
FORTRAN 1403 printer subroutine 
FORTRAN keyboard-typewriter subroutine 

FORTRAN typewriter subroutine 

FORTRAN 1627 plotter subroutine 
FORTRAN hollerith to EBCDIC 
conversion 

FORTRAN get address routine 
FORTRAN EBCDIC table 
FORTRAN hollerith table 
FORTRAN multiple terminal 
communications adapter (MTCA) 
call interface 

Extended Arithmetic/Function L IBFs 

Extended precision get parameter subroutine 
Extended precision A**l function 

Extended precision divide reverse 
Extended precision float divide 
Extended precision float multiply 
Extended precision subtract reverse 
Extended add-subtract 

Extended load-store 



Standard Arithmetic/Function LIBFs 

Standard precision get parameter subroutine 
Standard precision A**l function 

Standard precision divide reverse 

Standard precision float divide 
Standard precision float multiply 
Standard precision subtract reverse 
Standard add-subtract 

Standard load-store 

Standard precision fractional multiply 



Names 



CARDZ 



PNCHZ 



READZ 



DISKZ 

PAPTZ 

PRNTZ 

PRTZ2 

PRNZ 

TYPEZ 

WRTYZ 

PLOTX 
HOLEZ 

GETAD 
EBCTB 
HOLTB 
MTCAZ 



Type and 


Subroutines 


subtype 


required 


5,3 


HOLEZ, GETAD, 




EBCTB, HOLTB, 




ILS00, ILS04 


5,3 


HOLEZ, GETAD, 




EBCTB, HOLTB, 




ILS00, ILS04 


5,3 


HOLEZ, GETAD, 




EBCTB, HOLTB, 




ILS04 


- 


ILS02 


5,3 


ILS04 


5,3 


ILS01 


5,3 


PRNT2, ILS01 


5,3 


ILS04 


5,3 


GETAD, EBCTB, 




HOLEZ, ILS04 


5,3 


GETAD, EBCTB, 




ILS04 


5,0 


ILS03 


3,3 


GETAD, EBCTB, 




HOLTB, PAUSE 


3,3 


None 


3,3 


None 


3,3 


None 


4,0 


MTCAO 



ID field 
(73-75) 



T5A 



T5G 



T5J 



T5F 

T5H 

WIK 

TBI 

T5K 

T!5L 

V1L 
T!5D 

T5C 
T5B 
T!5E 
W5C 



EGETP 


3,2 


ELD 


S1E 


EAXI,EAXIX 


3,2 


ELD/ESTO, 
EMPY, EDVR 


S1B 


EDVR,EDVRX 


3,2 


ELD/ESTO, EDIV 


S1D 


EDIV, EDIVX 


3,2 


XDD, FARC 


S1C 


EMPY.EMPYX 


3,2 


XMD, FARC 


S1G 


ESBR, EXBRX 


3,2 


EADD 


S1H 


EADD,ESUB, 


3,2 


FARC, NORM 


S1A 


EADDX, ESUBX 








ELD, ELDX, 


3,0 


None 


S1F 


ESTO, ESTOX 








FGETP 


3,2 


FLD 


RUE 


FAXI, FAXIX 


3,2 


FLD/FSTO, 
FMPY,FLVR 


RliB 


FDVR,FDVRX 


3,2 


FLD/FSTO, 
FDIV 


R1D 


FDIV, FDIVX 


3,2 


FARC 


R1C 


FMPY, FMPYX 


3,2 


XMDS, FARC 


R1G 


FSBR, FSBRX 


3,2 


FADD 


R1H 


FADD, FSUB, 


3,2 


NORM, FARC 


R1A 


FADDX. FSUBX 








FLD, FLDX, 


3,0 


None 


R1F 


FSTO, FSTOX 








XMDS 


3,2 


None 


S3I 



c:-4 



System library programs 



Common Arithmetic/Function LIBFs 

Fixed point (fractional) double divide 

Fixed point (fractional) double multiply 

Sign reversal function 

Integer to floating point function 

Floating point to integer function 

l**J integer function 

Normalize subroutine 

Floating accumulator range check 

subroutine 

Interrupt Service Subroutines 

1442 card read punch input/output 

(no error parameter) 

1442 card read punch input/output 

(error parameter) 

2501 card read input (no error parameter) 

2501 card read input (error parameter) 

1442 card punch output (no error 

parameter) 

1442 card punch output (error 

parameter) 

Multiple sector disk input/output 

(part of supervisor) 

High speed multiple sector disk 

input/output (part of supervisor) 

Synchronous communications adapter 

(SCA) STR mode 

SCA (BSC, point-to-point mode) 

SCA (BSC, multipoint mode) 

Paper tape input/output 

Simultaneous paper tape input/output 

Character /word count paper tape 

input/output 

Plotter output subroutine 

Plotter output subroutine 

1 132 printer output subroutine 

1132-SCA print with overlap 

1403 printer output subroutine 

Keyboard/console printer input/output 

Console printer output subroutine 
1231 optical mark page reader input 
subroutine 
MTCA base section 

MTCA 2741 terminal select 
MTCA teletype select 







System 


Library Listing 


Names 


Type and 


Subroutines 


ID field 




subtype 


required 


(73-75) 


XDD 


3,2 


XMD 


S3G 


XMD 


3,2 


None 


S3H 


SNR 


3,2 


None 


S3F 


FLOAT 


3,0 


NORM 


S3C 


IFIX 


3,0 


None 


S3D 


FIXI, FIXIX 


3,2 


None 


S3B 


NORM 


3,0 


None 


S3E 


FARC 


3,2 


None 


S3A 



CARD0 

CARD1 

READ0 
READ1 
PNCH0 

PNCH1 

DISK1 

DISKN 

SCAT1 

SCAT2 

SCAT3 

PAPT1 
PAPTN 
PAPTX 

PLOT1 
PLOTX 
PRNT1 
PRNT2 
PRNT3 
TYPE0 

WRTY0 
OMPR1 

MTCA0 

TSM41 
TSTTY 



5,0 


ILS00, ILS04 


U2A 


5,0 


ILS00, ILS04 


U2B 


5,0 


ILS04 


U2L 


5,0 


ILS04 


U2M 


5,0 


ILS00, ILS04 


U2H 


5,0 


ILS00, ILS04 


U2I 


None 


ILS02 





None 


ILS02 





5,0 


IOLOG/CPLOG, 
ILS01 


W1F 


5,0 


IOLOG/CPLOG, 
ILS01 


W1H 


5,0 


IOLOG/CPLOG, 
ILS01 


W1I 


5,0 


ILS04 


U2D 


5,0 


ILS04 


U2E 


5,0 


ILS04 


U2F 


5,0 


ILS03 


U2G 


5,0 


ILS03 


V1L 


5,0 


ILS01 


U2J 


5,0 


ILS01 


WIE 


5,0 


ILS04 


U2K 


5,0 


HOLL, PRTY, 
ILS04 


U2N 


5.0 


ILS04 


U20 


5,0 


ILS04 


U2C 


5,0 


ILS03,TSM41, 
TSTTY 


W5B 


4,0 


None 


W5D 


4,0 


None 


W5E 
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System Library Listing 



System library programs 



Conversion Subroutines 

Binary word to 6 decimal characters 

(card code) 

Binary word to 4 hexadecimal characters 

(card code) 

6 decimal characters (card code) to 

binary word 

EBCDIC to console printer output code 

Card code to EBCDIC-EBCDIC to card code 

Card code to console printer output code 

4 hexadecimal characters (card code) to 

binary word 

PTTC/8 to EBCDIC-EBCDIC to PTTC/8 

PTTC/8 to card code-card code to PTTC/8 

PTTC/8 to console printer output code 

Card code to EBCDIC-EBCDIC to card 

code 

4 of 8 code to EBCDIC-EBCDIC to 4 of 

8 code 

4 of 8 code to IBM card code— IBM card 

code to 4 of 8 code 

4 of 8 code to table of displacements 

32-bit binary value to IBM card code 

decimal value 

IBM card code decimal value to 32-bit 

binary value 

Supplement to all standard conversions 

except those involving PTTC/8 

MTCA code conversion 



Conversion Tables 

EBCDIC and PTTC/8 

Card code table 

Console printer output code table 

Table of IBM card codes 

Table of 4 of 8 and EBCDIC codes 

ZIPCO Conversion Tables 

EBCDIC to console printer code 

EBCDIC to IBM card code 

EBCDIC to 1403 printer code 

Console printer code to EBCDIC 

Console printer code to IBM card code 

Console printer code to 1403 printer code 

IBM card code to EBCDIC 

IBM card code to console printer code 

IBM card code to 1403 printer code 

1403 printer code to EBCDIC 

1403 printer code to console printer code 

1403 printer code to IBM card code 

Log Subroutine 

Dummy log subroutine called by 
SCAT1 , SCAT2, SCAT3 



Names 


Type and 


Subroutines 


ID field 




subtype 


required 


(73-75) 


BINDC 


3,0 


None 




U4B 


BINHX 


3,0 


None 




U4C 


DCBIN 


3,0 


None 




U4G 


EBPRT 


3,0 


EBPA, 


PRTY 


U3A 


HOLES 


3,0 


EBPA, 


HOLL 


U3B 


HOLPR 


3,0 


HOLL 


PRTY 


U3C 


HXBIN 


3,0 


None 




U3D 


PAPEB 


3,0 


EBPA 




U3E 


PAPHL 


3,0 


EBPA, 


HOLL 


U3F 


PAPPR 


3,0 


EBPA, 


PRTY 


U3G 


SPEED 


3,0 


None 




U3H 


EBC48 


3,0 


HXCV 


STRTB 


W1A 


HOL48 


3,0 


HXCV 


HOLCA, 


W1B 






STRTB 




HXCV 


3,0 


None 




W1D 


BIDEC 


3,0 


None 




U4A 


DECBI 


3,0 


None 




U4H 


ZIPCO 


3,0 


Any ZIPCO 
Conversion Table 


U3I 


FEB4t. BEB41, 


4,0 


None 




W5A 


F41EB.B41EB, 










QEB41,Q41EB 










EBPA 


3,0 


None 




U4K 


HOLL 


3.0 


None 




U4P 


PRTY 


3,0 


None 




U4Q 


HOLCA 


3,0 


None 




W1C 


STRTB 


3,0 


None 




W1G 


EBCCP 


4,0 


None 




U4I 


EBHOL 


4,0 


None 




U4J 


EBPT3 


4,0 


None 




U4L 


CPEBC 


4,0 


None 




U4D 


CPHOL 


4,0 


None 




U4E 


CPPT3 


4,0 


None 




U4F 


HLEBC 


4,0 


None 




U4M 


HOLCP 


4,0 


None 




U40 


HLPT3 


4.0 


None 




U4N 


PT3EB 


4,0 


None 




U4S 


PT3CF 


4,0 


None 




U4R 


PTHOL 


4,0 


None 




U4T 


IOLOG, CPLOG 


4,0 


None 




W1J 



C-6 



System library programs 

Interrupt Level Subroutines 

Interrupt level zero subroutine 

Interrupt level one subroutine 

Interrupt level two subroutine (part of 

supervisor) 

Interrupt level three subroutine 

Interrupt level four subroutine (part of 

supervisor) 

Special Interrupt Level Subroutines 
(restores index register 3) 

Interrupt level zero subroutine 
Interrupt level one subroutine 
Interrupt level two subroutine 
Interrupt level three subroutine 
Interrupt level four subroutine 

Standard Plot Calls 
Standard precision character 



Standard precision scale 
Standard precision grid 



Standard precision plot 

Extended Plot Calls 
Extended precision character 



Extended precision scale 
Extended precision grid 



Extended precision plot 

Common Plot Call 
Point characters 
Standard Plot LIBFs 
Standard precision annotation 



Standard precision plot scaler 



Names 



ILSOO 
ILS01 
ILS02 

ILS03 
ILS04 



ILSXO 
ILSX1 
ILSX2 
ILSX3 
ILSX4 



FCHAR 



SCALF 
FGRID 



FPLOT 



ECHAR 



SCALE 
EGRID 



EPLOT 



POINT 



FCHRX, FCHRI, 
WCHRI 



FRULE, FMOVE, 
FINC 







System Library Listing 


Type and 


Subroutines 


ID field 


subtype 


required 




(73-75) 


7,0 


None 




U1A 


7,0 


None 




U1B 


7,1 


None 




U1C 


7,0 


None 




U1D 


7, 1 


None 




U1E 



7,0 


None 


U1F 


7,0 


None 


U1G 


7,0 


None 


U1H 


7,0 


None 


U1I 


7,0 


None 


U1J 


4,0 


FSIN, FCOS, 
FPLOT, FCHRX, 
FLD, FSTOX, 
FSTO 


V1F 


4,0 


FRULE 


V10 


4,0 


FPLOT, POINT, 
FADD, FLD, 
FSTO,SNR 


V1H 


4,0 


FMOVE, XYPLT, 
PLOTI 


V1I 


4,0 


ESIN, ECOS, 
EPLOT, ECHRX, 
ELD, ESTO, 
ESTOX 


V1A 


4,0 


ERULE 


V1N 


4,0 


EPLOT, POINT, 
EADD, ELD, 
ESTO.SNR 


V1C 


4,0 


EMOVE, XYPLT, 
PLOTI 


V1D 



4,0 



3,0 



3,0 



PLOTI 



FLOAT, FMPY 
IFIX, FADD, 
FLDX, FINC, 
XYPLT, PLOTI, 
FSTOX, FLD 
FLDX, FSUEX, 
FMPYX, FLD, 
FSTOX, FMPY, 
IFIX, FADD 



V1M 



V1G 



V1J 
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System library programs 

Extended Plot LIBFs 
Extended precision annotation 



Extended precision plot scaler 



Common Plot LIBFs 

Pen mover 
Interface 
Interrupt service 

Disk I/O 
Sequential access 

Direct access 

ISAM load 

ISAM add 

ISAM sequential 

ISAM random 

RPG Decimal Arithmetic 

Add, subtract, and numeric compare 

Multiply 
Divide ' 
Move remainder 
Binary conversion * 

RPG Sterling and Edit 

Sterling input conversion 
Sterling output conversion 
Edit 



l 



RPG Move 

From I/O buffer to core 
From core to I/O buffer 
MOVE operation * 
MOVE L operation 

RPG Compare 
Alphameric 



Names 



ECHRX, ECHRI, 
VCHRI 



ERULE,EMOVE, 
EINC 



XYPLT 
PLOT I 
PLOTX 



SEQOP.SEQIO, 
SEQCL 

DAOPN, DAIO, 
DACLS 
ISLDO, ISLD, 
ISLDC 

ISADO, ISAD, 
ISADC 

ISEQO, ISETL, 
ISEQ, ISEQC 
ISRDOJSRD, 
ISRDC 



RGADD, RGSUB, 

RGNCP 

RGMLT 

RGDIV 

RGMVR 

RGBTD, RGDTB 



RGSTI 

RGSTO 

RGEDT 



RGMV1, RGMV5 
RGMV2 
RGMV3 
RGMV4 



RGCMP 



Type and 


Subroutines 


subtype 


required 


3,0 


FLOAT, FMPY, 




IFIX, EADD, 




ELDX,EINC, 




XYPLT, PLOTI 




ESTOX, ELD 


3,0 


ELDX,ESUEX, 




EMPYX,ELD, 




ESTOX, EMPY, 




IFIX, EADD, 




ESTO 


3,2 


PLOTI 


3,2 


PLOTX 


5,0 


ILS03 


3,0 


DISKZ 


3,0 


DISKZ 


3,0 


DISKZ 


3,0 


DISKZ 


3,0 


DISKZ 


3,0 


DISKZ 



3,0 

3,0 
3,0 
3,0 
3,0 



3,0 
3,0 
3,0 



3,0 
3,0 
3,0 
3,0 



3,0 



ID field 
(73-75) 



V1B 



V1E 



None 



V1P 
V1K 
V1L 



W3F 
W3E 
W3D 
W3C 
W3B 
W3A 

W2T 



RGBTD, RGDTB, RGERRW2S 
RGERR W2R 

RGBTD W2Q 

None W2P 



RGBTD, RGDTB, RGMV1 W4B 
RGBTD, RGDTB, RGMV2W4A 
RGMV2, RGSI5 W20 



None 
None 
None 
None 



None 



W2N 
W2M 
W2L 
W2K 



W2J 



Not distributed to paper tape users. 



C-8 



System library programs 



RPG Indicators 

Test 

Set resulting on ! 
Set on, set off * 
Test for or blank ! 

RPG Miscellaneous 

Test zone 

Convert to binary * 
Object time error * 
Blank after 
Alternating sequence 









System Library Listing 


Names 


Type and 


Subroutines 


ID field 




subtype 


required 




(73-75) 


RGSM 


3,0 


None 




W2I 


RGSI2 


3.0 


None 




W2H 


RGSI3, RGSI4 


3,0 


None 




W2G 


RGSI5 


3,0 


None 




W2E 


RGTSZ 


4,0 


None 




W2D 


RGCVB 


3,0 


None 




W2C 


RGERR 


4,0 


None 




W2B 


RGBLK 


3,0 


None 




W2A 


ALTSE 


None 









Not distributed to paper tape users. 
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LET/FLET 
entry format 
1 DUMY format 



Appendix D. LET/FLET 



The location equivalence table (LET) contains the name and disk block count of all pro- 
grams, including those in the System Library, and data files stored in the user area (UA). 
The fixed location equivalence table (FLET) contains the names of all programs and data 
files stored in the fixed area (FA). 

Each cartridge has a LET. FLET is optional and is defined when you use the DEFINE 
FIXED AREA function of the Disk Utility Program (DUP). 



LET/FLET DISK FORMAT 



sector header format 



LET/FLET entry 
format 



1 DUMY entry format 



Each sector of LET or FLET contains a 5 word sector header. All entries in LET or FLET 
are 3 words long and consist of a name and disk block count. 

Word Entry 

1 Relative sector address for this cartridge only. The first 
sector of LET is relative sector address 0000, the second 
0001, etc. The first sector of FLET is relative sector 
address 0010, the second 001 1, etc. 

2 Sector address of the UA (or sector address of FX if FLET) 

3 Reserved 

4 Number of words available in this LET/FLET sector 

5 Sector address of the next LET/FLET sector on this cartridge. 
If this is the last FLET sector on this cartridge, word 5 is 
zero. If this is the last LET sector on this cartridge, 

word 5 contains the address of the first FLET sector. 



1, bits 0-1 



1, bits 2-15 
and 

2 
3 



00-if DSF format (LET only) 

10-ifDCI format 

11— if data format 

Program or data file name in name code 



Disk block (DB) count of program or data file 

Sometimes unused disk space occurs because data files and programs in core image format 
are stored on sector boundaries. Such spaces are represented by a 1 DUMY entry in 
LET/FLET. 

A 1DUMY entry is always inserted to precede a DDF or DCI entry when the last entry is 
in DSF format, even when the preceding program ends on a sector boundary. In the latter 
case, a 1DUMY entry with a DB count of zero (blank) is generated. This 1DUMY entry is 
made because a DELETE operation may call for a 1DUMY padding in the future and 
because under certain circumstances, room for a 1DUMY entry may not be available. 

Word Entry 

1, bits 0—1 Reserved 

1 , bits 2- 1 5 Name code for 1 DUMY 

and word 2 

3 DB count of entry 

The last entry of LET is a 1DUMY entry that reflects the current size of available working 
storage. 



LET/FLET D-l 



LET/FLET 
dump format 

LET/FLET DUMP FORMAT 



The DUP control records DUMPLET or DUMPFLET are used to dump LET and FLET, 
or FLET, respectively, to the principal printer. One sector of LET/FLET is printed per 
page. Each page is headed with the word LET or FLET, whichever is applicable. Each 
sector of LET/FLET dumped is preceded by 2 lines of header information. The first 
header line contains the contents of the following locations from COMMA/DCOM: 

#CIDN-Cartridge ID, logical drive 0, 1, 2, 3, or 4 
SFPAD-COMMA file protect address, logical drive 0, 1, 2, 3, or 4 
#FPAD-DCOM file protect address, logical drive 0, 1, 2, 3, or 4 
#CIBA-CIB address, logical drive 0, 1, 2, 3, or 4 
#ULET— LET address, logical drive 0, 1, 2, 3, or 4 
#FLET-FLET address, logical drive 0, 1 , 2, 3, or 4 

A second header line is printed that reflects information about the LET or FLET sector 
that is being dumped: 

SCTR NO.-The relative sector number 

UA/FXA— The actual sector address of the user area or fixed area 

WORDS AVAIL— Available v/ords in the sector 

CHAIN ADR-Chain address to the next sector of LET or FLET 

The LET/FLET entries for the sector are printed after the 2 header lines. Twenty-one 
lines of entries are printed, 5 entries per line, and sequenced by column. Each entry is 
formatted as follows: 

PROG NAME— 5 print positions plus a blank 

FORMAT-DSF, DCI, or DDF: 3 print positions plus a blank, 4 blanks if 1DUMY or 

secondary entry point 
DB CNT-Disk block count, 4 print positions plus a blank 
DB ADDR-Logical disk block address, 4 print positions plus 5 blanks 

Only the name is printed for each secondary entry. Examples of DUMPLET and DUMP- 
FLET follow: 



D-2 



// JOB 



LOG DRIVE 
OOOO 



CART SPEC 
4444 



CART AVAIL 
4444 
1124 



V2 M10 
// DUP 



ACTUAL .32K CONFIG 32K 



•DEFINE FIXED AREA 5 

CART ID 4444 CYLS FXA 0004 DBS AVAIL 0200 



•STOREDATA CD FX DATA 10 

CART ID 4444 DB ADDR 1F00 DB CNT 



0020 



•STOREDATACICD FX CIMGE 18 

CART ID 4444 DB ADDR 1F20 DB CNT 0030 



•STOREDATA CD UA DATA2 10 

CART ID 4444 DB ADDR 2E30 DB CNT 



0020 



•DUMPLET 



LET 



LET/FLET 

DUMPLET listing 



PHY DRIVE 
0003 
0004 



FLET SECTOR ADDR 01E8 



«CIDN 
4444 



SFPAD 
02E5 



■ FPAD 
02E5 



-CI8A 
0210 



■ULET 
0220 



-FLET 
01E8 



SCTR NO. UA/FXA. 
0000 0228 



WORDS AVAILi 
0000 



CHAIN ADDR. 
0221 



PROG 


FOR 


DB 


DB 


PROG 


FOR 


DB 


DB 


PROG 


NAME 


MAT 


CNT 


ADDR 


NAME 


MAT 


CNT 


ADDR 


NAME 


FADD 


DSF 


0008 


2280 


FATN 


DSF 


OOOA 


22AA 


ESUB 


FSUB 








FATAN 








EADDX 


FADDX 








FAXB 


DSF 


0005 


22B4 


ESUBX 


FSUBX 








FAXBX 








EAXI 


FAXI 


DSF 


0006 


2288 


FEXP 


DSF 


0009 


22B9 


EAXIX 


FAXIX 








FXPN 








EDIV 


FDIV 


DSF 


0007 


228E 


FLN 


DSF 


OOOA 


22C2 


EDIVX 


FDIVX 








FALOG 








EDVR 


FDVR 


DSF 


0003 


2295 


FSIGN 


DSF 


0003 


22CC 


EDVRX 


FDVRX 








FSIN 


DSF 


0009 


22CF 


EGETP 


FGETP 


DSF 


0003 


2298 


FSINE 








ELD 


FLO 


DSF 


0005 


229B 


FCOS 








ELDX 


FLDX 








FCOSN 








ESTO 


FSTO 








FSQR 


DSF 


0006 


22D8 


ESTOX 


FSTOX 








FSORT 








EMPY 


FMPY 


DSF 


0005 


22A0 


FTANH 


DSF 


0005 


22DE 


EMPYX 


FMPYX 








FTNH 








ESBR 


FSBR 


DSF 


0003 


22A5 


SFAR 


DSF 


0004 


22E3 


ESBRX 


FSBRX 








SFARX 








EABS 


FABS 


DSF 


0002 


22A8 


SFIF 


DSF 


0003 


22E7 


EAVL 


PAVL 








EADD 


DSF 


0008 


22EA 


EATN 



DB 



DSF 0007 22F2 

DSF 0006 22F9 

DSF 0003 22FF 

DSF 0003 2302 
DSF 0004 2305 

DSF 0004 2309 
DSF 0003 230D 
DSF 0002 2310 
DSF OOOB 2312 



PROG FOR DB DB 
NAME MAT CNT ADDR 



EATAN 

EAXB 

EAXBX 

EEXP 

EXPN 

ELN 

EALOG 

ESIGN 

ESINE 

ESIN 

ECOSN 

ECOS 

ESQR 

ESORT 

ETANH 

ETNH 

SEAR 

SEARX 

SEIF 

FARC 

FIXI 



PROG FOR DB OB 
NAME MAT CNT ADDR 









FIXIX 








DSF 


0005 


2310 


FLOAT 


DSF 


0002 


235E 








IFfX 


DSF 


0004 


2360 


DSF 


OOOA 


2322 


NORM 


DSF 


0004 


2364 








SNR 


DSF 


0002 


2368 


DSF 


OOOB 


232C 


XDD 


DSF 


0006 


236A 








XMD 


DSF 


0005 


2370 


DSF 


0003 


2337 


XMDS 


DSF 


0003 


2375 


DSF 


OOOB 


233A 


FBTD 
FDTB 


DSF 


001B 


2378 








IABS 


DSF 


0002 


2393 








XSQR 


DSF 


0004 


2395 


DSF 


0006 


2345 


PAUSE 


DSF 


0003 


2399 








STOP 


DSF 


0002 


239C 


DSF 


0004 


234B 


SUB IN 


DSF 


0003 


239E 








SUBSC 


DSF 


0003 


23A1 


DSF 


0004 


234F 


TTEST 
TSET 


DSF 


0002 


23A4 


DSF 


0003 


2353 


DATSW 


DSF 


0003 


23A6 


DSF 


0003 


2356 


DVCHK 


DSF 


0002 


23A9 


DSF 


0005 


2359 


FCTST 


DSF 


0003 


23AB 



LET/FLET D-3 



LET/FLET 






































DUMPLET listing 


































= CIDN 


SFPAD 


mFPAD 


■ CIBA 


-ULET 


»FLET 


























4444 


02E5 


02E5 


0210 


0220 


01E8 


























SCTR NC 


). UA/FXA 


. WORDS AVAIL 


. CHAIN 


ADDR. 


























0001 


0228 




0000 




0222 




























PROG 


FOR 


D8 


oe 


PROG 


FOR 


DB 


DB 


PROG 


FOR 


DB 


DB 


PROG 


FOP. 


DB 


DB 


PROG 


FOR 


DB 


DB 


NAME 


MAT 


CNT 


ADDR 


NAME 


MAT 


CNT 


ADDR 


NAME 


MAT 


CNT 


ADDR 


NAME 


MAT 


CNT 


ADDR 


NAME 


MAT 


CNT 


ADDR 


ISIGN 


DSF 


0003 


23AE 


SIOF 








EBCTB 


DSF 


0005 


2450 


ILSX1 


DSF 


0003 


24BA 


HOLPR 


DSF 


0007 


25CI 


OVERF 


DSF 


0002 


23B1 


SIOAF 








GETAD 


DSF 


0002 


2455 


ILSX2 


DSF 


0003 


24BD 


HX8IN 


DSF 


0005 


25C3 


PDUMP 


DSF 


0009 


23B3 


StOFX 








HOLEZ 


DSF 


0005 


2457 


ILSX3 


DSF 


0004 


24C0 


PAPEB 


DSF 


0010 


25CD 


SLITE 


DSF 


0006 


23BC 


SCOMP 








HOLTB 


DSF 


0004 


245C 


ILSX4 


DSF 


0004 


24C4 


PAPHL 


DSF 


0010 


25DD 


SLITT 








SWRT 








PAPTZ 


DSF 


OOOF 


2460 


CARDO 


DSF 


0010 


24C8 


PAPPR 


DSF 


OOOD 


25ED 


TSTOP 


DSF 


0002 


23C2 


SRED 








PNCHZ 


DSF 


0006 


246F 


CARDl 


DSF 


0011 


24D8 


SPEED 


DSF 


0015 


25FA 


TSTRT 


DSF 


0002 


23C4 


SIOIX 








PRNTZ 


DSF 


OOOE 


2475 


0MPR1 


DSF 


0015 


24E9 


ZIPCO 


DSF 


OOOB 


260F 


SDFIO 


DSF 


0019 


23C6 


UFIO 


DSF 


001D 


2427 


PRNZ 


DSF 


OOOC 


2483 


PAPT1 


DSF 


OOOF 


24FE 


BIDEC 


DSF 


0006 


261A 


SDAF 








URED 








READZ 


DSF 


0005 


248F 


PAPTN 


DSF 


0013 


250D 


BINDC 


DSF 


0005 


2620 


SDAI 








UWRT 








TYPEZ 


DSF 


0008 


2494 


PAPTX 


DSF 


0015 


2520 


BINHX 


DSF 


0004 


2625 


SOCOM 








UIOI 








WRTYZ 


DSF 


0005 


249C 


PL0T1 


DSF 


OOOC 


2535 


CPEBC 


DSF 


0009 


2629 


SDF 








UIOF 








SGOTO 


DSF 


0003 


24A1 


PNCHO 


DSF 


OOOE 


2541 


CPHOL 


DSF 


0009 


2632 


SDFX 








UIOAI 








SIAR 


DSF 


0004 


24A4 


PNCH1 


DSF 


OOOE 


254F 


CPPT3 


DSF 


0009 


26 3B 


SOI 








UIOAF 








SIARX 








PRNT1 


DSF 


001A 


255D 


DCBIN 


DSF 


0006 


2644 


SDIX 








UIOFX 








SI IF 


DSF 


0003 


24A8 


PRNT3 


DSF 


0010 


2577 


DECBI 


DSF 


0009 


264A 


SDREO 








UIOIX 








ILSOO 


DSF 


0003 


24AB 


READO 


DSF 


0007 


2587 


EBCCP 


DSF 


0009 


2653 


SDWRT 








UCOMP 








ILS01 


DSF 


0003 


24AE 


READ1 


DSF 


0008 


258E 


EBHOL 


DSF 


0009 


265C 


SDFND 


DSF 


0006 


23DF 


BCKSP 








ILS02 


DSF 


0001 


24B1 


TYPEO 


DSF 


0012 


2596 


EBPA 


DSF 


0006 


2665 


SFIO 


DSF 


0042 


23E5 


EOF 








ILS03 


DSF 


0003 


24B2 


WRTYO 


DSF 


0009 


25A8 


EBPT3 


DSF 


0009 


2663 


SIOI 








REWND 








ILS04 


DSF 


0002 


24B5 


EBPRT 


DSF 


0007 


25B1 


HLEBC 


DSF 


0009 


2674 


SIOAI 








CARDZ 


DSF 


OOOC 


2444 


ILSXO 


DSF 


0003 


24B7 


HOLES 


DSF 


0009 


25B8 


HLPT3 


DSF 


0009 


2670 


«CIDN 


SFPAD 


■ FPAD 


■ CIBA 


«ULET 


-FLET 


























4444 


02E5 


02E5 


0210 


0220 


01E8 


























SCTR NO. 1 


JA/FXA. WORDS AVAIL. < 


:hain 


ADDR. 


























0002 


i 


0228 




0000 




0223 


























PROG 


FOR 


DB 


DB 


PROG 


FOR 


DB 


DB 


PROG 


FOR 


DB 


DB 


PROG 


FOR 


DB 


DB 


PROG 


FOR 


DB 


DB 


NAME 


MAT 


CNT 


ADDR 


NAME 


MAT 


CNT 


ADDR 


NAME 


MAT 


CNT 


ADDR 


N.AME 


MAT 


CNT 


ADDR 


NAME 


MAT 


CNT 


ADDR 


HOLCP 


DSF 


0009 


2666 


MODSF 


DSF 


006C 


2888 


FRULE 


DSF 


0009 


29A5 


PRTZ2 


DSF 


0006 


2825 


RGDIV 


DSF 


002E 


2C3C 


HOLL 


DSF 


0006 


268F 


PTUTL 


DSF 


OOOA 


28F7 


FMOVE 








DFCNV 


DSF 


009F 


2B2B 


RGMLT 


DS.F 


0010 


2C(>A 


PRTY 


DSF 


0006 


2695 


CALPR 


DSF 


0007 


2901 


FINC 








RGBLK 


DSF 


0005 


28CA 


RGADD 


DSF 


001A 


2C7A 


PT3CP 


DSF 


0009 


269B 


FSLEN 


DSF 


OOOB 


2908 


PLOT I 


DSF 


0003 


29AE 


RGERR 


DSF 


0005 


2BCF 


RGSUB 








PT3EB 


DSF 


0009 


26A4 


FSYSU 








PLOTS 








RGCVB 


DSF 


0006 


2BD4 


RGNCP 








PTHOL 


DSF 


0009 


26AD 


RDREC 


DSF 


0015 


2913 


PLOTX 


DSF 


0009 


2981 


RGTSZ 


DSF 


0005 


2BDA 


ISRDO 


DSF 


001C 


2C94 


DMP80 


DSF 


0007 


26B6 


ECHAR 


DSF 


0005 


2928 


POINT 


DSF 


0008 


29BA 


RGSI5 


DSF 


0006 


2BDF 


ISRD 








DMTDO 


DSF 


001 A 


26BD 


ECHRX 


DSF 


0028 


292D 


SCALE 


DSF 


0002 


29C2 


RGSI3 


DSF 


0004 


2BE5 


ISRDC 








DMTXO 








ECHRI 








SCALF 


DSF 


0002 


29C4 


RGSI4 








ISEQO 


DSF 


002A 


2CU0 


DMPD1 


DSF 


00 IE 


26D7 


VCHRI 








XYPLT 


DSF 


0007 


29C6 


RGSI2 


DSF 


0006 


2BE9 


ISETL 








DMPX1 








EGRID 


DSF 


0008 


2955 


EBC48 


DSF 


OOOB 


29CD 


RGSI1 


DSF 


0005 


2BEF 


ISEQ 








FLIPR 


DSF 


0007 


26F5 


EPLOT 


DSF 


0005 


295D 


H0L48 


DSF 


0008 


2908 


RGCMP 


DSF 


0006 


2BF4 


ISEQC 








SYSUP 


DSF 


00 3 A 


26FC 


ERULE 


DSF 


OOOA 


2962 


HOLCA 


DSF 


0006 


29E0 


RGMV4 


DSF 


0006 


2BFA 


ISADO 


DSF 


003E 


2CDA 


ADRWS 


DSF 


0010 


2736 


EMOVE 








HXCV 


DSF 


0004 


29E6 


RGMV3 


DSF 


0004 


2C00 


I SAD 








COPY 


DSF 


0022 


2746 


EINC 








PRNT2 


DSF 


00 IF 


29EA 


RGMV2 


DSF 


OOOB 


2C04 


ISADC 








DISC 


DSF 


0036 


2768 


FCHAR 


DSF 


0005 


296C 


SCAT1 


DSF 


004A 


2A09 


RGMVl 


DSF 


OOOA 


2C0F 


1SLD0 


DSF 


0026 


2018 


DLCIB 


DSF 


001F 


279E 


FCHRX 


DSF 


0028 


2971 


STRTB 


DSF 


0006 


2A53 


RGMV5 








ISLD 








OSLET 


DSF 


0045 


27BD 


FCHRI 








SCAT2 


DSF 


0069 


2A59 


RGEDT 


DSF 


0013 


2C19 


ISLDC 








IDENT 


DSF 


oooc 


2802 


WCHRI 








SCAT3 


DSF 


0061 


2AC2 


RGDTB 


DSF 


0008 


2C2C 


DAOPN 


DSF 


OOOF 


2D3E 


ID 


DSF 


001A 


280E 


FGRID 


DSF 


0008 


2999 


IOLOG 


DSF 


0002 


2B23 


RGBTD 








DAIO 








MOD IF 


DSF 


0063 


2828 


FPLOT 


DSF 


0004 


29A1 


CPLOG 








RGMVR 


DSF 


0008 


2C34 


DACLS 









EM 



LET/FLET 

DUMPLET listing 



-CIDN 


$FPAO 


-FPAD 


■CIBA -ULET -FLET 








4444 


02E5 


02E5 


0210 0220 01E8 








SCTR NO. UA/FXA. WORDS AVAIL* CHAIN AOOR. 








0003 


0228 




0105 01E8 








PROG 


FOR 


DB 


DB 


PROG FOR DB 06 


PROG 


FOR DB 


DB 


NAME 


MAT 


CN7 


ADDR 


NAME MAT CNT ADDR 


NAME 


MAT CNT 


ADDR 


SEQOP 


DSF 


001C 


2D4D 










SEQIO 
















SEOCL 
















RGSTO 


DSF 


001A 


2D69 










RGSTI 


DSF 


OOOF 


2D83 










FEB41 


DSF 


0024 


2D92 










BEB41 
















F41EB 
















B41EB 
















QEB41 
















Q41EB 
















MTCAO 


DSF 


0023 


2DB6 










MTCAZ 


DSF 


OOOE 


2DD9 










TSM41 


DSF 


003A 


2DE7 










TSTTY 


DSF 


OOOB 


2E21 










1DUMY 




0004 


2E2C 










DATA2 


DDF 


0020 


2E30 










10UMY 




35B0 


2E50 











PROG FOR DB DB 
NAME MAT CNT AOOR 



PROG FOR DB DB 
NAME MAT CNT ADDR 



FLET 



-CIDN SFPAD »FPAD «CIBA 


-ULET -FLET 


4444 02E5 02E5 0210 


0220 01E8 


SCTR NO. UA/FXA. WORDS AVAIL. CHAIN ADDR. 


0010 01F0 0132 


0000 


PROG FOR DB DB PROG 


FOR DB DB 


NAME MAT CNT ADDR NAME 


MAT CNT ADDR 



PROG FOR OB OB 
NAME MAT CNT AOOR 



PROG FOR DB DB 
NAME MAT CNT ADDR 



PROG FOR OB DB 
NAME MAT CNT ADDR 



DATA DDF 0020 1FO0 
CIMGE DCI 0030 1F20 
1DUMY 01B0 1F50 



END OF DUMPLET/FLET 



LET/FLET D-5 



LET/FLET 

DUMPF LET listing 

•DUMPFLET 



FLET 



*CIDN SFPAD *FPAD «CIBA 
4444 02E5 02E5 0210 


«ULET -FLET 
0220 01E8 




















SCTR NO. UA/FXA. WORDS AVAIL 
0010 OlFO 0132 


.. CHAIN ADDR. 
0000 




















PROG FOR DB DB PROG 
NAME MAT CNT ADDR NAME 


FOR DB DB 
MAT CNT ADDR 


PROG 
NAME 


F03 DB 
MAT CNT 


DB 
ADDR 


PROG 
NAME 


FOR DB 
MAT CNT 


DB 
ADDR 


PROG 
NAME 


FOR DB 

MAT CNT 


DB 
ADDR 



DATA DDF 0020 1FO0 
CIMGE DCI 0030 1F20 
1DUMY 01B0 1F50 

END OF DUMPFLET 



D-6 



Appendix E. System Location Equivalence Table (SLET) 



The addresses listed in the following SLET printout are subject to change. Only the sym- 
bols and phase IDs remain constant. 



SYSTEM LOCATION EQUIVALENCE TABLE (SLET) 



SYMBOL 


PH 


CORE 


WORD 


SCTR 


5YMB0L 


PH 


CORE 


WORD 


SCTR SYMBOL 


PH 


CORE 


WORD 


SCTR SYMBOL 


PH 


CORE 


WORD 


SCTR 




ID 


ADDR 


COUNT 


ADDR 




ID 


ADDR 


COUNT 


ADDR 




10 


ADDR 


COUNT 


ADDR 




ID 


ADDR 


COUNT 


ADDR 


***** 


• * 


**** 


**#* 


##** ***** 


** 


**** 


***• 


*•** ***** 


• * 


***» 


*#** 


«*** ***** 


** 


**** 


**•* 


**•• 


•DDUP 


01 


7C50 


032F 


0808 


DCTL 


02 


UDE 


05A2 


OOOB 


STOR 


03 


21DE 


05A2 


0010 


FILQ 


04 


01DE 


03C0 


0015 


•DUMP 


05 


41DE 


054B 


0018 


DL/F 


06 


01DE 


03C0 


0010 


DLTE 


07 


01DE 


05A2 


0020 


DFNE 


08 


01DE 


05A2 


0025 


•EXIT 


09 


01DE 


0500 


002A 


CFCE 


OA 


7A06 


OODE 


002E 


0U11 


OB 


7A06 


0035 


002F 


DU12 


OC 


7A06 


00D8 


0030 


'DU13 


00 


7782 


087C 


0031 


DU14 


OE 


7A06 


0248 


0038 


DU15 


OF 


7A06 


0248 


003A 


DU16 


10 


7A06 


0248 


003C 


•PRCI 


11 


01DE 


0280 


0O3E 


DU18 


12 


0E6E 


0140 


0040 


FR01 


IF 


760C 


09F1 


0041 


FR02 


20 


7A34 


0500 


0049. 


•FR03 


21 


7A34 


0280 


0040 


FR04 


22 


7A34 


03C0 


004F 


FR05 


23 


7A34 


0500 


0052 


FR06 


24 


7A34 


03CO 


0056 


•FR07 


25 


7A34 


0280 


0059 


FR08 


26 


7A34 


0500 


005B 


FR09 


27 


7A34 


03F0 


005F 


FRIO 


28 


7A34 


03C0 


0063 


'FR11 


29 


7A34 


03C0 


0066 


FR12 


2A 


7A34 


03C0 


0069 


FR13 


2B 


7A34 


03C0 


006C 


FR14 


2C 


7A34 


0500 


006F 


•FR15 


20 


7A34 


0500 


0073 


FR16 


2E 


7A34 


0500 


0077 


FR17 


2F 


7A34 


0500 


007B 


FR18 


30 


7A34 


0500 


007F 


•FR19 


31 


7A34 


0404 


0083 


FR20 


32 


7A34 


03C0 


0087 


FR21 


33 


7A34 


03C0 


008A 


FR22 


34 


7A34 


0280 


0080 


'FR23 


35 


7A34 


03C0 


008F 


FR24 


36 


7A34 


03C0 


0092 


FR25 


37 


7A34 


0500 


0095 


FR26 


38 


7B8E 


03C0 


0099 


•FR27 


39 


766E 


0140 


009C 


SUP1 


6E 


04FE 


02FE 


009D 


SUP2 


6F 


07FE 


052B 


OOAO 


SUP3 


70 


07FE 


0280 


00A5 


'SUP4 


71 


07FE 


0280 


00A7 


SUP5 


72 


07FE 


03EA 


00A9 


SUP6 


73 


0506 


04F8 


OOAD 


SUP7 


74 


0400 


0189 


00B1 


•CLB1 


78 


01E0 


0782. 


00B3 


CLB2 


79 


05BC 


04E2 


OOBA 


CLB3 


7A 


08B6 


01E8 


OOBE 


CLB4 


7B 


0886 


01E8 


OOCO 


•CLB5 


7C 


08B6 


01E8 


00C2 


CLB6 


7D 


08B6 


01E8 


00C4 


CLB7 


7E 


OAAO 


0140 


00C6 


CLB8 


7F 


OAAO 


Oi40 


00C7 


•CLB9 


80 


OAAO 


0140 


00C8 


CLBA 


81 


OAAO 


0140 


00C9 


CLBB 


82 


0BE2 


0140 


OOCA 


CL6C 


63 


06B6 


OILS 


OOCB 


•CLBO 


84 


OAAO 


0140 


OOCD 


1403 


8C 


0000 


0132 


80CE 


1132 


80 


0000 


0113 


OOCF 


CPTR 


8E 


0000 


011B 


OODO 


•2501 


8F 


0000 


009C 


00D1 


1442 


90 


0000 


OOAB 


00D2 


1134 


91 


0000 


016C 


0003 


K8CP 


92 


0000 


0174 


0005 


'CDCV 


93 


0000 


00B9 


0007 


PTCV 


94 


0000 


0003 


0008 


K8CV 


95 


0000 


0C03 


0CD9 


DZID 


96 


OOFO 


OOfcC 


OODA 


'01ID 


97 


00F0 


01A2 


OODB 


ON ID 


98 


OOFO 


02B0 


OODD 


PPRT 


99 


0000 


0113 


OOCF 


PIWK 


9A 


0000 


009C 


0001 


•PIXK 


9B 


0000 


009C 


00D1 


PCWK 


9C 


0000 


00B9 


0007 


PCXK 


90 


OOOC 


00B9 


00D7 


CILl 


AO 


OOOC 


0170 


OOEO 


•CIL2 


Al 


0000 


01C0 


0OE2 


RGOO 


BO 


0212 


094E 


00E4 


RG02 


Bl 


0906 


0893 


OOEC 


RG04 


B2 


0906 


07Q3 


00F3 


•RG06 


B3 


0906 


076B 


OOFA 


RG08 


B4 


0906 


08C2 


0100 


RG10 


B5 


04A6 


0811 


0108 


RG12 


B6 


073A 


0867 


C10F 


'RG14 


B7 


073A 


06D4 


0116 


RG16 


88 


0762 


048E 


one 


RG17 


B9 


0762 


06E3 


0120 


RG19 


BA 


073A 


0932 


0126 


•RG20 


BB 


073A 


05C8 


012E 


RG21 


BC 


073A 


06DF 


0133 


RG22 


BO 


0782 


02AE 


0139 


RG24 


BE 


0782 


06B9 


013C 


•RG26 


BF 


0782 


022E 


0142 


RG28 


CO 


0782 


0491 


0144 


RG32 


CI 


0782 


06C7 


0148 


RG34 


C2 


0782 


046C 


014E 


'RG36 


C3 


0782 


025F 


0152 


RG38 


C4 


0782 


050C 


0154 


RG40 


C5 


0782 


0576 


0159 


RG4 2 


C6 


0782 


03A5 


015E 


'RG44 


C7 


0782 


05F3 


0161 


RG46 


C8 


0782 


04E9 


0166 


RG52 


C9 


073A 


03AC 


016A 


RG54 


CA 


073A 


0667 


0160 


'RG58 


CB 


073A 


05FD 


0173 


RG60 


CC 


073A 


0390 


0178 


DCL2 


CD 


11DE 


0280 


017B 


OMUP 


CE 


01DE 


11DF 


017D 


•ASOO 


CF 


01E0 


026B 


018C 


ACNV 


DO 


01E8 


OOBB 


018E 


AS10 


01 


01E8 


0060 


018F 


ASH 


D2 


01E8 


0050 


0190 


«AS12 


03 


027E 


01B9 


0191 


AERM 


D4 


0AC8 


013E 


0193 


AS01 


D5 


027E 


01D8 


0194 


ASIA 


06 


027E 


0115 


0196 


• ASYM 


D7 


0000 


0130 


0197 


AS03 


D8 


07A6 


0250 


0198 


AS04 


09 


027E 


01D7 


019A 


AS02 


DA 


027E 


01A2 


019C 


•AS2A 


DB 


0280 


00A6 


019E 


AS09 


DC 


0456 


059E 


019F 


AS0 5 


DO 


027E 


01C4 


01A4 


AS06 


DE 


027E 


0108 


01A6 


•AS07 


DF 


027E 


017E 


01A8 


AS7A 


EO 


0280 


0127 


01AA 


AS08 


El 


027E 


0198 


01AB 


AS8A 


E2 


027E 


01B5 


01AD 


'APCV 


E3 


027E 


0099 


01AF 


A I, NT 


E4 


0980 


0058 


01B0 


ASAA 


E5 


0980 


0063 


01B1 


ASGR 


E6 


OEBC 


03C1 


01B2 


•ADIV 


E7 


027E 


00B8 


01B6 


AMCC 


E8 


027E 


018A 


01B7 


AM01 


E9 


027E 


0106 


01B9 


AVI A 


EA 


027E 


01D8 


01BB 


'AM1B 


EB 


027E 


01D8 


01BD 


AM02 


EC 


027E 


0106 


01BF 


AM2A 


ED 


027E 


0106 


OKI 


AM2B 


EE 


05DA 


015A 


01C3 


1 AM03 


EF 


07AA 


0051 


01C5 


AM 3 A 


FO 


027E 


01B3 


01C6 


AM3B 


Fl 


12E6 


0285 


01C8 


AXOl 


F2 


027E 


C1C9 


01CB 


•AX2A 


F3 


07A6 


0054 


01CD 


AX2B 


F4 


091C 


005B 


01CE 


AX2C 


F5 


0882 


0030 


OiCF 


AX03 


F6 


OEBC 


038E 


0100 



System Location Equivalence Table (SLET) E-l 



&2 



Appendix F. Core Dump 



The following is a partial printout of a core dump: 



ACCUMULATOR 4000 EXTENSION OFAF XR1 0000 XR2 0260 XR3 007F OVERFLOW OFF CARRY OFF 

AOOR ***0 ***1 ***2 ***3 ***4 ***5 ***6 ***7 ***8 ***9 **»A ***B ***C ***0 ***E ***F 

0000 70FF FFFB 0000 0949 OFFA 0238 0080 0000 0327 01E4 0OB3 0091 00C4 0091 4000 0000 * U D * 

0010 0000 0000 FFFF 0000 70FF 0000 0001 0000 D900 70FF 4000 OFAF 4C00 0500 0C00 04FE * „.R * 

0020 COFE 1890 4400 00F2 7400 OOEE 70FD 70F4 038C 3000 4C80 0028 00E6 0248 0000 0000 * 2 4 W * 

0030 0000 0000 0001 0000 0000 0000 0000 0002 7019 0000 1810 7017 0001 0004 FFFF 0000 * * 

0040 D8D9 4023 282A 6903 C480 003F D002 C8F4 4400 0OF2 C0F1 7007 0000 0000 0000 0000 *0R .. ..LD. .. .KH4. . .2. 1.. * 

0050 0000 COOO COEB 00C2 6580 0039 C101 1800 C100 6500 010C 08B8 4008 COFC 1890 4400 * B....A...A Q * 

0060 00F2 4003 4102 0000 0000 0050 COCB E8A9 4C20 0066 0803 4C80 0065 2000 0000 CC80 *.2 )..Y * 

0070 0000 0000 0000 0000 OCOO 0000 FFFF 0000 006E 0001 0000 0000 0000 0000 0000 0000 * * 

0080 0000 COOO 3000 4C80 0081 0000 3000 4C80 0085 0000 3000 4C80 0089 0000 3000 4C80 * * 

0090 008D 0000 3000 4CC0 0091 0530 0000 0000 0000 0000 0238 0000 0000 0000 0000 8800 * * 

OOAO OCCO COOO 0000 COOO 0658 0658 0658 0000 0000 0000 0000 0000 0000 0000 0000 0000 * * 

OOBO 0000 0000 0000 0066 6906 6A07 2807 D80A 4400 00F7 6500 01DC 6600 0260 2000 C802 * 0. . ..7. ....,..-.. H.« 

OOCO 4CC0 0OB3 0001 0000 06CE 0818 280E 690F 6A10 0816 1002 4C10 OODC 4480 002C FFFE * Q * 

0000 6109 0810 1140 4580 054C 2C0P 6500 0003 6600 0000 C803 4CC0 00C4 4001 028C 0000 */ H....D * 

OOEO 020B OFOO 0000 0300 OCOO 0F01 0000 08FC 4C40 OOEA 4400 003F FFFE 0000 0011 0000 *..„ .....* 

OOFO OOEF FF6A 004A 7400 OOEE 70FO 7002 0000 7018 690B 6A0C 1008 D03C 18D0 D05A 7054 * * 

0100 4C00 01C5 690F 0822 6500 0000 6600 0260 COEE 4C98 00F2 D003 1810 00E9 4C0O OOBA ♦ ...£ - 2 1....* 

0110 1000 6500 0004 6600 00F2 0816 D0C6 4810 70E7 C80A 0900 74FF OOEE 703A C80F COU * 2...F...XH.R H...* 

0120 4293 7034 0001 0238 OFFA 0238 0004 8000 0004 8D00 0122 8E00 8C00 8F81 OEBA 0239 * * 

0130 5002 5004 FECO 0001 0080 060O C008 5000 0FF8 0100 0701 0007 OOOA 009F FFFB 8E80 *£.£ £..8 * 

0140 0400 0141 0000 FFFF OCOO OCOO 1810 D0A6 74FF 0032 1000 70B8 C807 D900 C0E1 7000 * HPR * 

0150 C0E6 4400 0028 7038 7401 003? 6211 6A96 6500 0004 C900 D8C8 D8D1 1810 1084 DOOE *.W I.QHUJ * 

0160 80DC D01C 80DB 0034 8007 8C0A 8007 D006 62FD 69BE C101 EOCC D101 940C 00A4 4828 * P A. ..J * 

0170 7CC7 C101 80C3 7401 016E 7201 70F5 0101 6600 00F2 C23D E249 D250 C400 009F EA4E *..A..C 5 J. . . .2B.S.KED. . . .+* 

0180 D23A EA43 0239 EA50 9247 0237 EA42 8247 D24D EA48 023B CA3C 0A3A D2EB 4828 70BC *K...K..6..K K(..K K * 

0190 1002 4828 7060 1002 4828 7010 C101 9400 009A 4818 701B 1893 18.0F 1002 EA3A 1800 * A * 

01A0 4810 7002 F2 5 1 8230 0A34 420F CA38 CA34 420F C231 D480 0198 9101 4C18 01B6 74FF *....2 B.M # 

01B0 OOEE 70E4 7401 OOEE 4C00 0119 CA3C 4808 7011 8A40 0A3C 4830 1810 824F 0100 CA36 *...U ....J...* 

01C0 0A34 C101 EA50 D101 420F C240 D235 C247 4820 420F CA32 0900 C23C 4C08 0146 7500 *. .A .. EJ. . . B( K.B R.B ♦ 

01D0 0140 C900 0A32 CA3C 0900 7087 0000 0000 0000 0000 OOAO 2222 0170 015C 0132 014A ♦. I R *....* 

01E0 4C0O COOO 7028 4C00 CCOO 623? 081B 001A 1003 4810 7005 74FF 0032 1000 1810 D204 * K.* 

OlFO C011 1001 4810 7005 D204 081? 4804 7007 080D C008 100C 4810 70E6 D24E 70E4 C008 * K WK+.U..* 

0200 425B 70F3 0000 AF01 OCOO AOOO 0800 ACOO 9000 AFOO FFOO OOOA 694D 6A4E 6B4F 707E *.$.3 {.+,..=* 

0210 18D0 COIF D05C 0001 6780 OCOO 1000 705D 7007 4063 6C00 0036 08E9 703B C0E9 42EC * ♦ ) .Z...Z..+ 

0220 623C 08E6 4804 70FA C2FA 4830 70FA C04A 0600 0000 72FF 70FC 6100 6600 0000 10A0 *...W....B / + 

0230 C7C0 COOO 1100 E0D6 4810 702B 1002 4802 7001 7026 4808 720A 1002 180C 0001 C600 *G F.* 

0240 OOCO 4802 1008 1808 1888 COFA 902D 4810 7017 1090 1900 7100 7003 D0C8 7108 70DD * H....* 

0250 E8C5 C700 0000 73FF 7007 4C27 6C0O 0036 08AB 6500 OCOO 6600 0000 6700 0000 7080 ♦YEP P * 

0260 C011 C01B 6200 10A0 C6C0 OCOO 1888 1008 9014 4818 70DE 72FF 70F6 70DB 7001 COOO * F 6 * 

0270 0000 A900 7F7F 4040 OOOA 4C07 6204 D27C 6C0O 0036 08F5 704C 4C00 0000 0889 4804 * K 5 * 

0280 7006 1000 4820 70FA 7401 0032 70F5 C080 44C0 0028 70F3 70CD 0082 7082 6801 6600 * 5 3 * 

0290 0000 7600 FF77 6ADC 72FE 6A0B 7600 OCIEB 6A95 7213 6ACA 7600 FF89 6A8B 6AB3 7201 + ........* 

02A0 6E00 COOO 72A5 6A25 6A38 CC01 70E5 1000 0000 0000 COOO 0000 0000 0000 0000 0000 * V * 

02B0 OCCO COOO COOO 0000 CCOO CCOO OOCO 0000 OOCO 0000 0000 0000 OOCO 0000 0000 0000 * * 

02C0 0000 0000 0000 0000 0000 0000 0000 0000 6780 0000 C233 1890 A8A7 1800 E81F 0306 * B Y.L.* 

02D0 1010 73FF 72FF 70F8 C30? FOlfl 4820 70C4 C09A D307 7301 70F8 6780 0000 C304 1888 . ....... .8C. L. . . .8. . . .C. . .* 

02E0 C303 1088 D303 C306 1888 C305 1088 C304 C88A DB05 7401 0037 C881 7090 OOFO 7F7F *C .L.C. . .C. . .L. H H....0..* 

02F0 6458 2519 261A 675B 681C 295D 2A5E 6B1F 2C20 7F49 7F40 0D01 0E02 4F43 1004 5145 * *...).., * 

0300 5246 13C7 5408 407F 7E4A 7C0B 614C 5015 6B16 4057 6061 5B62 5C23 4E6C 4B6E 5D2F * = .«./. 6. ,.(.-/!.*.♦... J.* 

0310 1234 5678 D3F8 C2CD 4820 42D0 C201 1001 4828 7010 4802 7022 70C2 C2F9 009C 0140 *... .L8B. . . ..B BB9...I* 

0320 4C00 06A9 7077 4C0O CCOO 7C0C 4C40 0000 0835 2806 0835 C034 803B D032 0833 C82E * Q H.* 

0330 2CC0 70F4 0829 1C02 4828 701R 10C1 4828 7036 1010 C400 0013 74FF 0032 1000 C022 *...4 H * 

0340 DC01 6600 0000 C202 1800 C201 9825 4818 1800 4820 70D8 C203 4820 7005 6C00 OOOF * B...B QB....N....* 

0350 7002 C01C DOOD 0012 CC08 4804 7002 401E 7001 4028 080B 70C7 1401 1702 0000 0000 *.K G * 

0360 OCCO 11CC COOO 1701 4E00 4F01 0000 0000 0001 1402 1000 1702 3000 3000 4000 COEO * + ..... ...* 

0370 4804 70C7 0400 0033 70C4 4C00 0000 08F2 4804 7003 COFO 00E1 70F8 COEC 4400 0028 *...6M....0 2 0...8 * 

0380 70F6 4CC0 038E 08E0 4804 7C03 CODE 0005 70F8 C0E4 4400 0028 70F6 40F4 C0D5 0007 *.6 N.8.U 6 4.N.P* 

0390 1800 0004 DOCF 6CC0 0013 7401 0032 08CE 2000 7086 28FD D003 7400 0013 70FD 7002 *...H * 

03A0 70EC 700C 70EA 4002 C0C4 DCC1 C400 0033 4818 70E9 1010 D400 0033 70E9 40C7 COAC * K.D.AD Z..M....Z G..* 

03B0 O0B6 1800 80B5 COAC 70DD CCCO COCO COOO 0000 0000 0000 2542 0089 0153 4C00 COOO * * 

03C0 282E 692A 6A2B 0003 0023 6250 C6C0 0000 D028 1886 1807 1883 C024 610A E023 1140 * £F /.... * 

0300 1C01 4818 7002 C020 7C12 691B C01A 1084 0008 0017 6808 C007 8016 D005 C012 1091 * * 

03E0 6500 COOO C500 CCOO 4802 1C0R 1808 0600 0000 72FF 70DB 6500 OOCO 6600 0000 2000 *....E * 

03F0 70C0 0000 1FC0 001C OOEF OCOO 0000 40F9 F838 F0E9 E828 60D9 0818 D0A9 A868 50C9 ♦ 98.0ZY.-RQ.. . . . EI* 

0400 C808 C089 8848 6A99 9858 70B9 B878 F737 7F3F E727 6F2F 0717 5F1F A767 AFEF C7C7 *H 7...X...P G.* 

0410 4F0F 8747 8FCF 9757 9FDF B777 BFFF F636 7E 3E E626 6E2E 0616 5E1E A666 AEEE C606 * 6. = .W...0 F.* 

0420 4E0E 8646 8ECE 9656 9E0E B676 BEFE F535 7D3D E525 602D 0515 5D10 A565 ADED C505 *♦ 5. • .V...N. )..... E.« 

0430 4000 8545 80CO 9555 9CC0 B575 BOFD F434 7C3C E424 6C2C D414 5C 1C A464 ACEC C404 *« 4...U...M.* C.» 

0440 4C0C 8444 8CCC 9454 9CDC B474 BCFC F333 7B3B E323 6B2B D313 5B1B A363 ABEB C303 * 3...T.,.L.$ C* 

0450 4B0B 8343 8BCB 9353 9B0B B373 BBFB F232 7A3A E222 E02A D212 5A1A A262 AAEA C202 * 2...S...K B.* 

0460 4A0A 8242 8ACA 9252 9A0A B27? BAFA F131 7939 6121 6929 0111 5919 A1E1 A020 C101 * 1. ../... J A.* 

0470 4909 8141 8000 9151 9010 B171 B030 C0D8 0040 0OD4 00D6 00C4 00C9 00C6 0000 0000 * Q. .M.O.D. I.F.. ..* 

0480 OCOO COCO COOO COCO OCOO CCOO OOCO 0000 0000 720C 6A02 61F4 C5CC 0466 D500 OFBC * /4E...N...» 

0490 7101 70FA 61BC C014 D500 1000 7101 70FC 6580 0019 7101 70C7 61FC C500 0451 0500 *..../...N /.E...N.* 

04A0 OFBE 7101 70FA C005 0400 OCOF 4C00 0038 0040 FFFF OCOO 0000 OOCO OOOC 0000 COOO *..... ...M .....* 

04B0 OCOO COOO COOO COCO 0000 1C0O C817 0C80 04D9 COIF 1890 4400 00F2 7400 OOEE 70FD * H....R i * 

04C0 C018 8400 054E 0010 0012 0400 0009 6500 04CF 6D00 0004 700F 0099 0000 0132 014A * *....¥. M * 

Core Dump F-l 



ACOR ***0 ***1 ***2 ***3 ***4 ***5 ***6 ***7 ***8 ***9 ***A ***B ***C ***D ***E ***F 

0400 OCCO CCIOO COOO COOO CCOO OGOn OOCO 0000 0000 058A 058D 7200 70C1 7038 C600 0550 * . F...C* 

04E0 D001 6500 0000 CCCO 0014 D82B 1002 1802 1888 4018 D103 180A 1086 4014 1008 0020 * C J.. .* 

04F0 1C02 1086 400F E81C 0104 C81S 1084 l$10 1086 4008 1008 0014 1002 1086 02FE 0119 * Y.J.K. .. ,, . * 

0500 C4C0 C064 4C10 C508 4400 0039 2210 15C0 4C08 050E 4400 0039 0764 9540 616E 6000 *D /.,.* 

0510 0078 1000 65C0 054C 6000 CCD4 C841 6100 4022 C037 0400 0009 6500 057E C400 007C * MH./. ...M. = D..,.* 

0520 4C20 C64C 6500 0582 4C00 064C C835 6101 4012 C029 801E 0400 0008 4074 C01C 802C * H./ M .,.* 

0530 8018 1801 1001 D018 8014 0400 06B8 C828 6102 4001 707E 053A 0D80 054A C500 054A * H...H./. ..= ....* .e .... * 

0540 1890 4400 C0F2 7400 OOEE 7CF0 4C80 053B 0001 0003 OlOE 031E 03BC OOOC 0000 COOO * 2 ...* 

0550 OOCO C1E4 0324 C324 OCOO 0324 0099 0000 0132 014A 009A 0000 009C 014D 009C 0000 *...l (...,.* 

0560 00B9 C153 0070 07FE 0280 0121 0072 07FE 03EA 0125 0078 01E0 0782 012F 006F 07FE * ..* 

0570 052B C1.1C 0095 COOO CC03 0155 0090 0000 00B9 0153 008E 0000 0116 014C 0092 0000 * ...* 

0580 0174 0151 009B 0000 009C 140 0071 07FE 0280 0123 0001 7C50 032F 0008 OOCF OlEO * ..< 6 ,.* 

0590 026B C171 001F 760C 09F1 0C41 OOBO COOO 0000 0000 0099 0000 0132 014A 0051 106A *., 1 ..* 

05AO OCOF C09C 052E C009 90B4 4C20 05AD C0D9 9084 4C20 05B4 C09C 7008 C0D3 90AE 4C20 * R.......R L....* 

05B0 05B4 C400 0656 7001 1810 0400 007C 4C80 05A2 C400 OOOF 4C28 05C6 4C08 05C4 C400 *..D M D F...DID.* 

05C0 060A 4400 06BA 7002 4400 069C 1010 0400 OOOF C03C 0480 06B5 65C0 OFBO 6208 C100 * .....M M QA.* 

05DO 1008 E901 0600 0F08 7102 7201 70F8 C400 0F82 1890 C400 0FB1 0827 9029 4C20 05E2 *. .Z .0..Q. . .. .80 0...Q .S* 

05E0 63F2 700E 6500 056E 62E5 63F3 C81D 9E00 0623 4C20 05F9 1090 4C20 05F9 721A 7007 *.2 V.3H 9 9..,.* 

05F0 7400 0071 7001 C400 06B5 4400 06BA 4F80 0630 7104 7202 7301 70E9 C400 06B5 4400 * JO... ZD.....* 

0600 06BA 6301 4400 0601 0000 OCOO 0028 405C 4001 D6C2 40C5 D1C5 4007 C1E4 40C3 D7D9 * J * JOB EJE PAU CI'R* 

0610 40E3 E8D7 40E3 C505 40E7 C508 40C4 E4D7 40C1 E2D4 40C6 D609 40D9 D7C7 40C3 C5D5 * TYP TEN XEQ DUP ASH FOR RPG ClrN* 

0620 40C3 D6C2 05C4 0666 063B 0644 0630 064C 064C 0657 0650 0663 0663 0663 0630 0663 * COB.D ) ..* 

0630 C902 OCOO 0558 C820 4400 0CF2 7400 OOEE 70FD 4C00 0516 4400 0730 7400 0036 70FD *I H....2 ..* 

0640 1010 0480 0006 7080 7400 003? 70F0 COOE 4400 0028 4C00 05C4 C902 DCOO 055C C9F6 *..M DI....M6* 

0650 OCOO 0560 4C00 0526 0001 04FE FFFF C400 0035 4C18 0666 6302 4074 C400 0034 4C18 *...- D * 

0660 0666 6303 406E 1810 0400 0034 C902 4C08 0686 D80E C101 OOOE 6580 067A 62F2 C600 * M...I Q.A 2F.* 

0670 0686 D600 0022 7201 70FA 4C0O 0017 0000 0000 0000 0000 C8FC 0900 COFC 1890 4400 *..0 H.R * 

0680 00F2 7400 OOEE 70FD 4000 0C02 C020 D400 0034 0400 0035 6306 4044 C0C8 0400 001B *.2 1 P...M HH...* 

0690 7001 COOO 4400 0039 OCOO OCOO 6500 056A 70C0 0000 0000 0000 05C6 61B0 1810 0500 * F/...N.* 

06A0 1000 7101 70FC C015 0480 06B5 C80D 4400 0321 7400 0013 70F0 COOS 4480 06B8 C400 • H...H 0.* 

O6B0 OOOF 4CA0 069C 70E9 7002 OFAF 7001 0000 03BF 0050 0000 DOFB C400 0570 9400 0559 * Z 6. ... D. .'.... * 

06C0 4C18 C6C6 C480 0006 4420 0730 COED 4400 01E1 C8EC 4400 01E1 74C0 0036 70FD 4C80 *...FD H * 

0600 06BA 0000 C700 06D6 40E5 4C00 05C4 0600 06F0 06FE 0709 0724 0732 0012 D440 F1FI 4....6..0 V...D...0 M LI* 

06E0 40C9 05E5 CI 03 C9C4 4004 D6D5 C9E3 D6D9 40C3 D605 E309 06D3 40D9 C5C3 0609 C440 * INVALID MONITOR CONTROL RECORD * 
06F0 OOOD C440 F1F2 40C5 E7C5 C3E4 E3C9 D6D5 40E2 E4D7 07D9 C5E2 E2C5 C440 OOOA 0440 *..M 12 EXECUTION SUPPRESSED ..I* * 
0700 FIF3 40C4 E4D7 40E2 E4D7 D7D9 C5E2 E2C5 C440 OOIA D440 F1F4 40E2 E8E2 E3C5 D440 *13 OUP SUPPRESSED ..M 14 SYSTEM * 
0710 0709 C6C7 09C1 0440 C4C5 E3C5 C3E3 C5C4 4004 D6D5 C9E3 D6D9 40C3 06D5 E309 D6D3 *PROGRAM DETECTED MONITOR CONTRCL* 
0720 4009 C5C3 D6D9 C440 OCOD D440 F1F5 40C9 0303 C5C7 C103 40C3 C109 E309 C9C4 C7C5 * RECORD ..H 15 ILLEGAL CARTRIDGE* 

0730 40C9 C440 OOOA D440 F1F6 40D7 D9D6 C7D9 C1D4 40E5 D6C9 C4C5 C440 0000 C014 D015 * ID ..M 16 PROGRAM VOIDED * 

0740 C011 1890 4400 00F2 7400 OOEE 70FD COOC OOOC C806 4400 01E1 4400 01E1 4C80 073D * 2 H * 

0750 7C00 C755 0754 0007 OCOA OCOO 0000 0000 0000 0000 0000 0000 OOCO 0000 0000 COOO * * 

0760 0000 0E6C 0001 0E6C 0140 0001 0000 COFE 0005 C8FA DCOO 0E6C C8F3 7002 0000 C8F2 * H H3....H2* 

0770 4400 C0F2 7400 OOEE 70F0 4C80 076E COOO C200 902E 4C10 0795 693C 6B3C 63FB C200 *...2 B ,...B.* 

0780 9C28 4C18 07CA 6500 079B C200 9022 4C18 07BE 9100 4C28 0795 9101 4C08 0791 7102 * B ..* 

0790 70F8 7201 7301 70EF 7016 6580 07B9 10A0 7401 0777 7010 001B 0000 002C 0001 0045 *.8 * 

07A0 0008 C008 COOS 0C09 0C07 CC07 C009 3F06 OOFO 0040 003F 72FB 63FB 10A0 D821 C200 * U.B.* 

07B0 E0F9 100A E81D 18DA 7201 7301 70F7 72FB 6500 0000 6700 0000 4C80 0777 C200 90E9 *.9. .Y 7 B...Z* 

07C0 4C20 C795 7201 7301 70F9 70E5 C200 9DEI 4C20 0795 7201 7301 70F9 10AC 70E9 0000 * 9.VB 9...Z..* 

07D0 OCCO COOO GOOO 0000 OCOO 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 COOO * * 

07F0 OCOO COOO COOO CCCO OCCO CCCO OCCO 0000 0000 0000 COOO 0000 OOCO OOOC 0280 0121 * ..* 

0800 6170 6D00 0078 1000 61FB C500 0E96 9500 0E9B 4C18 0924 C500 0032 0400 0D2B C400 */ /.E E...H...D.* 

0810 08C9 1890 D400 08C6 4400 0CF2 7400 OOEE 70FD C400 0D20 1004 D4C0 08B9 9500 0E9B *. I. .M. .F. . .2 M ..* 

0820 66C0 FEC2 4C 10 C843 6600 FEC5 C4C0 08B9 86C0 0E6E 0400 08B9 95C0 0E9B 4C10 0843 *...B ED M * 

0830 7203 70F4 C400 002B E400 08B8 ECOO 0P30 04C0 0D2B C400 08C9 1890 440C 0OF2 7400 *...4D...U M...D..1 2..* 

0840 OOEE 70FC 70E1 6301 C400 0C2P 0700 OBBB 72C3 701A C400 0D2B E4CC 08B8 ECOO 0D30 * D...P D...U * 

0850 D400 002B C400 08C9 1890 4400 00F2 7400 OOEE 70FD 7301 C400 0D2B D700 08BB 6600 *M.. .D.. I . . .. .2 D...P * 

0860 FEC5 7400 08C6 700D CC54 8600 0E6E D051 95C0 0E96 4C20 0848 7203 7003 C049 0056 *.E...F * 

0870 7009 C4CC 0D30 C050 C600 0E6C 903F 4820 70F3 C600 0E6E D03E C5C0 0E96 D03C 7600 *.RD....tF 3F E * 

0880 013E 1000 1810 C600 0D2E D6C0 002F D600 0D30 72F0 701D 62FB 1810 D600 0D31 7201 * 0...0...0 * 

0890 70FC CCCO 08C8 44C0 00F2 7400 OOEE 7OF0 73FF 1000 C700 OBBB D4CC 002B C4C0 08C9 * H...2 G. .. C. .0. . I* 

08A0 1890 4400 00F2 7400 OOEE 70FH 6600 013B CO 1 1 8600 0030 DOOE COOE 9600 0D30 DOOB * 2 * 

08B0 95C0 CE9R 4C18 08CB 70CD OCOO 7112 4528 FOCO 0000 0000 0000 OOOC 0000 0000 0000 * * 

08C0 OCCO COCC COOO CCCO OCOO OCOO OCCO 0140 0001 0D2A C002 6AF9 CODA 90F7 D0F6 4C10 * 9. ..7. 6..* 

08D0 08E0 C4C0 0D30 D400 0D2B CCF3 1890 4400 00F2 7400 OOEE 70FD 6600 0139 6AE6 6203 *. .D .. .M. . . .3 2 W..* 

08E0 C0D9 C600 0D3O C0D2 D600 0C2F. CODO D600 0D2F CODA D400 0030 CODS D400 0D2F C5C0 *.RO....KO C N. . . .CM . . . E. * 

08F0 CE9B 05C0 0E96 CCCO 08C8 4400 00F2 7400 OOEE 70FD C500 0032 EOBB 4C08 0924 ECOO *..N H...2 E * 

0900 0E6D C4CC 0D2B C400 08C9 1890 4400 ; 0F2 7400 OOEE 70FD 62FB C5C0 OEAA 9600 0D68 *..M...D..I 2 E * 

0910 4C18 C919 7201 70F8 D400 0C71 6305 4400 0601 C600 0D59 D600 0054 CCOO 08C8 4400 * 8M JF...0 H..* 

0920 00F2 7400 OOtE 70FD 7101 7C01 7002 4C00 0805 4400 076E C400 0E8F 4C08 0038 61FC *.2 /.* 

0930 C400 C8CA D4C0 0D2B 7401 0C2B C400 08C9 1890 4400 00F2 7400 OOEE 70FC 6600 FECO *D...M 0..1 2 * 

0940 C4C0 C566 9600 0E6C 4C18 094F 7204 70F8 7101 70EA D400 0071 6306 4400 06DI 6500 *D 8....M J..* 

0950 0566 CECO 0E6E C902 4C00 0666 OCCO 0000 OOCO 0000 OCOO 0000 0000 0000 0000 0000 * R * 

0960 OCCO COCC 0000 CCCO CCOO CCOO OCCC CCCO COCO 0000 COOO 0000 OOCO 0000 0000 COOO * * 

0A80 C4C9 C9E5 C540 4040 C3C1 D9E3 40E2 07C5 C340 4040 C3C1 D9E3 40C1 E 5C I C903 4040 *DRI VE CART SPEC CART AVAIL * 

0A90 D7C8 E840 C4D9 C9E5 C540 44CC 0C91 C0E4 1890 C6C0 0A2E 4400 0C03 COAD 4C20 0AB5 *PHY DRIVE U..F.... * 

OAAO 4400 0766 C400 0E76 4C20 0AA9 6204 4C00 0B87 0400 OOEO 6600 FECO C600 OFAE D600 *....D M. . . . . . ,F . . .C* 

OABO 0E6C 7201 70FA 44C0 0C45 62FA C6C0 0A33 06C0 0EA5 7201 70FA 6680 0CF3 C500 0A28 * ...F...0 3E...* 

OACO 72FC 7004 7204 1000 D600 OEAO C4C0 0A46 1004 0400 0E8A 62FC 1810 D600 00A4 D600 * 0...D M. . . . . . .0. . . C* 

OADO 009F C600 0E96 C600 0E9B C600 OEAO D600 OEAA D600 OEAF D600 0EB4 D600 0EB9 D600 *. .0 .. .G. . . C. . .C . . .0. . .0. . .0. . . C* 

OAEO OEBE C600 0EC3 C600 CEC8 C600 OECD 7201 70E4 62F4 C600 00B3 72C1 70FC 44C0 096A +..O..CO..HC L.40 * 

OAFO 44C0 C73D 1010 C480 0C06 C4C0 06B5 4400 06BA 1010 C480 0006 C4CC 0A7C 4400 06BA * M...C M.-..0 * 



F-2 



ACDR ***0 ***! ***2 #**3 ***4 ***<i ***6 ***7 ***8 ***9 ***A ***B ***C ***C ***E ***F 



OBOO 


C4C0 


CA7L! 


4400 


CCAF 


7101 


icer 


C500 


0A28 


4C18 


0B3B 


4001 


7015 


0A26 


660C 


0A5B 


6EO0 


OBIO 


OCAE 


6200 


C6C0 


CA2E 


4C28 


CE80 


4C08 


0B1C 


95C0 


0A28 


4C98 


OBOC 


7201 


1C0C 


7403 


OCAE 


0B2C 


70FI 


44C0 


0C91 


C001 


1890 


C60O 


0A2E 


4400 


0C0 3 


C400 


0CF2 


100C 


84C0 


0E6C 


D4C0 


0D2B 


0B30 


C4C0 


CA4A 


1890 


44C0 


00F2 


74C0 


OOEE 


70FD 


44C0 


0C45 


70C5 


61F5 


C5CC 


0A39 


4C18 


0B4A 


OB40 


6CC0 


CCF3 


740B 


0CF3 


1C00 


D4C0 


0CF4 


1810 


44C0 


OCAF 


7101 


70F0 


61FB 


C500 


0EC3 


D500 


OB50 


0032 


C500 


OEAO 


C5C0 


009A 


7101 


70F6 


C400 


OEAA 


0400 


0005 


C400 


0A3B 


0400 


002B 


C400 


OB60 


0A4A 


1890 


4400 


C0F2 


7400 


OCEF 


70FD 


CCOO 


0E36 


DCOO 


C10C 


4009 


74C1 


09AC 


4C80 


09A0 


OB70 


OCOO 


OCOO 


OBFE 


4CC0 


0005 


CE6C 


C4C0 


OBFC 


D400 


002C 


C0F5 


4C98 


0B75 


440C 


003F 


FFFE 


0B80 


8070 


4C10 


0B86 


907A 


0500 


0A2R 


6201 


C600 


0BA2 


8074 


D40C 


0019 


C5C0 


0A28 


4400 


0CF5 


OB90 


C6C0 


CBA2 


4400 


C6BA 


C068 


C4C0 


009F 


D400 


0071 


C866 


DCOO 


00A4 


C065 


0400 


0OA6 


4005 


OBAO 


6038 


COCC 


70 01 


CBA7 


OBBB 


0BD3 


OBEB 


0013 


E7E7 


E7E7 


40C9 


E240 


0506 


E34C 


C1D5 


40C1 


OBBO 


E5C1 


C9D3 


C1C2 


D3C5 


4CC3 


C1D9 


E3D9 


C9C4 


C7C5 


40C9 


C440 


0017 


E7E7 


E7E7 


40C9 


E240 


OBCO 


C140 


C4E4 


D7U3 


C9C3 


C1E3 


C5C4 


40E2 


C7C5 


C3C9 


C6C9 


C5C4 


40C3 


C1D9 


E309 


C9C4 


C7C5 


OBDO 


40C9 


C440 


4040 


CC17 


E7E7 


E7E7 


40C9 


E240 


C140 


C4E4 


0703 


C9C3 


C1E3 


C5C4 


40C1 


E5C1 


OBEO 


C9D3 


C1C2 


D3C5 


40C3 


C1D9 


E3D0 


C9C4 


C7C5 


40C9 


C440 


4040 


OOOF 


E7E7 


E7E7 


40C9 


E240 


OBFO 


D5C6 


E340 


CI 4 


E2ES 


E2E3 


C5C4 


4CC3 


C109 


E3C9 


C9C4 


C7C5 


0B70 


0OE6 


8800 


0001 


CF01 


ocoo 


0658 


0658 


0658 


CA9D 


C83B 


693C 


6A3C 


C039 


4C20 


0C15 


6205 


C600 


0A27 


4C18 


0C12 


9030 


OCIO 


4418 


CC2C 


72FF 


70F7 


7C21 


620B 


C6C0 


0A20 


4C18 


0C1D 


9025 


4418 


0C2C 


72FF 


70F7 


7016 


OC20 


0C1D 


6A22 


74 FF 


0C44 


1000 


coin 


901D 


4C98 


OC20 


C017 


4C20 


0C31 


6580 


0C43 


6202 


4C00 


0C30 


0B87 


6580 


0C42 


6203 


4C00 


0687 


6580 


CC42 


6680 


0C43 


1810 


D600 


0A2E 


C802 


4C80 


0C03 


0C40 


2222 


CA7C 


COOO 


C001 


CC01 


OCOO 


62FB 


C500 


0A28 


9600 


CD68 


4C18 


0C51 


7201 


70F8 


4C00 


0C50 


0B86 


7205 


1000 


693C 


C030 


1C0C 


0039 


C600 


004F 


0500 


0E91 


C600 


0D54 


0500 


0E96 


C600 


0C60 


0D59 


4028 


0500 


0E9B 


C6C0 


CC63 


D5C0 


0EA5 


C6C0 


0068 


401F 


D500 


OEAA 


C600 


0D6D 


401A 


ocjo 


D5C0 


CEAF 


C6C0 


CD72 


0500 


0EB4 


C600 


0077 


4011 


0500 


0EB9 


C600 


0D7C 


400C 


D500 


OEBE 


0C80 


C600 


C081 


D500 


0EC3 


C600 


0C86 


D500 


0EC8 


4C80 


0C45 


COOO 


1004 


1804 


E802 


4C80 


0C8A 


OC90 


OCCO 


CA97 


695F 


6A5F 


C6C0 


CA2E 


04C0 


0CF4 


C6C0 


0A50 


C500 


009F 


6580 


OCAE 


6600 


C0A7 


OCAO 


ClOO 


C200 


C101 


C201 


C102 


020? 


7403 


0C9F 


65 80 


0CF2 


6680 


0CF3 


4C80 


0C91 


0A5E 


0B4A 


OCBO 


1890 


C027 


0066 


62EA 


CC3C 


D6C0 


0CF1 


7201 


70FC 


1090 


4C18 


0CC6 


7402 


0019 


C033 


4035 


OCCO 


7404 


CD19 


C500 


CA28 


4030 


7C0? 


74CA 


0D19 


7404 


0019 


C029 


4029 


7404 


0019 


C024 


4025 


OCDO 


C807 


4400 


01E1 


7400 


0036 


7CFD 


4C80 


OCAF 


7001 


OCDA 


0016 


4040 


4040 


404C 


4040 


4040 


OCEO 


4040 


4040 


4040 


4C40 


4040 


4C40 


4040 


4040 


FOFO 


FIF1 


4040 


4040 


404C 


4040 


FOFO 


F0F2 


OCFO 


4040 


4040 


0000 


0002 


0011 


OCDO 


1890 


6918 


6A19 


61FE 


62FE 


00 1C 


1810 


1084 


9016 


4808 


ODOO 


8015 


8015 


1008 


7201 


70F6 


1808 


E811 


D480 


0019 


7401 


0019 


1810 


DOOB 


7101 


70EB 


65C0 


ODIO 


FFF7 


6600 


COOO 


4C80 


0CF5 


0009 


0039 


OOCO 


OOCO 


OCFO 


0000 


0000 


OOCO 


0000 


0000 


COOO 


0D20 


OCOO 


COCC 


COOO 


0000 


OCOO 


0000 


0000 


0000 


0000 


0000 


0140 


0003 


0001 


7C5C 


032F 


0008 


0030 


0C02 


110E 


05A2 


COOB 


0C03 


21DF 


05A2 


0010 


0004 


01DE 


03C0 


0015 


00C5 


41DE 


054B 


C018 


0D40 


0006 


ClOE 


03C0 


0010 


0007 


01DE 


05A2 


0020 


0008 


010E 


05A2 


0025 


0009 


010E 


0500 


002A 


0050 


OOOA 


7A06 


OOOE 


C02E 


OCOB 


7A06 


0035 


002F 


OOOC 


7A06 


00D8 


0030 


OOOD 


7782 


087C 


0031 


0D60 


OCOE 


7A06 


0248 


C038 


OOOF 


7A06 


0248 


003A 


0010 


7A06 


0248 


003C 


0011 


01DE 


0280 


003E 


0D70 


0012 


CE6E 


0140 


0040 


001F 


760C 


09F1 


0041 


0020 


7A34 


0500 


0049 


0021 


7A34 


0280 


004D 


0060 


0022 


7A34 


03C0 


C04F 


0023 


7A34 


05C0 


0052 


0024 


7A34 


03C0 


0056 


0025 


7A34 


0280 


0059 


0090 


0026 


7A34 


0500 


005B 


0027 


7A34 


03F0 


005F 


0028 


7A34 


03C0 


0063 


0029 


7A34 


03C0 


0066 


ODAO 


002A 


7A34 


03C0 


0069 


G02B 


7A34 


03C0 


006C 


002C 


7A34 


0500 


006F 


0020 


7A34 


0500 


0073 


OOBO 


002E 


7A34 


0500 


0077 


002F 


7A34 


0500 


007B 


00 30 


7A34 


0500 


007F 


0031 


7A34 


0404 


0083 


OOCO 


0032 


7A34 


03C0 


0087 


C033 


7A34 


03C0 


008A 


00 34 


7A34 


0280 


008D 


0035 


7A34 


03C0 


008F 


OODO 


0036 


7A34 


03C0 


C092 


0C37 


7A34 


05C0 


0095 


0038 


7B8E 


03C0 


0099 


0039 


766E 


0140 


009C 


OOEO 


0051 


106A 


OCDF 


009D 


0052 


01DE 


OCCA 


00A8 


0053 


0262 


04AC 


00B3 


0054 


0282 


154B 


00B7 


ODFO 


0055 


0282 


0E3B 


00C9 


0056 


0282 


13E9 


0005 


0057 


0282 


0A68 


00E5 


0058 


0262 


19F0 


COEE 


OEOO 


0059 


C284 


0525 


0103 


005A 


0280 


05C0 


0108 


005B 


0282 


0604 


0100 


005C 


0282 


06F6 


0113 


OE10 


006E 


04FE 


02FE 


0119 


006F 


07FP 


052B 


one 


0070 


07FE 


0260 


0121 


0071 


07FE 


0260 


0123 


0E20 


0072 


07FE 


03EA 


0125 


0073 


0506 


04F8 


0129 


0074 


0400 


0189 


0120 


0078 


01EO 


0782 


012F 


0E30 


0079 


C5BC 


0403 


0136 


007A 


08B6 


01E8 


013A 


007B 


08B6 


01E8 


013C 


007C 


0686 


01E8 


013E 


0E40 


007D 


08B6 


01E8 


0140 


0C7E 


OAAO 


0140 


0142 


007F 


OAAO 


0140 


0143 


0080 


OAAO 


0140 


0144 


0E50 


0081 


OAAO 


0140 


0145 


0062 


OBE? 


0140 


0146 


00 83 


08B6 


01E6 


0147 


0064 


OAAO 


0140 


0149 


0E60 


008C 


COOO 


0132 


014A 


008D 


OCOO 


0113 


014B 


00 8 E 


0000 


011B 


014C 


014C 


0001 


0000 


0000 


0E70 


0000 


COOO 


0000 


COCO 


OCOO 


CCCO 


02CB 


COOO 


OOCO 


0000 


OCOO 


0000 


0000 


0000 


0000 


0001 


0E80 


CCOO 


COOO 


0000 


COOO 


OCOO 


CCOO 


OOCO 


0001 


0001 


010A 


6C00 


COOO 


COCO 


0000 


0000 


0000 


0E90 


OCOO 


5300 


0000 


COOO 


OCOO 


CCOO 


5300 


0000 


OOCO 


0000 


OCOO 


0530 


OOCO 


ococ 


0000 


0000 


OEAO 


OCOO 


2222 


0011 


COCO 


OCOO 


2222 


OOCO 


0000 


OOCO 


0000 


0238 


0000 


OOCO 


ococ 


0000 


01C8 


0E80 


0000 


0000 


0000 


COOO 


0000 


0000 


0000 


0000 


00 00 


0100 


0000 


0000 


COOO 


0000 


0248 


COOO 


OECO 


0000 


0000 


0000 


COOO 


OCOO 


OCOO 


0000 


COOO 


OOOF 


0000 


CCOO 


COOO 


OOCO 


0000 


0000 


0000 


OEDO 


OCCO 


COOO 


0000 


COOO 


OCOO 


OCOO 


0000 


0000 


0000 


0000 


COOO 


0000 


0000 


0000 


0000 


0000 



OFAO OCCO COOO COOO COCO OCOO CCCO OOCO COOO OOCO 0000 CCOO COOO OOCC OCOC 0000 0050 

OFBO 0000 COOO 0000 0000 OCOO CCOO 0000 0000 0000 0000 0000 0000 OOCO 0000 0000 0000 

1FF0 OCCO COCC 0000 0000 OCOO OCOO 0000 0000 0000 0000 CCOO 0000 OOCO OOOC 0000 2000 

2000 OCCO COOO 0000 OOCO OCOO OCCO OCCO 0000 0000 0000 COOO 0000 OOCO OCOC 0000 COCO 



.1 F D..2. M...« 

2 E/5E * 

...3...3..N..4 0/.E..CN.* 

..E...N 6D...M...D...M...C* 



.N. 



.N. 



.D...M. 
,..F... 



.M. 



.....5* 

F P. ..P...H...... . .M... N* 

- L....XXXX IS NOT AN A* 

VAILABLE CARTRIDGE ID ..XXXX IS * 

A DtPLICATED SPECIFIED CARTRIDGE* 

10 ..XXXX IS A DUPLICATED AVA* 

ILABLE CARTRIDGE ID ..XXXX IS * 

NOT A SYSTEM CARTR ICGE. . .W * 

Q F ♦ 



...E 

...F...N. 
•N...F... 



.N. 



N...F. 

F...N..H 

F...M..4F..6N. 



A.K.A.K.A.K. 
C. 



0011 



0002* 



,(* 



.Z.N. 



3FF0 CCCO COOO 0000 COCO OCOO OCOO OOCO CCOO COCO 0000 CCOO COOO OOCC OCOC COCO 4000 *. 



Core Dump F-3 



F-4 



Appendix G. Resident Monitor (Including Table of Equivalences) 



The contents of this appendix are not to be construed as an external specification; that is, 
the locations in this listing may be changed. $PRET, $IREQ, $EXIT, SLINK, and $DUMP 
are the only locations that are guaranteed. 

Note. In the following listing of the resident monitor, = is equivalent to #, and ' 
(apostrophe) is equivalent to @. The items noted in this listing identify locations discussed 
throughout the text of this publication. 



// JOB 



LOG DRIVE 
0000 



CART SPEC 
3333 



CART AVAIL 
3333 



PHY DRIVE 
0001 



V2 Mil ACTUAL 32K CONFIG 32K 

// ASH 

♦LIST 

*XREF 



C0001 
00002 
00003 
00004 
00005 
00006 
C0007 

coooa 

00009 
00010 

coon 

C0012 
00013 
00014 
C0015 

ooou 

C0017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
C002A 
00029 

cooio 

00031 
00032 
00031 
00034 
00035 
C0036 
C0037 
00038 
00039 
00040 
C004 1 
0004? 
00043 
00044 
00045 
00046 
C0047 
00048 
00049 
00050 
C0051 
C0052 
00053 
000S4 
C0055 
00056 
00057 
00058 
C0059 
00060 
00061 
C0062 
00063 



* RLTV ADDR* SYMBOL* DESCRIPTION 



10 

11 
12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

33- 

35 



= NAME 
= DBCT 
= FCNT 

= SYSC 
= JBSW 



= LCNT 
= MPSW 

= M0F1 
= MDF2 
= NCNT 
= ENTY 
= RP67 
= T0DR 
= FRDR 
= FH0L 
= FSZE 
= UH0L 
= USZE 

= ncsw 

= PI0D 
= PPTR 
= CI AO 
= ACIN 
= GRPH 
= GCNT 
= LCSW 
= X3SW 
= ECNT 



RESERVED FOR EVEN BOUNDARIES 
NAME OF PROGRAM/CORE LOAD 
BLOCK COUNT OF PROG/CORE LOAD 
♦FILES SWITCH — ZERO MEANS NO 
FILFS HAVE BEEN EQUATED 
SYS/NON-SYS CARTRIDGE INDR 
JOBT SWITCH — NON-ZERO MEANS 
TEMPORARY MODE 
CLB-RETURN-TO-DUP SWITCH— 
ZERO=CLB RETURN TO SUPV 
NO. OF LOCALS 

CORF MAP SWITCH — ZERO MEANS 
DO NOT PRINT A CORE MAP 
NO. DUP CTRL RECDS (MODIF) 
ADCR OF MODIF BUFFER 
NO. OF NOCALS 

RLTV ENTRY ADDR OF PROGRAM 
1442-5 SW (0=1442-5 ON SYSTFM 
•TC' WORKING STG DRIVE CODE 
•FROM" WORKING STG DRIVE CODE 
ADCR OF LARGEST HOLE IN FXA 
BLK CNT OF LARGEST HOLE IN FXA 
ADCR OF LAST HOLE IN UA 2-10 
BLK CNT OF LAST HOLF IN UA2-10 
OUP CALL SW — NON-ZERO=DUP CALL 
PRINCIPAL I/O DEVICE INDICATOR 
PRINC. PRINT DEVICE INDICATOR 
RLTV ACDR IN ' STRT OF CIL ADDR 
AVAILABLE CARTRIDGE INOICAT2-2 



2250 INDICATOR 2G2 

NO. G2250 RECORDS 2G2 

LOCAL-CANNOT-CALL-LOCAL SW 2-2 
SPECIAL ILS SWITCH 2-2 

NO. OF *EOUAT RCOS 2-4 

* * RESERVED FOR FUTURE USE 2-2 

* =ANDU * 1+BLOCK ADDR OF END OF USER 

* * AREA (ADJUSTED) LOGICAL OR 

* * 1+BLOCK ADCR OF ENC OF USER 

* * ARFA (ADJUSTED) LOGICAL OR 1 

* * 1+BLOCK ADDR OF END OF USER 

* * AREA (ADJUSTED) LOGICAL DR 2 

* * l+PLOCK ADDR OF ENC OF USER 

* * AREA (ADJUSTED) LOGICAL CR 3 

* * 1+BLOCK ADDR OF END OF USER 

* ♦ AREA (ADJUSTED) LOGICAL CR 4 

* =RNDU * 1+RLOCK ADDR OF END OF USER 

* * AREA (BASE) LOGICAL CRIVE 

* * 1+RLOCK ADOR OF ENC OF USER 

* * AREA (BASE) LOGICAL DRIVE 1 

* * l+RLOCK ADDR OF END OF USER 

* * AREA (BASE) LOGICAL CRIVE 2 

* * 1+BLOCK ADDR OF END OF USER 

* * AREA (BASE) LOGICAL CRIVE 3 

* * l + P.LOCK ADOR OF END OF USER 

* * AREA (BASE) LOGICAL CRIVE 4 

* =FPA0 * FILE PROTECT ACDR, LOGICAL 

* * DRIVE (BASE) 

* * FILE PROTECT ADDR, LOGICAL 

* * DRIVE I (BASE) 

* * FILF PROTECT ACDR, LOGICAL 

* * DRIVE 2 (BASE) 



PMN00010 
PMN00020 
PMN00030 
PMN00040 
PMN00050 
PMN00060 
PMN00070 
PMN00080 
PMN00090 
PMN00100 
PMN00110 
PMN00120 
PMN00130 
PMN00140 
PMN00150 
PMN00160 
PMN00170 
PMN00180 
PMN00190 
PMN00200 
PMN00210 
PMN00220 
PMN00230 
PMN00240 
PMN00250 
PMN00260 
PMN00270 
PMN00280 
PMN00290 
PMN00300 
PMN00310 
PMN00320 
PMN00330 
PMN00340 
PMN00350 
PMN00360 
PMN00370 
PMN00380 
PMN00390 
PMN00400 
PMN00410 
PMN00420 
PMN00430 
PMN00440 
PMN00450 
PMN00460 
PMN00470 
PMN00480 
PMN00490 
PMN00500 
PMN00510 
PMN00520 
PMN00530 
PMN00540 
PMN00550 
PMN00560 
PMN00570 
PMN00580 
PMN00590 
PMN00600 
PMN00610 
PMN00620 
PMN00630 



DCOM 
monitor 
system 
parameters 



DCOM 

cartridge 

parameters 



Resident Monitor (Including Table of Equivalences) G-l 



Resident Monitor Listing 



00064 


* 


4H 


* 




♦ FILE PROTECT ADDR, LOGICAL 


PMN00640 


C0065 


* 




* 




* CRIVE 3 (BASE) 


PMN00650 


C0066 


* 


49 


* 




* FILF PROTECT ACDR, LOGICAL 


PMN00660 


C0067 


* 




* 




* DRIVE 4 (BASE) 


PMN00670 


00068 


* 


50 


* 


= PCID 


* CARTRIOGE 


ID, PHYSICAL DRIVE 


PMN00680 


C0069 


* 


51 


* 




* CARTRIOGE 


ID, PHYSICAL DRIVE 1 


PMN00690 


00070 


* 


5? 


* 




* CARTRIOGE 


ID, PHYSICAL DRIVE 2 


PMN00700 


00071 


* 


51 


* 




* CARTRIOGE 


ID, PHYSICAL DRIVE 3 


PMN00710 


C0C72 


* 


54 


* 




"" CARTRIOGE 


ID, PHYSICAL DRIVE 4 


PMN00720 


00071 


* 


55 


* 


= CIDN 


» CARTRIDGE 


ID, LOGICAL DRIVE 


PMN00730 


000 74 


* 


56 


* 




► CARTRIDGE 


ID, LOGICAL DRIVE I 


PMN00740 


00075 


* 


57 


* 




* CARTRIOGE 


ID, LOGICAL DRIVE 2 


PMN00750 


C0076 


* 


58 


* 




► CARTRIOGE 


ID, LOGICAL DRIVE 3 


PMN00760 


00077 


* 


59 


* 




► CARTRIDGE 


ID, LOGICAL ORIVE 4 


PMN00770 


00078 


* 


60 


+ 


-CIBA 


► SCTR ADDR 


OF CIB, LOGICAL DR 


PMN00780 


00070 


* 


61 


* 




► SCTR ADDR 


OF CIB, LOGICAL OR 1 


PMN00790 


COOflO 


* 


6? 


* 




► SCTR ADDR 


OF CIB, LOGICAL DR 2 


PMN00800 


00081 


* 


63 


* 




► SCTR ADDR 


OF CIB, LOGICAL DR 3 


PMN00810 


0008? 


* 


64 


* 




► SCTR ADDR 


OF CIB, LOGICAL DR 4 


PMN00820 


C0083 


* 


65 


* 


= SCRA 


► SCRA, LOGICAL DRIVE 0. 


PMN00830 


00084 


* 


66 


* 




* SCRA, LOGICAL DRIVE 1 


PMN00840 


00085 


* 


67 


* 




► SCRA, LOGICAL DRIVE 2 


PMN00850 


00086 


* 


68 


* 




► SCRA, LOGICAL ORIVE 3 


PMN00860 


00087 


* 


69 


* 




► SCRA, LOGICAL CRIVE 4 


PMN00870 


00088 


* 


70 


* 


= FMAT 


► FORMAT OF 


PROG IN WS, DRIVE 


PMN00880 


00089 


* 


71 


* 




► FORMAT OF 


PROG IN WS, DRIVE 1 


PMN00890 


00090 


* 


72 


* 




► FORMAT OF 


PROG IN WS, DRIVE 2 


PMN00900 


00091 


* 


73 


* 




* FORMAT OF 


PROG IN WS, DRIVE 3 


PMN00910 


00092 


* 


74 


* 




* FORMAT OF 


PROG IN WS, DRIVE 4 


PMN00920 


00093 


# 


75 


* 


"FLET 


► FLET SCTR 


ADDR, LOGICAL DR 


PMN00930 


00094 


* 


76 


* 




► FLET SCTR 


ADDR, LOGICAL OR 1 


PMN00940 


00095 


* 


77 


* 




► FLET SCTR 


ADDR, LOGICAL DR 2 


PMN00950 


00096 


* 


78 


8 




► FLET SCTR 


ADDR, LOGICAL DR 3 


PMN00960 


00097 


* 


79 


* 




► FLET SCTR 


ADDR. LOGICAL OR 4 


PMN00970 


00098 


# 


80 


* 


«ULET < 


► LET SCTR ADOR, LOGICAL OR 


PMN00980 


00099 


* 


81 


* 




► LET SCTR AOOR, LOGICAL OR 1 


PMN00990 


00100 


• 


82 


* 




► LET SCTR ADDR, LOGICAL OR 2 


PMNOIOOO 


00101 


* 


83 


* 




► LET SCTR AOOR. LOGICAL DR 3 


PMN01010 


00102 


* 


84 


* 




* LET SCTR ADDR, LOGICAL DR 4 


PMN01020 


00103 


* 


85 


* 


*WSCT 


* BLK CNT OF PROG IN HS, DRIVE 


PMN01030 


00104 


* 


86 


* 




* BLK CNT OF PROG IN WS, DRIVE 1 


PMN01040 


00105 


* 


87 


* 




* BLK CNT OF PROG IN WS, DRIVE 2 


PMN01050 


00106 


* 


88 


* 




► BLK CNT OF 3R0G IN WS, DRIVE 3 


PMN01060 


00107 


* 


89 


* 




* BLK CNT OF PROG IN WS, ORIVE 4 


PMN01070 


00108 


* 


9C 


* 


*CSHN 


* SCTR CNT CUSHION, LOGICAL OR 


PMN01080 


00109 


* 


91 


* 




* SCTR CNT CUSHION, LOGICAL DR 1 


PMN01090 


00110 


* 


92 


* 




* SCTR CNT CUSHION, LOGICAL DR 2 


PMN01100 


00111 


* 


93 


* 




» SCTR CNT CUSHION, LOGICAL DR 3 


PMN01110 


00112 


* 


94 


* 




► SCTR CNT CUSHION, LOGICAL DR 4 


PMN01120 


00113 


* 


95-319 


* 




► RESERVED F04 FUTURE USE 


PMN01130 



DCOM 

cartridge 

parameters 



00115 
00116 
00117 
OOllfl 
00119 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00148 
00149 
00150 
00151 
00152 
00153 
00154 



RESIDENT MONITOR 

kTUS-VERSION 2, MODIFICATION 10 



*STA 

* 
*FUN 



CTICN/OPER 
THIS SFCT1 
IS COMPRI S 
AREA (COMM 
A DISK I/O 
FIRST TWO 
COMMA CONT 
FD TO FETC 
MAT. THE S 
STRUCTIONS 
CALL LINK, 
AUXILIARY 
TON SUPERV 
TAIN I/O F 
SECTION CO 
FROM OR WR 
GIVEN LOGI 



ATION 
CN AL 
ED OF 
A) , T 
SUBR 
OF TH 
AINS 
H A C 
KELET 
FOR 
A DU 
SUPER 
ISOR 
UNCTI 
NSIST 
ITING 
CAL D 



WAYS REM 
THE COM 
HE SKELE 
GUTINE, 
ESE SECT 
THE SYST 
ORE LOAD 
ON SUPER 
INIT IATI 
MP-TO-PR 
VISOR. 
CONTAINS 
ONS/CONO 
S OF A S 
ON A DI 
ISK CRIV 



AINS IN 
MUNI CAT I 
TON SUPE 
NOMINALL 
IONS ARE 
EM PARAM 

IN CORE 
VISOR PR 
NG A CAL 
INTER OR 
IN ADDIT 

SEVERAL 
ITIONS. 
UBROUTIN 
SK CARTR 
E. 



*****«****4*4*** 



CORE. IT 

ONS 

RVISCR, AND 

Y DISKZ. (THE 

INTERMIXEC. ) 
ETERS REOUIR- 

IMAGE FOR- 
OVIDES IN- 
L EXIT, A 

A CALL TO THE 
ION, THE SKELE- 

TRAPS FOR CER- 
THE CISK I/O 
E FOR READING 
IDGE ON A 



rRY POINTS- 

* SPRET-A TRA 

THE C 
BS 

* SPSTX-A PCS 

DEVIC 

THE C 

BS 

* SSTOP-THE P 

* »EXIT-THE E 

EXIT S 
LDX 

* *LINK-THE E 

LINK S 
BSI 

* $DUMP-THE E 

STATEM 
BSI 



P FOR PREO 
ALLING SEO 
I L $PR 
TOPERATIVE 
ES ON LEVE 
ALLING SEQ 
I L tPST 
ROGRAM STO 
NTRY POINT 
TATEMENT. 

tEXIT 
NTRY POINT 
TATEMENT. 

L SLINK 
NTRY PCINT 
ENT. THE C 

L fDUMP 



PERAT I VE 
UENCE IS 
ET 

ERROR T 
L X (X=l 
UENCf IS 
X 
P KEY TR 

FOR THE 
THE CALL 

FOR THE 
THE CALL 

FOR THE 
ALLING S 



I/O ERRORS. 



RAP FOR I/O 
,2, 3, OR 4 ) . 



AP. i 

EXIT/CALL * 

ING SEQUENCE IS* 

* 

LINK/CALL * 

ING SEQUENCE IS* 

i 

DUMP/PDMP * 

EQUENCE IS * 



PMN01 150 
PMN01160 
PMN01170 
PMN011R0 
PMN01190 
PMN01200 
PMN01210 
PMN01220 
PMN01230 
PMN01240 
PMN01250 
PMN01260 
PMN01270 
PMN012R0 
PMN01290 
PMN01300 
PMN01310 
PMN01320 
PMN01330 
PMN01340 
PMN01350 
PMN01360 
PMN01370 
PMN01380 
PMN01390 
PMN01400 
PMN01410 
PMN01420 
PMN01430 
PMN01440 
PMN01450 
PMN01460 
PMN01470 
PMN01480 
PMN01490 
PMN01500 
PMN01510 
PMN01520 
PMN01530 
PMN01540 



G-2 



Resident Monitor Listing 



00155 
00156 
00157 
00158 
00159 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00168 
00169 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
00178 
00179 
00180 
00181 
00182 
00183 
00184 
00185 
00186 
00187 
00188 
00189 
00190 
00191 
00192 
0019.3 
00194 
00195 
00196 
00197 
00198 
00199 
002C0 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00208 
00209 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00218 
00219 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00228 
00229 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00238 
00239 
.00240 
00241 
00242 
00243 
00244 
00245 
00246 



DC. FORMAT * 

DC LIMIT1 * 

DC LIMIT2 * 

WHERE LIMIT1 ANO LIMIT2 ARE THE LIMITS * 

BETWEEN WHICH THE DUMP IS TO OCCUR, AND* 

FORMAT IS A CODE INDICATING THE FORMAT * 

OF THE DUMP. IF FORMAT IS NEGATIVE, * 

THE AUXILIARY SUPERVISOR IS FETCHED * 

AND CONTROL PASSED TO IT. * 

DZOOO-ENTERED WHEN THE CALLER WISHES TO * 

PERFORM A DISK I/O OPERATION. THE * 

CALLING SEQUENCE VARIES WITH THE * 

VERSION OF THE DISK I/O SUBROUTINE. * 

$I200/$I400-ENTERED WHEN THE OPERATION- * 

COMPLETE INTERRUPT OCCURS ON * 

LEVEL 2/4. ? * 



♦INPUT-N/A 



♦OUTPUT-WORDS 
* DUMP 



6-4090 SAVED ON THE CIB ON A CALL 



♦EXTERNAL REFERENCES-N/A * 

* * 
*EXITS- * 

* * NORMAL * 

* *THE EXITS FROM THE SUBROUTINES AT tPRET * 

* $PST1, *PST2, $PST3, SPST4, AND $STOP * 

* ARE BRANCH INSTRUCTIONS FOLLOWING A * 

* WAIT INSTRUCTION. $STOP TURNS OFF IN- * 

* TERRUPT LEVEL 5 AFTER THE START KEY IS * 

* DEPRESSED. * 

* *THE EXITS FROM JEXI T , $L I NK , AND SDUMP ARE* 

* TO THE CORE IMAGE LOADER, PHASE 1, * 

* AFTER THAT PHASE HAS BEEN FETCHED. * 

* *THE EXIT FROM DZOOO IS BACK TO THE * 

* CALLER AFTER THE REQUESTED DISK OPERA- * 

* TION HAS BEEN INITIATED. * 

* *THE EXITS FROM 1I200/JI400 ARE BACK TO * 

* THE ADDRESSES FROM WHICH THE DISK OP- * 

* ERATION COMPLETE INTERRUPT OCCURED * 

* AFTER THE INTERRUPT HAS BEEN SERVICED * 

* BY THE APPROPRIATE ISS. * 

* * ERROR-N/A * 

* * 
♦TA8LES/W0RK AREAS- * 

* * JACDE * 

* * $CH12 * 

* * *CILA * 

* * SCLSW * 

* * SCOMN * 

* * *CORE * 

* * tCTSW * 

* * tCXRl * 

* * tCYLN * 

* * *OADR * 

* * *OBSY * 

* * 4DCYL * 

* * tDMPF * 

* * $DREQ * 

* * $FPAD * 

* * *GCOM 2G2 * 

* * $GRIN 2G2* 

* * SHASH * 

* * »IBT2 * 

* * JIBT4 * 

* * *IBSY * 

* * $IOCT * 

* * $KCSW * 

* * JLAST * 

* * $LNXQ 2-9* 

* * *NOUP * 

* * iNXEQ * 

* * $PBSY * 

* * $PGCT * 

* * SPHSE * 

* * *RMSW * 

* * JSCAT 2-4 * 

* * SSNLT * 

* * $UFIO * 

* * »ULET * 

* * tWRDl * 

* * $WSDR * 

* * $XR3X 2-2 * 

* * 
♦ATTRIBUTES-REUSABLE * 

* * 
♦NOTES- * 

* THERE ARE UAIT INSTRUCTIONS AT «PRET+1, * 

* tSTOP+1, ANC tPSTX+1. DEPRESSING THE START * 

* KEY WILL RETURN CONTROL TO THE CALLER IN ALL * 

* CASES. * 



PMN01550 
PMN01560 
PMN01570 
PMN01580 
PMN01590 
PMN01600 
PMN01610 
PMN01620 
PMN01630 
PMN01640 
PMN01650 
PMN01660 
PMN01670 
PMN01680 
PMN01690 
PMN01700 
PMN01710 
PMN01720 
PMN01730 
PMN01740 
PMN01750 
PMN01760 
PMN01770 
PMN01780 
PMN01790 
PMN01800 
PMN01810 
PMN01820 
PMN01830 
PMN01840 
PMN01850 
PMN01860 
PMN01870 
PMN01880 
PMN01890 
PMN01900 
PMN01910 
PMN01920 
PMN01930 
PMN01940 
PMN01950 
PMN01960 
PMN01970 
PMN01980 
PMN01990 
PMN02000 
PMN02010 
PMN02020 
PMN02030 
PMN02040 
PMN02050 
PMN02060 
PMN02070 
PMN02080 
PMN02090 
PMN02100 
PMN02110 
PMN02120 
PMN02130 
PMN02140 
PMN02150 
PMN02160 
PMN02170 
PMN02180 
PMN02190 
PMN02200 
PMN02210 
PMN02220 
PMN02230 
PMN02240 
PMN02250 
PMN02260 
PMN02270 
PMN02280 
PMN02290 
PMN02300 
PMN02310 
PMN02320 
PMN02330 
PMN02340 
PMN02350 
PMN02360 
PMN02370 
PMN02380 
PMN02390 
PMN02400 
PMN02410 
PMN02420 
PMN02430 
PMN02440 
PMN02450 
PMN02460 



Resident Monitor (Including Table of Equivalences) G-3 



Resident Monitor Listing 









00247 


t************************************************** 


PMN02470 










00249 


* PROVIDE 1 


PARAMETERS FORSYSTEH LOADER 


PMN02490 










00250 


* 










PMN02500 










00251 




ABS 








PMN02510 




03C0 






00252 




ORG 


4 






PMN02520 




0004 





OF FA 


00253 




OC 


4095- 


+ WD 


CNT FOR WRITING CORE ON CIB 


PMN02530 




CC05 





0000 


00254 


tCIBA 


OC 


*-* 


SCTR 


ADDR OF THE CIB 


PMN02540 




0006 





ocoo 


00255 


$CH12 


DC 


*-* 


ADDR 


OF CHANNEL 12 INDICATOR 


PMN02550 




0007 





nooo 


00256 


$COMN 


DC 


*-* 


LENGTH OF COMMON (IN WORDS) 


PMN02560 










00257 


* 










PMN02570 










00258 


* ULTIMATE 


RESIDENCE OF 


THE INTERRUPT TV 


PMN02580 










00259 


* 










PMN02590 




0008 





0000 


00260 


SLEVO 


DC 


*-* 


LEVEL BRANCH ADCRESS 


PMN02600 




0009 





0000 


00261 


iLEVl 


DC 


*-* 


LEVEL 1 BRANCH ACCRESS 


PMN02610 




COOA 





00B3 


00262 


$LEV2 


DC 


$1200 


LEVEL 2 BRANCH ADDR 


PMN02620 




000B 





0000 


00263 


$LEV3 


DC 


*-* 


LEVEL 3 BRANCH ADDRESS 


PMN02630 




oooc 





00C4 


00264 


SLEV4 


DC 


$1400 


LEVEL 4 BRANCH ADDR 


PMN02640 




cooc 





0091 


00265 


$LEV5 


DC 


$STOP 


LEVEL 5 BRANCH AOCR 


PMN02650 










00266 


* 










PMN02660 










00267 


* 










PMN02670 




OOOE 





0000 


00268 


tCORE 


DC 


*-* 


SIZE 


OF CORE, E.G. , /1C00 = 4K 


PMN02680 




OOOF 





0000 


C0269 


tCTSW 


DC 


*-* 


CONTROL RECORD TRAP SWITCH 


PMN02690 




0010 





0000 


00270 


$DADR 


DC 


*-* 


SCTR 


ADDR OF PROG TO BE LOADED 


PMN02700 




001 1 





0000 


002 n 


tSCAT 


DC 


*-» 


NON , 


ZERO=SCA INTRPT PNCNG 2-4 


PMN02710 


$SCAT 


0012 





0000 


00272 


tDREG 


DC 


*-* 


INO. 


FOR REQUESTED VERSION OKI/0 


PMN02720 




CC13 





cooo 


00273 


tIBSY 


DC 


♦ -♦ 


NON-, 


fERO IF CD/PAP TP CEV. BUSY 


PMN02730 




0014 




oooc 


00274 
00275 
00276 


iHASH 

* 
* 


BSS 


E 12 


WORK 


AREA 


PMN02740 
PMN02750 
PMN02760 




0020 




0008 


00277 
C0278 
00279 
C0280 


tSCAN 
* 

* 
* 


BSS 


8 


1132 


SCAN AREA 32 


PMN02770 
PMNC2780 
PMN02790 
PMN02800 










00281 


* TRAP FOR 


PREOPERATIVE 


I/O ERRORS 


PMN02810 










00282 


* 










PMN02820 




0028 


c 


0000 


00283 


$PRET 


DC 


*-* 




ENTRY POINT 


PMN02830 


$PRET 


29 


c 


3CC0 


00284 




WAIT 






WAIT TIL START KEY PUSHEC 


PMN02840 




002A 


CO 


4C800028 


C0285 
C0286 
00287 


* 


BSC 


1 $PRET 




RETURN TO CALLER 


PMN02850 
PMN02860 
PMN02870 




002C 





0000 


C0288 


$IREQ 


DC 


*-* 


ACCR 


OF INT REQUEST SUBROUTINF 


PMN02880 




0020 





ooco 


00289 


$ULET 


DC 


*-* 


ADDR 


OF LET, LOGICAL DR 


PMN02890 " 


N 


002F 





0000 


00290 




DC 


*-* 


ADDR 


OF LET, LOGICAL OR 1 


PMN02900 




C02F 





ocoo 


00291 




DC 


*-* 


ADDR 


OF LET, LOGICAL OR 2 


PMN02910 


VLET addresses 


0030 


c 


0000 


00292 




DC 


*-* 


ACCR 


OF LET, LOGICAL DR 3 


PMN02920 


J 


C031 





0000 


00293 




DC 


*-* 


ADDR 


OF LET, LOGICAL OR 4 


PMN02930.« 


/ 


0032 





0000 


00294 


tlOCT 


DC 


*-* 


ZERO 


IF NO I/O IN PROGRESS 50 


PMN02940 


$IOCT 


0033 





0000 


0029*) 


SLAST 


OC 


*-* 


NCN-, 


?ERO WHEN LAST CARD SENStO 


PMN02950 




C034 





0000 


00296 


SNOUP 


DC 


*-* 


CO NCT DUP IF NCN-ZERO 


PMN02960 




C035 





occo 


00297 


SNXEG 


DC 


*-* 


OP NCT EXECUTE IF NON-ZERO 


PMN02970 




C 3 6 





0000 


00298 


SPBSY 


DC 


*-* 


non-; 


?ERO WHEN PRINTER BUSY 


PMN02980 




0037 





ocoo 


00299 
C03C0 


tPGCT 

* 


DC 


*-* 


PAGE 


NO. FOR HEADINGS 


PMN02990 
PMN03000 










00301 


* CALL EXIT ENTRY POINT 


TO SKELETON SUPERVISOR 


PMN03010 










003C2 


* 










PMN03020 


$EXIT 


0038 


c 


70 19 


00303 


text t 


MCX 


tscco 




PR TO FETCH CIL, Pt J ASE I 56 


PMN03030 ' 








00304 


* 










PMN03040 










003C5 


*** CALL LINK ENTRY 


POINT 


PMN03050 










00306 


* 










PMN03060 




0039 





ocoo 


003C7 


$LINK 


DC 


*-* 




ENTRY POINT 57 


PMN03070 


$LINK 


003A 





1810 


003C8 




SRA 


16 






PMN03080 




C03H 





7017 


00309 




MCX 


$S1C0 




PR TO FETCH CIL, PHASE I 


PMN03090 




C03C 




occo 


C0310 




BSS 


F 






PMNC3100 




C03C 


c 


0001 


00311 


$S900 


DC 


1 


DISK 


PARAMETERS FOR SAVING CORE 


PMN03110 










00312 


*$S9CC ALSO USED AS 


CONSTANT 1 BY CIL PH2 2-10 


PMN03111 




C030 





0C04 


0031 3 




DC 


$CIBA 


-1 * 


IN CONNECTION WITH DUMP 


PMN03120 




C03E 





FFFF 


00314 


SS910 


DC 


-I 


CALL 


EXIT INDICATOR 


PMN03130 










00315 


*$S910 ALSD USED AS 


CONSTANT-1 BY CIL PH2 2-10 


PMN03131 










00316 


* 










PMN03140 










00317 


*** SAVE 1ST 4K OF 


CORE 


on the c.:e 


PMN03150 




C03F 





0000 


00318 
00319 


* 

$DU*P 


DC 


+ -* 




ENTRY POINT 63 


PMN03160 
PMN03170 " 


$DUMP 


0040 





U8D9 


00320 




STD 


$ACEX 




SAVE ACCUMULATOR, EXTENSION 


PMN03I80 




0041 





4023 


00321 




BSI 


$S250 




CHK PNDNG INTRPT 2-4 


PMN03190 




0042 





282A 


00322 




STS 


$SSTS 




SAVE STATUS 2-6 


PMN03200 




C043 





6903 


00323 




STX 


1 SCXR1 




SAVE XfU 


PMN03210 




0044 


00 


C480003F 


00324 




LD 


I $DUMP 






PMN03220 




0046 





DC02 


00325 




STO 


$OMPF 




SAVE DUMP FORMAT CODE 


PMN03230 




0047 





C8F4 


00326 




LDD 


$S900 






PMN03240 




0048 


CO 


440000F2 


00327 




BSI 


L DZCOO 




SAVE WDS 6-4095 ON CIB 


PMN03250 




Q04A 





C0F1 


00328 




LD 


$S9C0 






PMN03260 




C04B 





7C07 


00329 
00330 


* 


MDX 


$S100 




BR TCI FETCH CIL, PHASE 1 

2-6 


PMNC3270 
PMN03280 




C04C 




.CC06 


00331 
00333 


* 


BSS 


6 




PATCH AREA 2-7 


PMN03290 
PMN03310 










00334 


*** FETCH i 


CORE IMAGE LOADER, PHASE 1 


PMN03320 










00335 


* 










PMN03330 




0052 





COEB 


00336 


$sooo 


LO 


$S910 




PMN03340 




0053 





00C2 


00337 


SS100 


STO 


$RMSW 


SAVE EXIT-LINK-DUMP SWITCH 


PMN03350 




0054 


00 


65800039 


00338 




LOX 


11 iLINK 


LINK ADDR TO XR1 


PHN03360 




0056 





CL01 


00339 




LD 


1 1 




FETCH 2ND WD OF LINK NAME 


PMN03370 
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0057 





18D0 


00340 




RTE 




16 


PMN03380 


0058 





C100 


00341 




LD 


1 


FETCH 1ST WD OF LINK NAME 


PMN03390 








00342 


* $S150+1 CONTAINS ADDR LAST WD OF DISK I/O MINUS 3 


PMN03400 


0059 


00 


65000000 


00343 


$S150 


LDX 


LI 


*-* AODR END OF DKI/0-1 TO XR 1 


PMN03410 


005B 





D8B8 


00344 




STD 




JLKNM SAVE LINK NAME 


PMN03420 


005C 





4008 


00345 




BSI 




$S250 CHK ANY PNDNG INTRPT 2-4 


PMN03430 


005D 





COFC 


00346 




LD 




SCILA 


PMN03440 


005E 





1890 


00347 


$S200 


SRT 




16 


PMN03450 


005F 


00 


440000F2 


00348 




BSI 


L 


DZOOO FETCH CI LOADER, PHASE I 


PMN03460 


C061 





4003 


00349 




BSI 




$S250 CHK DISK OP FINISHED 2-4 


PMN03470 


0062 





4102 


00350 
00351 


* 


BSI 


1 


2 BR TO CI LOADER, PHASE 1 


PMN03480 
PMN03490 


0063 





0000 


00352 


$GCOM 


OC 




*-* GRAPHIC SUBR PACKAGE INOR 2G2 


PMN03500 


0064 





0000 


00353 
00354 


SGRIN 


QC 




*-* GRAPHIC INITLZN PROGRAM INDR 2G2 


PMN03510 
PMN03520 








00355 


*** SUBR TO CHECK IF ANY INTRPT IS PENDING 


PMN03530 








00356 


* 








PMN03540 


0065 





0000 


00357 


$S250 


DC 




*-* ENTRY POINT 


PMN03550 


0066 





COCB 


00358 


$S300 


LD 




$IOCT IS THERE INTRPT PNDNG 


PMN03560 


0067 





E8A9 


00359 




OR 




$SCAT *0R SCA INTRPT PNDNG 


PMN03570 


0068 


00 


4C200066 


00360 




BSC 


L 


$S300,Z *THEN BR, IF ALL INTRPT 


PMN03580 


C06A 


c 


0803 


00361 




XIO 




$1499 RESET 2250 2-7 


PMN03590 


006B 


00 


4C800065 


00362 
00363 


* 


BSC 


I 


$S250 *IS SERVICED-RETURN 

2-6 


PMN03600 
PMN03610 


0060 





2000 


00364 


$SSTS 


LDS 




*-* STATUS SAVED FOR DUMP 2-7 


PMN03620 


006E 





0000 


00365 


$1499 


DC 




IOCC FOR RESET 2-7 


PMN03630 


006F 





CC80 


00366 




DC 




/CC80 *0F 2250 2-7 


PMN03640 


0070 





cooo 


00367 
00368 


$LNXQ 

* 


DC 




*-* LINK/XEQ SW, -1 LINK.+l XEO 2-9 


PMN03650 
PMN03660 


0071 





0000 


00369 


$FLSH 


DC 




*-* FLUSH-TO-NEXT-JOB SWITCH 1=FLUSH 


PMN03670 


C072 




0000 


00370 




BSS 


E 





PMN03680 


0072 





0000 


00371 


$CWCT 


DC 




*-* WORD COUNT AND SECTOR ADDRESS 


PMN03690 


C073 





ccoo 


00372 




DC 




*-* *FOR SAVING/RESTORING COMMON 


PMN03700 


0074 





0000 


00373 


$CCAO 


DC 




*-* ACDR FOR SAVING/RESTORING COMMON 


PMN03710 


0075 





0000 


00374 


$LSAD 


DC 




*-* SCTR ADDR OF 1ST LOCAL/SOCAL 


PMN03720 


C076 





0000 


00375 


$DZ1N 


DC 




*-* DISKZ/1/N INDICATOR (-1,0, +1) 


PMN03730 


0077 





0000 


00376 


$DCDE 


DC 




*-* LOGICAL DRIVE CODE FOR PROGRAM 


PMN03740 


0078 


c 


0000 


00377 


$PHSE 


DC 




*-* NO. OF PHASE NOW IN CORE 


PMN03750 


0079 





0000 


00378 


$UFIO 


DC 




*-* UNFORMATTED I/O RE-CORD NO. 


PMN03760 


007A 





ocoo 


00379 


$WSDR 


DC 




*-* WORKING STORAGE DRIVE CODE 


PMN03770 


007B 





ccoo 


00380 


$WR01 


DC 




*-* LOADING ADDR OF THE CORE LOAD 


PMN03780 


007C 





0000 


00381 


$KCSW 


DC 




*-* 1 IF KB.CP BOTH UTILIZED 


PMN03790 


0070 





0000 


00382 


$UFDR 


DC 




*-* UNFORMATTED I/O DRIVE CODE 


PMN03800 


007E 





0000 


00383 


$CPTR 


DC 




*-* CHANNEL 12 INDICATOR FOR CP 


PMN03810 


007F 





ocoo 


00384 


$1132 


DC 




*-* CHANNEL 12 INDICATOR FOR 1132 


PMN03820 


OORO 


c 


ooco 


00385 


$1403 


DC 




*-* CHANNEL 12 INDICATOR FOR 1403 


PMN03830 








00387 


* TRAP FOR 


POSTOPERATIVE I/O ERRORS ON LEVEL 1 


PMN03850 








00388 


* 








PMN03860 


C081 





0000 


00389 


$PST1 


DC 




*-* ENTRY POINT 


PMN03870 


C082 





3000 


00390 




WAIT 






PMN03880 


0083 


00 


4C800081 


00391 
00392 


* 


BSC 


I 


SPST1 RETURN TO DEVICE SUBROUTINE 


PMN03890 
PMN03900 








00393 


* TRAP FOR 


POSTOPERATIVE I/O ERRORS ON LEVEL 2 


PMN03910 








00394 


* 








PMN03920 


0085 





0000 


00395 


$PST2 


DC 




*-* ENTRY POINT 


PMN03930 


0086 





3000 


00396 




WAIT 






PMN03940 


0087 


00 


4C800085 


00397 
00398 


* 


BSC 


I 


$PST2 RETURN TO DEVICE SUBROUTINE 


PMN03950 
PMN03960 








00399 


* TRAP FOR 


POSTOPERATIVE I/O ERRORS ON LEVEL 3 


PMN03970 








004C0 


* 








PMN03980 


0089 





0000 


00401 


$PST3 


DC 




*-* ENTRY POINT 


PMN03990 


C08A 





3000 


00402 




WAIT 






PMN04000 


OORB 


00 


4C800089 


00403 
00404 


* 


BSC 


I 


$PST3 RETURN TO DEVICE SUBROUTINE 


PMN04010 
PMN04020 








00405 


* TRAP FOR 


POSTOPERATIVE I/O ERRORS ON LEVEL 4 


PMN04030 








00406 


* 








PMN04040 


008D 





0000 


00407 


$PST4 


DC 




*-* ENTRY POINT 


PMN04050 


008E 





3000 


00408 




WAIT 






PMN04060 


008F 


00 


4C80008D 


00409 
00410 
00411 


* 

* 


BSC 


I 


$PST4 RETURN TO DEVICE SUBROUTINE 


PMN04070 
PMN04080 
PMN04090 








00412 


* PROGRAM ! 


STOP KEY TRAP 


PMN04100 








00413 


* 








PMN04110 


0091 





0000 


00414 


SSTOP 


DC 




*-* ENTRY POINT 


PMN04120 


0092 





3000 


00415 




WAIT 




WAIT TIL START KEY PUSHED 


PMN04130 


0093 


00 


4CC00091 


00416 
00418 


* 


BOSC 


I 


$STOP RETURN TO CALLER 


PMN04140 

PMN04160 








00419 


♦ PARAMETERS USED BY THE DISK I/O SUBROUTINES. THE 


PMN04170 








00420 


* LOGICAL DRIVE CODE IS FOUND IN BITS 1-3 FOR ALL 


PMN04180 








00421 


* BUT 


THE AREA CODE. BIT WILL ALWAYS BE ZERO. 


PMN04190 








00422 


* 








PMN04200 








00423 


* 








PMN04210 








00424 


*** DISK1 AND 


DISKN WILL NOT WRITE BELOW THE 


PMN04220 








00425 


*** FOLLOWING 


SCTR ADDRESSES (EXCEPT WRITE IMMED). 


PMN04230 








00426 


* 








PMN04240 


0095 





0000 


00427 


$FPAD 


DC 




*-* FILE PROTECT ADDR, LOGICAL DR 


PMN04250 


0096 





0000 


00428 




DC 




*-* FILE PROTECT ADDR, LOGICAL DR 1 


PMN04260 


C097 





0000 


00429 




DC 




*-* FILE PROTECT ADDR, LOGICAL DR 2 


PMN04270 


0098 





0000 


00430 




DC 




*-* FILE PROTECT ACDR, LOGICAL DR 3 


PMN04280 


C099 





0000 


00431 
00432 


* 


DC 




*-* FILE PROTECT ADOR, LOGICAL OR 4 


PMN04290 
PMN04300 



•$PST1 



•$PST2 



■$PST3 



•$PST4 



•$STOP 
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00433 


*** 


THE ARM POSITION IS UPDATED WHENEVER A SEEK 








00434 


*** 


OCCURS. 










00435 


* 








C09A 





ocoo 


00436 


$CYLN 


DC 


ARM POSITION FOR LOGICAL DRIVE 


C09R 





0000 


00437 






DC 


ARM POSITION FOR LOGICAL CRIVE 1 


C09C 





0000 


00438 






DC 


ARM POSITION FOR LOGICAL CRIVE 2 


009D 





ocoo 


C0439 






DC 


ARM POSITION FOR LOGICAL DRIVE 3 


C09E 





ocoo 


00440 
00441 


* 




DC 


ARM POSITION FOR LOGICAL DRIVF 4 








00442 


*** 


BELOW ARE 


THE DISK AREA CODES. A ZERO 








00443 


*** 


INDICATES 


THE CORRESPONDING DRIVE IS NOT 








00444 


*** 


ON THE SYSTEM 








00445 


* 








009F 





ocoo 


00446 


$ACDE 


DC 


*-* AREA COCE FOR LOGICAL DRIVE 


00A0 





ocoo 


00447 






DC 


*-* AREA COCE FOR LOGICAL DRIVE 1 


00A1 





ocoo 


00448 






DC 


*-* AREA COCE FOR LOGICAL DRIVE 2 


C042 





0000 


00449 






cc 


*-* AREA CODE FOR LOGICAL CRIVE 3 


COA3 





ocoo 


00450 
00451 


* 




DC 


*-* AREA COCE FOR LOGICAL DRIVE 4 








00452 


*** 


THE AOR OF THE CYLINTER IN WHICH A DEFECT OC- 








00453 


*** 


CURS, IF ANY, IS STCREO IN THE 1ST, 2ND, CR 3RC 








00454 


*** 


WORD BELOW, DEPENDING ON WHETHER IT IS THE 1ST, 








00455 


*** 


2ND, OR 3RD DFFECT ON THE CARTRIDGE. 








00456 


* 








C0A4 





OOCO 


00457 


$DCYL 


DC 


*-* CEFECTIVE CYLINDER ACDRESSES 1 


00A5 





0000 


00458 






DC 


*-* *FOR LOGICAL ORIVE 2 


C0A6 





0000 


00459 






DC 


*-* 3 


COA7 





0000 


C0460 






DC 


*-* CEFECTIVE CYLINDER ACCRESSES I 


00A8 





0000 


00461 






DC 


*-* *FOR LOGICAL DRIVE 1 2 


00A9 





0000 


00462 






DC 


*-* 3 


COAA 





0000 


00463 






DC 


*-* DEFECTIVE CYLINDER ACDRESSES 1 


COAB 





COOO 


00464 






DC 


*-* *FOR LOGICAL DRIVE 2 2 


OOAC 





ocoo 


00465 






DC 


*-* 3 


OOAO 


c 


0000 


00466 






DC 


*-* DEFECTIVE CYLINDER ACDRESSES 1 


COAE 





0000 


00467 






DC 


*-* *FOR LOGICAL DRIVE 3 2 


GOAF 





COOO 


00468 






DC 


*-* 3 


OOBO 


c 


COOO 


00469 






DC 


*-* DEFECTIVE CYLINDER ACDRESSES 1 


OOR1 


c 


0000 


00470 






cc 


*-* *FOR LOGICAL DRIVE 4 2 


C0B2 


c 


0000 


C0471 
00473 


* 




DC 


*-* 3 








00474 


* ILS02 — THIS 


SUBROUTINE SAVES XR1, XR2, STATLS, 








C0475 


* 




AND 


fHE ACCUMULATOR AND ITS EXTENSION. 








00476 


* 




THE ACCRESS OF THE INTERRUPT SERVICE ROU- 








00477 


* 




TINE 


IS STORED IN $1205 BY PHASE 2 OF 








C047R 


* 




THE CORE I MAGE LOACER. WCRC 10 ALWAYS 








00479 


* 




CONTAINS THE ACTRESS OF $1200. 








00480 


* 














00481 


* 














00482 


* 








0CB3 





COOO 


C0483 


$I2C0 


DC 


*-* ENTRY PT (LEVEL ? INTRUPT) 


00B4 





6906 


C0484 






STX 1 


$1210+1 SAVE XR1 


Q0B5 





6A07 


00485 






STX 2 


$1210+3 SAVE XR? 


C0B6 





2807 


00486 






STS 


$1210+4 STORE STATUS 


00B7 





C80A 


00487 






STD 


$1290 SAVE ACCUMULATOR, EXTENSION 








C0488 


* $1205+1 CONTAINS ADDR INTERRUPT ENTRY PT TO DKI/O 


OOBR 


CO 


44C00000 


00489 


$I2C5 


BSI L 


*-* RR TO SERVICE THE INTERRUPT 


COBA 


00 


65000000 


00490 


$1210 


LOX LI 


*-* RESTORE XR1 


OOBC 


00 


660C00CC 


00491 






LDX L2 


*-* RESTORE XR2 


OOBE 





2000 


00492 






LOS 


RESTORE STATUS 


OOBF 





CR02 


00493 






LDD 


$1290 RESTORE ACCUMULATOR , EXT 


OOCO 


00 


4CC000B3 


00494 






BOSC I 


$1200 RETURN FROM INTERRUPT 


COC2 




COCO 


C0495 


$1290 


BSS E 


C 


COC2 





OCOO 


00496 






DC 


*-* CONTENTS OF ACCUMULATOR AND 


C0C3 





0000 


00497 
00499 


* 




DC 


*-* *EXTENTION 








00500 


* ILS04 — THIS 


SUBROUTINE SAVES KR1. XR2, STATUS, 








00501 


* 




AND 


THE ACCUMULATOR AND ITS EXTENSION. 








00502 


* 




IF THE INTERRUPT IS FOU A KEYBOARD REQ- * 








00503 


* 




UEST 


,AND IF A MONITOR PROGRAM IS IN CON- ♦ 








00504 


* 




TROL 


, CONTROL IS PASSEO TO OUMP. OTHER- * 








00505 


* 




wise 


, CONTROL IS PASSED TO THE KEYBOARD/ * 








00506 


* 




CONSOLE PRINTER SUBROUTINE. WORD 12 AL- * 








00507 


* 




WAYS 


CONTAINS THE ADDRESS OF $1400. * 








00508 


* 














00509 


* THE 


TABLE BELOW CONTAINS THE ADDRESSES OF THE 








00510 


* INTERRUPT SERVICE ROUTINES FOR ALL THE DEVICES 








00511 


* ON 


LEVEL 4. 










00512 


* 














00513 


* 














00514 


* 








COCA 





0000 


00515 


$1400 


DC 


*-* ENTRY POINT 


00C5 





D8L8 


00516 






STD 


$1490 SAVE ACCUMULATOR, EXTENSION 


00C6 





280E 


00517 






STS 


$1410 SAVE STATUS 


C0C7 





690F 


00518 






STX 1 


$1410+2 SAVE XR1 


00C8 





6A10 


00519 






STX 2 


$1410+4 SAVE XR2 


00C9 





0816 


00520 






XIO 


$1492 SENSE SW 


OOCA 





1002 


00521 






SLA 


2 IS THIS INTERRUPT REQUEST 


OOCB 


00 


4C1000D0 


00522 






BSC L 


$1403,- BR IF NOT INTERRUPT REQUEST 


COCC 


CO 


4480C02C 


00523 






BSI I 


$IREQ BR IF INTERRUPT REQUEST 


COCF 





FFFE 


00524 






DC 


-2 ERROR CODE 


OODO 





6109 


00525 


$1403 


LDX L 


9 NO. DEVICES ON LEVEL TO XR1 



PMN04310 
PMN04320 
PMN04330 
PMN04340 
PMN04350 
PMN04360 
PMN04370 
PMN04i80 
PMN04390 
PMN04400 
PMN04410 
PMN04420 
PMN04430 
PMN04440 
PMN04450 
PMN04460 
PMN04470 
PMN04480 
PMN04490 
PMN04500 
PMN04510 
PMN04520 
PMN04530 
PMN04540 
PMN04550 
PMN04560 
PMN04570 
PMN045R0 
PMN04590 
PMN04600 
PMNC4610 
PMN04620 
PMN04630 
PMN04640 
PMN04650 
PMN04660 
PMN04670 
PMN04680 
PMN04690 
PMN04710 
PMN04720 
PMN04730 
PMN04740 
PMN04750 
PMN04760 
PMN04770 
PMN04780 
PMN04790 
PMN04800 
PMN04R10 
PMN04820 
PMNC4R30 
PMN04840 
PMN04850 
PMN04860 
PMN04870 
PMN04880 
PMN04890 
PMN04900 
PMN04910 
PMN04920 
PMN04930 
PMN04940 
PMN04950 
PMN04970 
PMN04980 
PMN04990 
PMN05000 
PMN05010 
PMN05020 
PMN05030 
PMN05040 

'PMN05050 
PMN05060 
PHN05070 
PMN05080 
PMN05090 
PMN05100 
PMN05UO 
PMN05120 
PMN05130 

IPMN05140 
PMN05150 
PMN05160 
PMN05170 
PMN05180 
PMN05190 
PMN05200 
PMN05210 
PMN05220 
PMN05230 
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00D1 





0810 


00526 




XIO 




$1494 




SENSE ILSW 




PMN05240 


COO? 





1140 


00527 




SLCA 


1 






FIND CAUSE OF INTERRUPT 




PMN05250 








00528 


* $1405+1 CONTAINS ADDR 


OF LEVEL 4 IBT MINUS 1 




PMN0526O 


C003 


00 


45800000 


00529 


$1405 


BSI 


11 


*-* 




BR TO SERVICE THE INTERRUPT 


PMN05270 


C0D5 





2000 


00530 


$1410 


LOS 









RESTORE STATUS 




PMN05280 


0OD6 


00 


65000000 


00531 




LDX 


LI 


*-♦ 




RESTORE XR1 




PMN05290 


00D8 


00 


66000000 


00532 




LDX 


L2 


♦ -♦ 




RESTORE XR2 




PMN05300 


COOA 





C803 


00533 




LDD 




$1490 




RESTORE ACCUMULATOR, EXT. 




PMN05310 


coce 


00 


4CC000C4 


00534 
00535 


* 


BOSC 


I 


$1400 




RETURN 




PMN05320 
PMN05330 








00536 


* CONSTANTS AND WORK AREAS 




PMN05340 








00537 


* EVEN-NUMBERED LABELS 


ARE ON EVEN BOUNDARIES 




PMN05350 








00538 


* 














PMN05360 


0000 





OCOO 


00539 


$DDSW 


DC 




*-* 




DSW FOR THE DISK 




PMN05370 


OOOE 




0002 


00540 


$1490 


BSS 


E 


2 CONTENTS OF ACCUMULATOR, EXT. 




PMN05380 


OOEO 





0000 


00541 


$1492 


DC 




*-* 








PMN05390 


ooeo 






00542 


$SYSC 


EOU 




*-l VERSION AND MOD NO. 




PMN05400 


C0E1 





OFCO 


00543 




DC. 




/OFOO 


IOCC FOR SENSE IOCC FOR KB/CP 




PMN05410 


C0E2 




C001 


00544 


$1494 


BSS 




1 PATCH AREA 




PMN05420 


00E3 


c 


0300 


C0545 




DC 




/0300 


IOCC FOR SENSING ILSW04 




PMN05430 








00547 


* 










2- 


2 


PMN05450 








00548 


* 










2- 


■2 


PMN05460 


C0E4 





0000 


00549 


$1496 


DC 




*-* 




XR3 SETTING DURING XEQ 2- 


-2 


PMN05470 


C0E5 





0F01 


00550 
00551 


* 


DC 




/0F01 




SENSE KEY BOARD W RESET2- 
2- 


-2 
-2 


PMN05480 
PMN05490 


00E6 





0000 


00552 


$1420 


DC 




♦ -* 




ENTRY POINT FLUSH JOB 2- 


-2 


PMN05500 


00E7 


c 


08FC 


00553 




XIO 




$1496 




SENSE KEY BOARD W RESET2- 


-2 


PMN05510 


00E8 


CO 


4C4000EA 


00554 




BOSC 


L 


$1425 




TURN OF INTERRUPT 2- 


-2 


PMN0552O 


OOEA 


00 


4400003F 


C0555 


$1425 


BSI 


L 


$CUMP 




BR TO $DUMP 2- 


-7 


PMN05530 


COEC 





FFFE 


00556 
00557 


* 


DC 




-2 




CALLING AUX SUP 2- 
2- 


-7 
■2 


PMN05540 
PMN05550 


COED 




C001 


00558 




BSS 




1 




PATCH AREA 2- 


-7 


PMN05560 


COEE 





0000 


00559 


$DBSY 


DC 




*-* 1 


NON- 


■ZERO WHEN DISK I/O BUSY 




PMN05570 



■$DBSY 



DISKZ 



OOFO 0000 

OOFO OOEF 

C0F1 C FF6A 

C0F2 00E8 

CCF3 C001 
CCF4 



00561 
C0562 
00563 
00564 

00565 
00566 
00567 
00568 
00569 
00570 
00571 
00572 
00573 
00574 
00575 
00576 
00577 
00578 
C0579 
00580 
00581 
00582 
00583 
00584 
00585 
00586 
00587 
00588 
005H9 
00590 
00591 
00592 
00593 
C0594 
00595 
00596 
00597 
C0598 
C0599 
00600 
00601 
006C2 
00603 
00604 
00605 
00606 
006C8 
00609 
00610 
00611 
00612 
00613 
00614 
00615 



*************************************************** PMN05 590 

* * PMN05600 

PMN05610 
PMN05620 
PMN05630 
PMN05640 
PMN05650 
PMN05660 
PMN05670 
PMN05680 
PMN05690 
PMN057OO 
PMN05710 
PMN05720 

* PMN05730 
•PURPOSE- * PMN05740 

* TO PROVIDE A SUBROUTINE TC PERFORM DISK OPERA-* PMN05750 

* TIONS. THIS SUBROUTINE IS INTENDED FOR USE BY * PMN05760 

* MONITOR PROGRAMS ANC USER PROGRAMS WRITTEN IN 

* FORTRAN. THIS, IT IS INTENDED FOR USE IN AN 

* ERROR-FREE ENVIRONMENT. 



♦STATUS - VERSION 2, MODIFICATION 11 

♦ 

♦PROGRAM NAME- 

♦ *FULL NAME-FORTRAN/SYSTEM DISK I/O SUBROUTINE 

♦ *CALLING SECUENCE- 

♦ LDD PARAM 

♦ BSI L CZCOO 

♦ WHERE PARAM IS THE LABEL OF A DOUBLE-WORD 

♦ CELL CONTAINING THE FUNCTION CODE ANC THE 

♦ ADCR OF THE I/O BUFFER, I.E., ACOR CF WD CNT. 

♦ SEE 'CAPABILITIES' FOR DISCUSSION CF PARAM- 

♦ ET6RS. 



♦METHOD- 

* DISKZ REQUIRES 



PMN05770 
PMN05780 
PMN05790 

♦ PMN05800 

♦ PMN05810 
PUFFER, THE LENGTH CF WHICH IS* PMN05820 



* ? GREATER THAN THE NO. WORDS TO BE READ/WRIT- * 

* TEN. * 

* * 
♦CAPABILITIES AND LIMITATIONS- * 

* THE WD CNT, AS WELL AS DZOOO.MUST BE ON AN FVEN* 

* BOUNCARY.MUST BE IN THE RANGE 0-32767. THE * 

* CRIVE CODE MUST BE IN BITS 1-3 OF THE SECTOR * 

* AODR, WHICH FOLLOWS THE WD CNT. THE FUNCTION ♦ 

* INDICATOR MUST BE XXCO FOR A REAO OR XX01 FOR * 

* A WRITE, WHERG 'XX' MEANS ANY 2 HEXADECIMAL * 

* CHARACTERS. A WC CNT OF ZERO INCICATES A SEEK.* 

* (REAO OR WRITE MAY BE INDICATED.) AUTOMATIC * 

* SEEKING IS PROVIDED AS A PART OF REAO/WRITE. * 

* A WRITE IS ALWAYS WITH A RE AC-BACK-CHECK . * 

* DISKZ MAKES NC PREOPERATIVE PARAMETER CHECKS. * 

* * 
♦SPECIAL FEATURES- ♦ 

* DISKZ PROVIDES ONLY THOSE FUNCTIONS MENTIONED ♦ 

* ABOVE. 0ISK1 AND DISKN OFFER THIS BASIC SET OF* 

* FUNCTIONS PLUS OTHERS. ♦ 

* * 
****4*************************^*^*************^**** 

* PROVIDE PARAMETERS FOR SYSTEM LCACER 



BSS E 

DC $ZEND-* DISKZ WCRD COUNT 

DC -'DZID PHASE ID 

DC $ZEN0-6-*+l ACDR CF SLET EXTRACT 

DC 1 NO. ENTRIES IN SLFT EXTRACT PMN06120 

ORG *-2 PMN06130 



PMN05830 
PMN05840 
PMN05850 
PMN05860 
PMN05870 
PMN05880 
PMNG5890 
PMN05900 
PMN05910 
PMN05920 
PMNC5930 
PMN05940 
PMN05950 
PMN05960 
PMN05970 
PMN05980 
PMN05990 
PMN06000 
PMN06010 
PMN06020 
PMN06030 
PMN06040 
PMN06060 
PMN06070 
PMN06080 
PMN06090 
PMN06100 
PMN06110 
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Resident Monitor Listing 



00F2 o oooo 

00F3 00 740000EE 

00F5 70FD 

00F6 7002 



00F7 
00F8 
00F9 
OOFA 
OOFB 
OOFC 
OOFO 
OOFE 
OOFF 



COOO 
7018 
690B 
6AQC 
1008 
D03C 
18D0 
D05A 
7054 



0100 CO 4C000000 



0102 

0103 



69CIF 
0822 



0104 00 65000000 

0106 00 66000000 

0108 COEE 

0'109 00 4C9R00F2 



010B 
010C 
10C 



DOC) 3 
1810 
D0E9 



010E CO 4C000000 
1 1 10 



0111 CO 65000000 
0113 CO 6600C0F? 



0115 

116 

0117 

118 

tun o 

1 l A 

1 I B CO 

1 1 D 



1 1 E C 

I 1 F C 

0120 

121 C 



816 

D0C6 

48 10 

70E7 

CflOA 

0900 

74FF00EE 

703A 



CflOF 
COU 
4 29 3 
7034 



0122 





0C01 


123 


c 


COOO 


0124 





0000 


0125 





0000 


126 





0000 


0127 





ocoo 


128 


c 


0000 


0129 





0000 


012A 





0122 


012R 


c 


ocoo 


012C 





0000 


01 2D 





ccoo 


012E 





ocoo 


12F 


c 


0000 


130 





5002 


13 1 





5004 


0132 





FECO 


0133 





0001 


0134 





0080 


0135 





0600 


0136 





0008 


0137 


c 


5C00 


0138 





0FF8 


0139 





0000 


013A 





0701 


13R 





0007 


013C 


c 


OOOA 


01 3D 





009F 


013E 





FFFB 


013F 





00 00 



00617 
00618 
00619 
00620 
00621 
00622 
00623 
00624 
00625 
00626 
00627 
00628 
00629 
00630 
00631 
00632 
00633 
00634 
00635 
00636 
00637 
00638 
00639 
00640 
00641 
00642 
00643 
00644 
00645 
00646 
00647 
00648 
00649 
00650 
00651 
00652 
00653 
00654 
00655 
00656 
00657 
C0658 
00659 
00660 
00661 
00662 
00663 
00664 
00665 
C0666 
00667 
00668 
00669 
00670 
00671 
00672 
C0673 
00674 
00675 
00676 
00677 
00678 
00679 
00680 
006P1 
00682 
C0683 
00684 
00685 
00686 
00687 
00688 
00689 
00690 
00691 
00692 
00693 
00694 
00695 
00696 
00697 
00698 
00699 
00700 
C0701 
00702 
00703 
00704 
00705 



DZOOO DC *-* ENTRY POINT 

MDX L SOBSYjO LOOP UNTIL OPERATION IN 

MOX *-3 ♦PROGRESS IS COMPLETE 

MDX DZ020 BR AROUND INT ENTRY POINT 

* INTERRUPT ENTRY POINT 

* 

DZOIO DC ♦ -♦ INTERRUPT ADDRESS 

MDX DZ180 BR TO SERVICE INTERRUPT 

DZ020 STX 1 0Z100+1 SAVE XR1 

STX 2 DZ100 + 3 SAVE XR2 

SLA 8 SHIFT INDICATOR 8 BITS 

STO 0Z945 SAVE FUNCTION INDICATOR 

RTE 16 

STO 0Z235+1 SAVE ADDR OF THE I/O AREA 

MDX DZ230 BR TO CONTINUE 

DZ060 BSC L *-* BR TO SERVICE THE INTERRUPT 



* START ALL DISK OPERATIONS 



0Z070 STX 
XIO 



1 CZ180+1 
DZ904 



SAVE ADCR OF THE I/O AREA 
START AN OPERATION 



* RETURN TO USER 



DZ100 LDX 
LDX 
LD 
BSC 
STO 
SRA 
STO 

0Z110 BSC 
NCP 



LI 
L2 



♦ -* 

♦ -* 



CZ010 
DZOOO, *- 
DZ110H 
16 

CZ010 
♦ -* 



RESTORE XR1 
RESTORE XR2 
INTERRUPT ENTRY 
NO, MONITOR ENTRY 
YES, INT ENTRY 
RESET 
♦INT ENTRY 

DUMMY OP 



2-6 
2-6 
2-6 
2-6 
2-6 
2-6 
2-6 



* SERVICE ALL INTERRUPTS 



DZ1R0 LDX LI *-* ADDR OF I/O AREA TO XR1 

LDX L2 DZOOO ADDR OF DZOOO TO XR2 

XIO OZ910 SENSE THE DSW 

STO SCDSW SAVE THE DSW 

BSC - SKIP IF ERROR BIT SET 2-6 

MDX CZ060 BRANCH IF ERROR BIT NOT SET 

DZ1B5 LDO D7902 RESTORE WORD COUNT 

STD 1 C *AND SECTOR ACDRESS 

MCX L tDRSY,-l SKIP IF 16 RETRIES DONE 

MDX CZ235 BRANCH IF LESS THAN 16 

* 

* TRAP OUT TO POSTOPERATIVE TRAP 

USCTR ADDR TO EXTENSION 



LDD 
LO 
DZ190 BSI 
MDX 



DZ912 
DZ915 
SPST2-X2 BR TG POSTOPERATIVE ER TRAP 



DZ232 



BR 

RETRY OPERATION 



2-6 



* CONSTANTS AND WORK AREAS 



BSS 
* EVEN-NUMB 
DZ900 DC 
DZ901 DC 
DZ902 DC 

DC 
DZ904 DC 
D790S DC 
DZ906 DC 
DZ907 DC 
DZ908 DC 
DZ909 DC 
DZ910 DC 
DZ911 DC 
DZ912 DC 
DZ913 DC 
DZ914 DC 
DZ915 DC 
DZ916 DC 

DC 
DZ920 DC 
DZ925 DC 
DZ930 DC 
DZ935 OC 
DZ940 DC 
DZ945 DC 
DZ950 DC 
DZ955 DC 
DZ960 DC 
DZ965 DC 
DZ970 DC 
DZ975 DC 



E 

ERED LABELS ARE ON EVEN BOUNDARIES 



*-* 






CONSTANT, REAC- AFTER-SEEK WO CNT 

CURRENT ARM POSITION 

LAST TWO WORDS, OF SECTOR 

♦PREVIOUSLY READ 

IOCC FOR OPERATION CURRENTLY 

♦BEING PERFORMED 

SAVE AREA FOR IOCC FOR 
*-♦ ♦USER-RECUESTED OPERATION 
CZ900 IOCC FOR READ 
*-♦ RAFTER SEEK 

2ND WORD OF SEEK IOCC 

SENSE IOCC 
*-♦ INTERMEDIATE WORD COUNT 
♦-♦ ADDR OF NEXT SEQUENTIAL SECTOR 
/5C02 WRITE SELECT/POWER UNSAFE INDR 
/5004 REAC/WRITE/SEEK ERROR INDICATOR 
-320 TO BE USED TO SIMULTANEOUSLY 
1 ♦OECR WO CNT, INCR SCTR ADDR 
/C080 REAC CHECK BIT FOR IOCC 
/C600 2ND WD OF READ IOCC W/0 AREA CD 
8 NO. SFCTORS PER CYLINDER 
/5C00 NOT REAOY DISPLAY COOE 
/OFFB 'AND' OUT DR CODE, SCTR ADDR 
*-♦ FUNC INDICATOR I 0=READ, 1=WRI TE ) 
/0701 SENSE IOCC W/0 AREA CODE 
/C007 'ANC' OUT ALL BUT SCTR NO. 
$DCYL-$CYLN BASE DEFECTIVE CYL ADDR 
SACDE BASE AREA CODE ADDR 
$CYLN-$ACOE BASE ARM POSITION ACDR 
♦-* 2ND WORD OF READ CHECK IOCC 



PMN06150 
PMN06160 
PMN06170 
PMN06180 
PMN06190 
PMN06200 
PMN06210 
PMN06220 
PMN06230 
PMN06240 
PMN06250 
PMN06260 
PMN06270 
PMN06280 
PMN06290 
PMN06300 
PMN06310 
PMN06320 
PMN06330 
PMN06340 
PMN06350 
PMN06360 
PMN06370 
PMN06380 
PMN06390 
PMN06400 
PMN06410 
PMN06420 
PMN06430 
PMN06440 
PMN06450 
PMN06460 
PMN06470 
PMN06480 
PMN06490 
PMN06500 
PMN06510 
PMN06520 
PMN06530 
PMN06540 
PMN065.50 
PMN06560 
PMN06570 
PMN06580 
PMN06590 
PMN06600 
PMN06610 
PMN06620 
PMN06630 
PMN06640 
PMN06650 
PMN06660 
PMN06670 
PMN06680 
PMN06690 
PMN06700 
PMN06710 
PMN06720 
PMN06730 
PMN06740 
PMN06750 
PMN06760 
PMN06770 
PMN06780 
PMN06790 
PMN06800 
PMN06810 
PMN06820 
PMN06830 
PMN06840 
PMN06850 
PMN06860 
PMN06870 
PMN06880 
PMN06890 
PMN06900 
PMN06910 
PMN06920 
PMN06930 
PMN06940 
PMN06950 
PMN06960 
PMN06970 
PMN06980 
PMN06990 
PMN07000 
PMN07010 
PMN07020 
PMN07030 
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0140 

0141 

0142 

0143 



0144 
00F2 



0146 

0147 

0148 00 
014A 
014B 



014C 
014D 
014E 

014F 



0150 

0151 00 
0153 



0154 CO 

0156 C 

0157 
015B CO 
015A 
015B 
015C 
015D 
015E 
015F C 

0160 

0161 C 
016? 

0163 

0164 

0165 

0166 

0167 

0168 

0169 C 
016A C 
0L6B C 
016C 
016C CO 
016F 

0170 

0171 C 

0172 

0173 CO 

0175 

0176 

0177 C 



0400 
0141 
OCOO 
FFFF 



1810 

D0A6 

74FF0032 

1000 

70B8 



C8D7 
D900 
C0E1 

70D0 



C0E6 

44000028 

7038 



74010032 

6211 

6 A 96 

65C00000 

C900 

08C8 

D8CI 

1810 

1084 

OOOE 

80DC 

D01C 

80DB 

D034 

80D7 

8008 

8007 

DC06 

62FD 

69RE 

C101 

EOCC 

0101 

94CC0000 

4828 

7007 

C101 

80C3 

7401016E 

7201 

70F5 

D 1 1 



0178 CO 

017A 

017P 

1 7C C 

017D CO 

017F C 

OlflO C 

181 

01R2 C 



0183 



01R4 
01R5 
0186 
0187 
01RR 
0189 
018A 
018B 
018C C 
01RC 
018E 
018F C 

0190 C 

0191 C 



660000F2 

C23D 

E249 

0250 

C4C0O0OO 

EA4E 

D23A 

EA43 

D239 

FA 50 

9247 

P237 

EA42 

8247 

0240 

EA4 8 

D23R 

CA3C 

0A3A 

D2ER 

4828 

70BC 

1002 

4828 



00706 
00707 
C0708 
00709 
00710 
00711 
00712 
00713 
00714 
00715 
00716 
00717 
00718 
00719 
00720 
00721 
00722 
00723 
00724 
00725 
00726 
00727 
00728 
00729 
00730 
00731 
00732 
C0733 
00734 
00735 
00736 
00737 
00738 
00739 
00740 
00741 
00742 
C0743 
00744 
00745 
00746 
C0747 
00748 
00749 
00750 
C0751 
0075? 
00753 
C0754 
C0755 
C0756 
00757 
00758 
00759 
00760 
C0761 
00762 
00763 
00764 
C0765 
00766 
00767 
C076R 
C0769 
00770 
C0771 
C077? 
C0773 
00774 
00775 
C0776 
00777 
0077R 
00779 
00 780 
00781 
C07R2 
C0783 
C07H4 
C 7 6 5 
C0786 
007R7 
C07R8 
C0789 
00790 
00791 
00792 
C0793 
C0794 
C0795 
00796 
00797 



DZ980 DC /0400 2ND WD OF SEEK IOCC W/0 AREA CD 

07985 DC 321 NO. WORDS PER SECTOR (W/ ADDR) 

02990 DC *-* CURRENT SECTOR NO. 

DZ995 DC -1 MASK FOR COMPLEMENTING 

* 

* RESERVED FOR SAVING CORE ON A DUMP ENTRY TO SKEL 



DZ210 



BSS 

EQU 



SRA 
STO 
MDX 
NOP 
MDX 



2 THIS 

DZOOO 



AREA MUST BE AT $CIBA+319 



16 

$DBSY 

$IOCT,- 



DZ100 
PREPARE TO TRAP OUT 



CLEAR BUSY INDICATOR 
DECREMENT IOCS COUNTER 



TO EXIT 
ON 'POWER UNSAFE* CONDITION 



DZ215 LDD 
STD 
LD 

MDX 



DZ902 



DZ914 

DZ190 



RESTORE WORD COUNT 
*AND SECTOR ADDRES 



BR TO TPAP OUT 



2-6 
2-6 



* PREPARE TO TRAP OUT ON 'NOT READY' CONDITION 



LO 
BSI 

MDX 



DZ230 
DZ232 



MCX 

LOX 

STX 

LOX 

LCD 

STD 

STO 

SRA 

SLT 

STO 

A 

STO 

A 

STO 

A 

A 



STO 
LCX 
STX 
LD 
AND 
DZ250 STO 
DZ280 S 

BSC 

MCX 

LD 

A 

MDX 

MCX 

MCX 

STO 



L 
2 
2 

LI 
1 



DZ935 
*PRET 
CZ340 



tIOCT.1 
'TCNT 

IDBSY 

*-* 



DZ902 

DZ912 

16 

4 

CZ280+1 

DZ965 

DZ330+1 

CZ970 

DZ350+1 

CZ960 

CZ280+1 

CZ280+1 

CZ2R0+1 

-3 

CZ906 

1 

CZ940 

1 

*-* 

Z + 

CZ300 

1 

CZ930 

07280*1,1 

1 

CZ250 

1 



FETCH ERROR CODE 

BR TO PREOPERATIVE ERR TRAP 

RETRY THE OPERATION 

STATEMENTS MOVED 2-1 

INCREMENT IOCS COUNTER 
TURN BUSY INDICATOR ON 2-10 

* 2-6 
ADDR I/O AREA TC XR1 

SAVE WORD COUNT, SCTR ADDR 

DRIVE CODE IN BITS 12-15 

COMPUTE AND STORE THE 

♦ ADCR OF THE AREA CODE 
COMPUTE AND STORE THE 
*ADCR OF THE ARM POSITION 
ADD IN BASE DT ADCR 

ADD IN THE CRIVE 
*COCE TWICE MORE 

INITIALIZE COUNTER FOR LOOP 

FETCH DESIREO SECTOR AODR 

•AND' OUT SECTOR NO. 

♦AND DRIVE COCE 

SUB DEFECTIVE CYLINDER ACCR 

SKIP IF BAD CYLINDER 

RR TO CONTINUE PROCESSING 

INCREMENT SCTR ACCR BY 8 
POINT TO NEXT DEFECTIVE CYL 
SKIP AFTER 3RC PASS 
COMPARE W/ NEXT OEF CYL ACR 
SCTR ADDR WITH 3 OFF CYL2-4 



* CONSTRUCT THE 2ND WORD OF ALL ICCC'S 

* 

DZ300 LDX L2 CZOOO ADDR OF DZOCO TO XR2 

LO 2 CZ913-X2 FETCH SECTOR ACCRESS 

AND 2 CZ955-X2 'ANC OUT ALL RUT SECTOR NC 

STO 2 CZ990-X? SAVE SECTOR NO. 

DZ330 LC L *-* FETCH AREA COCE 

OR 2 CZ980-X2 'OR' IN SEEK FUNCTION COCE 

STO 2 CZ910-X2 SEEK IOCC MINUS DIRECTION 

OR ? CZ925-X2 'OR' IN READ FUNCTION CODE 

STO 2 DZ909-X2 IOCC FOR RE AO- AF TER-SEE K 

OR 2 CZ990-X.2 'OR' IN SECTOR NO. 

S 2 CZ945-X2 COMPLETE REAC/WRITE CODE 

STC 2 CZ907-X2 2ND WD OF REAC/WRITE IOCC 

OK 2 CZ920-X? 'OR' IN READ CHECK RIT 

A 2 CZ945-X? 

STO 2 CZ975-X2 2NC WD CF READ CHECK IOCC 

OR ' 2 CZ950-X? 'OR' IN SENSE ICCC BITS 

STO 2 CZ911-X2 COMPLETFD SENSE IOCC 

LDD 2 CZ912-X2 1+SCTR ADDR TC EXTENSION 

DZ340 XIO 2 CZ910-X2 SENSE FOR DISK READY 

STO 2 tCDSW-X? SAVE THE CSW 

BSC Z+ SKIP UNLESS POWER UNSAFE OR 

MCX CZ215 *WRITE SELECT, BR OTHERWISE 

SLA 2 RR TO PREOPERATIVE ERR TRAP 

BSC Z+ *IF DISK NOT READY, SKIP 



PMN07040 
PMN07050 
PMN07060 
PMN07070 
PMN07080 
PMN07090 
PMN07100 
PMN07110 
PMN07120 
PMN07130 
PMN07140 
PMN07150 
PMN07160 
PMN07170 
PMN07180 
PMN07190 
PMN07200 
PMN07210 
PMN07220 
PMN07230 
PMN07240 
PMN07250 
PMN07260 
PMN07270 
PMN07280 
PMN07290 
PMN07300 
PMN07310 
PMN07320 
PMN07330 
PMN07340 
PMN07350 
PMN07360 
PMN07370 
PMN07380 
PMN07390 
PMN07400 
PMN07410 
PMN07420 
PMN07430 
PMN07440 
PMN07450 
PMN07460 
PMN07470 
PMN07480 
PMN07490 
PMNC7500 
PMN07510 
PMN07520 
PMN07530 
PMN07540 
PMN07550 
PMN07560 
PMN07570 
PMN07580 
PMN07590 
PMN07600 
PMN07610 
PMN07620 
PMN07630 
PMN07640 
PMN07650 
PMN07660 
PMN07670 
PMN07680 
PMN07690 
PMN0770C 
PMNC7710 
PMN07720 
PMN07730 
PMN07740 
PMN07750 
PMNC7760 
PMN07770 
PMN07780 
PMN07790 
PMN07800 
PMNC7810 
PMN07820 
PMN07830 
PMN07840 
PMN07R50 
PMNC7860 
PMN07R70 
PMN07880 
PMN07890 
PMN07900 
PMN07910 
PMNC7920 
PMN07930 
PMN07940 
PMN07950 
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0192 





70B0 


00798 
00799 


* 




MDX 




CZ220 




♦OTHERWISE 

STATEMENTS REMCVEC 2-1 


PMNC7960 
PMNC7970 


0193 


c 


1002 


008C0 






SLA 




2 




CHECK FOR ARM AT HOME 2-11 


PMN0798O 


0194 


c 


4828 


00801 






BSC 




+ Z 




SKIP IF NCT HOME 2-11 


PMN07990 


0195 


c 


7010 


008C2 






MDX 




DZ390+1 


BR TO VERIFY AR* AT H0M2-11 


PMN08C00 








00803 


* 












2-11 


PMN08010 








00804 


* 












3 INSTRUCTIONS REMOVEC 2-11 


PMN08020 








00805 


* 












2-11 


PMN08025 


0196 


c 


C101 


00806 






LD 


1 


1 ! 




FETCH DESIRED CYLINDER ACOR 


PMN08030 


0197 


00 


94000000 


C0807 


0Z35C 


S 


L 


♦-♦ 




SUBTRACT AF.N POSITION 


PMN08040 


0199 


c 


48 18 


008CR 






BSC 




+ - 




SKIP IF SEEK NECESSARY 


PMN08050 


019A 





70 IB 


00809 
00810 


* 




MDX 




CZ400 




BRANCH TO PERFORM OPERATION 


PMN0S060 
PMNC8070 








0081 1 


* 


SEEK 










PMN08080 








00812 


* 














PMN08090 


019B 


c 


1893 


00813 






SRT 




19 




PUT NO. CYLINDERS IN FXT 


PMN08100 


019C 





180F 


00P14 






SRA 




15 




+ OR - SIGN TO BIT 15 


PMN081 10 


019C 





1C02 


00815 






SLA 




2 




SHIFT SIGN TO BIT 13 


PMNC8120 


019E 





EA3A 


00816 






OR 


2 


DZ910- 


■X2 


OR IN REMAINDER OF IOCC 


PMN08130 


019F 





18 DO 


00817 






RTE 




16 






PMN0R140 


01A0 





4810 


00818 






BSC 




- 




SKIP IF SEEK TOWARD HOME 


PMN08150 


01A1 





7C02 


00819 






MDX 




CZ380 




BRANCH IF SEEK TOWARD CENTR 


PMN08160 


01A2 





F251 


00820 






EOR 


2 


DZ995- 


■X2 


COMPLEMENT NO. CYL'S TO BE 


PMN08170 


01A3 





8230 


00821 






A 


2 


CZ9C0- 


•X2 


♦SOLGHT TO GET POSITIVE NC. 


PMN08180 


01A4 





0A34 


00822 


DZ3S0 


STO 


2 


DZ904- 


-X2 




PMN08190 


01A5 





420F 


00823 


0Z390 


BSI 


2 


0Z070- 


-1-X2 START SEEK 2-1 


PMN08200 








00824 


* 














PMN08210 








00825 


* 


SEEK COMPLETE INTERRUPT PROCESSING 


PMN08220 








00826 


* 














PMN08230 


01A6 





CA38 


00827 






LCD 


2 


DZ908- 


■X2 


SET UP IOCC FOR 


PMN08240 


01A7 





DA34 


00828 






STD 


2 


0Z904- 


-X2 


♦READ AFTER SEEK 


PMN08250 


01A8 





420F 


00829 






BSI 


2 


0Z070- 


-1-X2 START READ-AFTER-SEEK 


PMN08260 








00830 


* 














PMN08270 








00831 


* 


READ-AFTER-! 


SEEK COMPLETE INTERRUPT PROCESSING 


PMN08280 








00832 


* 














PMN08290 


01A9 





C231 


00833 






LD 


2 


02901- 


-X2 


FETCH ACR OF SCTR JUST READ 


PMN08300 


01AA 


00 


D4800198 


00834 






STO 


I 


DZ350+1 


UPDATE ARM POSITION 


PMN08310 


01AC 





9101 


00835 






S 


1 


1 




SUB DESIRED SCTR ADDR 


PMN08320 


OlAD 


00 


4C1801B6 


00836 






BSC 


L 


0Z400, 


,♦- 


BR IF SEEK SUCCESSFUL 2-11 


PMN08330 


OlAF 


00 


74FF00EE 


00837 






MDX 


L 


JpBSY, 


,-l 


SKIP IF NO MORE RETRIES2-U 


PMN08332 


0181 





70E4 


00838 






MDX 




DZ350- 


■I 


BR TO CALC NEW SEEK 2-11 


PMN08334 


01B2 


00 


740100EE 


00839 






MDX 


L 


SOBSY, 


,1 


PREVENT A MINUS SDBSY 2-11 


PMN08336 


01B4 


00 


4C000119 


00840 
00841 
00842 


* 
* 




BSC 


L 


DJZ185 




BR TO TRAP OUT 2-11 


PMN08338 
PMN08340 
PMN08350 








00843 


* 


READ/WRITE 








PMN08360 








00844 


* 














PMN08370 


01B6 





CA3C 


00845 


DZ400 


LDD 


2 


0Z912- 


-X2 


FETCH INTERMEDIATE MO CNT 


PMN08380 


01B7 





4808 


00846 






BSC 




♦ : 




SKIP, WD CNT NOT EXHAUSTED 


PMN08390 


01B8 





7011 


00847 






MDX 




0Z410 




BR IF WD CNT EXHAUSTED 2-11 


PMN08400 


01B9 


c 


8A40 


0084R 






AD 


2 


0Z916- 


-X2 


DECREMENT WORD COUNT AND 


PMN08410 


OIBA 





0A3C 


00849 






STD 


2 


0Z912- 


-X2 


♦INCREMENT SECTOR ADDRESS 


PMN08420 


01BB 





4830 


00850 






BSC 




lr 




SKIP IF THIS IS LAST SECTOR 


PMN08430 


01BC 


c 


1810 


00851 






SRA 




16 




CLEAR ACCUMULATOR 


PMN08440 


01 BO 





R24F 


00852 






A 


2 


DZ9 85- 


-X2 


ADD BACK 321 TO WC CNT 


PMN08450 


01 BE 





0100 


00853 






STO 


1 







STORE RESULT IN I/O AREA 


PMN08460 


01BF 





CA36 


00854 






LDD 


2 


DZ906- 


■X2 


RESTORE IOCC FOR ORIGINALLY 


PMN08470 


01C0 


c 


DA 34 


00855 






STD 


2 


DZ904- 


-X2 


♦REQUESTED OPERATION 


PMN08480 


Old 





C101 


00856 






LD 


1 


1 




ADD SECTOR NO. TO SECTOR 


PMN08490 


1 C 2 


c 


EA'50 


00857 






OR 


2 


CZ990- 


-X2 


♦ADDRESS 


PMN08500 


(HC3 





moi 


00858 






STO 


I 


V 






PMN08510 


01C4 


c 


4 20F 


00P59 






BSI 


2 


DZ070- 


-1-X2 START READ/WRITE OPERATION 


PMN08520 








00860 


* 














PMN08530 








00861 


* 


READ/WRITE ( 


:CMPLETE INTERRUPT PROCESSING 


PMN08540 








00862 


* 














PMN08550 


01C5 





C240 


00B63 






LD 


2 


CZ975- 


•X2 


SET UP FOft READ CHECK 


PMN08560 


01C6 





D235 


C0R64 






STO 


? 


CZ905- 


-X2 




PMN08570 


01C7 





C24 7 


00865 






LD 


2 


DZ945- 


■X2 


FETCH FUNCTION INOICATOR 


PMN08580 


01C8 





4820 


00866 






BSC 




Z 




SKIP IF READ RECUESTEC 


PMN08590 


01C9 


c 


4?0F 


00867 






BSI 


? 


CZ070- 


-1-X2 START READ CHECK OPERATION 


PMN08600 


01CA 


c 


CA32 


00868 


DZ410 


LDD 


2 


CZ902- 


-X2 


RESTORE LST 2 WOS, SEC-2-U 


PMN08610 


01CB 





0900 


00869 






STO 


1 







♦TOR PREVIOUSLY READ 


PMN08620 


01CC 





C?3C 


C0870 






LD 


? 


DZ912- 


•X2 


FETCH INTERMEDIATE WO CNT 


PMN08630 








00R71 


* 


SHORT BSC AND MDX 


CHANGEO TO FOLLOWING BSC L 2-11 


PMN08640 


oicn 


CO 


4C080146 


00872 






BSC 


L 


0Z210, 


, + 


BR IF WD CNT EXHAUSTED 2-11 


PMN08650 


01CF 


CC 


75Q0014C 


00873 






MDX 


LI 


320 




POINT XR1 TO NEW I/O AREA 


PMN08660 


01C1 


c 


C900 


00874 






LCD 


1 







SAVE LAST 2 WCS OF SECTOR 


PMN08670 


oin? 





0A32 


00875 






STD 


2 


CZ902- 


■X2 


♦JUST READ/WRITTEN 


PMN08680 


0103 


c 


CA3C 


00876 






LDD 


2 


DZ912- 


-X2 


WD CNT, SCTR AODR NEXT OP 


PMN08690 


0104 


c 


0300 


00P77 






STD 


1 







STORE BOTH IN NEW I/O AREA 


PMN08700 


0105 


c 


7C87 


00878 
00879 
008P0 


* 
* 




MDX 




CZ240 




RACK TO SET UP NEXT OPERATN 


PMN08710 
PMN08720 
PMN08730 


ouo 






C0881 


tZEND 


ECU 




/01E0 




1 + END OF DISKZ 2-11 


PMN08735 


01C6 




00 4 


00882 
00883 
008.84 


* 

* 




BSS 




SZfcND- 


-♦-6 


PATCH AREA 2-11 


PMN0S740 
PMN08750 
PMN08760 



G-10 



Resident Monitor Listinq 



008H6 


tClDN 


DC 


*-* 


CORE ADOR/CIO NO. 


PMN08780 


00887 




OC 


*-* 


WORD COUNT 


PMN08790 


00888 




DC 


*-* 


SCTR ADOR 


PMN08800 


00889 




BSS 


2 


WD CNT, SCTR ACCR CORE LDS 


PMN08810 


00890 


* 






$ZEND ECUATE MOVEC 2-11 


PMN08820 



OICA C OOAO 00885 DC 'CIL1 ID NO. CF CCRE IM.AGE LDR.P1 PMN08770 

OICB C COCO 

01DC 0000 

01D0 0000 

01CE 0002 



0C04 
0006 
CC07 
OOOfl 
0009 
OCOA 
CCOB 
COOC 
OCOD 
OOOF 
CCOF 
0010 
C011 
C01? 
14 
C015 
C016 
C017 
0018 
0019 
C01A 
COIR 
C01C 
C01D 
CC1E 
COIF 
0020 
C021 
C023 
0028 
C02D 
CC32 
CC37 
C03C 
0041 
C046 
004B 
0050 
C055 
CC5A 



0C6E 
C073 
C074 
C078 
008C 
C08D 
008E 
CC8F 
C09C 
C091 
0092 
0093 
C094 
C095 
C096 
C097 
C098 
OOAO 
C0A1 



C014 
C016 
0017 
0018 
0019 
C01A 
C05A 
00B9 
0004 
COEF 
OOFO 
C0F1 
CCE4 



ECUfVALENCES 



•$ZEND 



00892 


* 








PMN08840 


00893 


* EQUIVALENCES FOR 


DCOM PARAMETERS 


PMN08850 


00894 


* 








PMN08860 


00895 


= NAME 


EGU 


4 


NAME OF PROGRAM/CORE LOAD 


PMN08870 


00896 


= DBCT 


EQU 


6 


BLOCK CT OF PROGRAM/CORE LOAD 


PMN088R0 


00897 


= FCNT 


ECU 


7 


FILES SWITCH 


PMN08890 


00898 


= SYSC 


ECU 


8 


SYSTFM/NCN-SYSTEM CARTRIDGE INCR 


PMN08900 


00899 


= JBSW 


EQU 


9 


JOBT SWITCH 


PMN08910 


009G0 


= CBSW 


EOU 


10 


CLB-RETURN SWITCH 


PMN08920 


C0901 


= LCNT 


ECU 


11 


NO. CF LOCALS 


PMN08930 


00902 


= mpsw 


ECU 


12 


CORE MAP SWITCH 


PMN0894O 


009C3 


= MDF1 


EQU 


13 


NO. CUP CTRL RECORDS (MODIF) 


PMN08950 


00904 


= MDF2 


ECU 


14 


ACCR OF MODIF BUFFER 


PMN08960 


00905 


= NCNT 


ECU 


15 


NO. CF NCCALS 


PMN08970 


00906 


= ENTY 


EQU 


16 


RLTV ENTRY ADDR OF PROGRAM 


PMN0R980 


0090 7 


= RP67 


ECU 


17 


1442-5 SWITCH 


PMN08990 


00908 


= TODR 


ECU 


18 


OBJECT WCRK STORAGF DRIVE CODE 


PMNO9C00 


00909 


= FHOL 


ECU 


20 


ADDR LARGEST HOLE IN FIXED AREA 


PMN09010 


00910 


= FS7F 


EQU 


21 


BLK CNT LARGEST HCLE IN FXA 


PMN09020 


00911 


= UHOL 


ECU 


22 


ACCR LAST HOLE IN USER AREA 2-10 


PMN09030 


00912 


= USZE 


ECU 


23 


BLK CNT LAST HCLE IN UA 2-10 


PMN09040 


009 13 


= DCSW 


EQU 


24 


DUP CALL SWITCH 


PMN09050 


00914 


= piod 


ECU 


25 


PRINCIPAL I/O DEVICE INDICATOR 


PMN09060 


C0915 


= PPTR 


EQU 


26 


PRINCIPAL PRINT CEVICF. INDICATOR 


PMN09070 


00916 


= CIAD 


ECU 


21 


RLTV ACDR IN 'STRT OF CIL ADDR 


PMNC9080 


00917 


= ACIN 


EGU 


28 


AVAILABLE CARTRIDGE INDICATOR 


PMN09090 


00918 


= GRPH 


ECU 


29 


2250 INDICATOR 2G2 


PMN09100 


00919 


= GCNT 


ECU 


3C 


NO. G2250 RECORDS 2G2 


PMN09110 


00920 


= LOSW 


EQU 


31 


LOCAL-CALLS-LOCAL SWITCH 2-2 


PMN09120 


00921 


= X3SW 


FQU 


32 


SPECIAL ILS SWITCH 2-2 


PMN09130 


00922 


= ECNT 


ECU 


33 


NO. CF *EQUAT RCCS 2-4 


PMN09140 


00923 


= ANDU 


ECU 


35 


1+BLK ADDR END OF UA {ACJUSTED) 


PMN09150 


00924 


= BNDU 


EQU 


40 


1+BLK ADDR END OF UA (BASE) 


PMN09160 


00925 


= FPAO 


ECU 


45 


FILE PROTECT ADDR 


PMN09170 


C0926 


= PCID 


ECU 


50 


CARTRIDGE ID, PHYSICAL CRIVE 


PMN09180 


00927 


= CIDN 


ECU 


55 


CARTRIDGE ID, LOGICAL CRIVE 


PMN09190 


C0928 


= CIBA 


ECU 


60 


SCTR ADDR OF CIB 


PMN09200 


00929 


= SCRA 


ECU 


65 


SCTR ADDR OF SCRA 


PMN09210 


00930 


= FMAT 


EQU 


70 


FORMAT OF PRCG IN WORKING STG 


PMN09220 


009 31 


= FLFT 


EGU 


75 


SCTR ADDR 1ST SCTR OF FLET 


PMN09230 


00932 


= ULET 


EQU 


80 


SCTR ACDR 1ST SCTR OF LET 


PMN09240 


00933 


= WSCT 


EGU 


85 


BLK CNT CF PROG IN WORKING STG 


PMN09250 


00934 


= CSHN 


EQU 


90 


NO. SCTRS IN CUSHION AREA 


PMN09260 


00935 


* 








PMN09270 


00936 


* EQUIVALENCES FOR 


PHASE ID NUMBERS 


PMN09280 


C0937 


* 








PMN09290 


00938 


•MCRA 


EGU 


110 


PHASE ID FOR MCRA 


PMN09300 


00939 


•SUP6 


EQU 


115 


PHASE ID FOR DUMP PROG 2-10 


PMN09310 


00940 


•SUP7 


EGU 


116 


PHASE IC FOR AUX SUPV 2-10 


PMN09320 


00941 


•CLPO 


ECU 


120 


PHASE ID FOR CLB, PHASE 0/1 


PMN09330 


00942 


• 1403 


EQU 


140 


PHASE ID FOR SYS 1403 SUBR 


PMN09340 


00943 


• 1132 


EQU 


141 


PHASE ID FOR SYS 1132 SUBR 


PMN09350 


00944 


•CPTR 


EGU 


142 


PHASE IC FOR SYS CP SUBR 


PMN09360 


00945 


•2501 


ECU 


143 


PHASE ID FOR SYS 2501 SUBR 


PMN09370 


00946 


•1442 


EQU 


144 


PHASE ID FOR SYS 1442 SUBR 


PMN09380 


00947 


'1134 


ECU 


145 


PHASE ID FOR SYS 1134 SUBR 


PMN09390 


00948 


•KBCP 


ECU 


146 


PHASE ID FOR SYS KB/CP SUBR 


PMNC9400 


00949 


•CDCV 


ECU 


147 


PHASE 10 FOR SYS CD CONV 


PMN09410 


00950 


•PTCV 


ECU 


148 


PHASE ID FCR SYS 1134 CONV 


PMN09420 


00951 


•KBCV 


ECU 


149 


PHASE ID FOR SYS KB CONV 


PMN09430 


00952 


•DZID 


EQU 


150 


PHASE ID FOR CISKZ 


PNN09440 


00953 


•one 


ECU 


151 


PHASE IP FCR DISKI 


PMN09450 


00954 


•CNIC 


ECU 


152 


PHASE IC FOR CISKN 


PMN09460 


00955 


•CIL1 


EQU 


160 


PHASE ID FOR CI LOADER, PH 1 


PMN09470 


00956 


'C1L2 


EOU 


161 


PHASE ID FOR CI LCADER.PH 2 


PMN09480 


00957 


* 








PMN09490 


00958 


* ECUIVALENCFS FOR 


RESICENT MONITOR 


PMN09500 


00959 


* 








PMN09510 


00960 


$LKNM 


EQU 


$FASH SAVE AREA FOR NAME OF LINK 


PMNC9520 


00961 


tRMSW 


ECU 


1HASH+2 EXIT-LINK-DUMP SW<-1,0,+1) 


PMN09530 


00962 


$CXR1 


ECU 


tHASH+3 SAVE AREA FOR XR 1 


PMN09540 


00963 


SCLSW 


EQU 


SHASH+4 SW FOR CORE IMAGE LOR.PH 2 


PMN09550 


00964 


tDMPF 


EQU 


$HASH+5 DUMP FORMAT CCCE 


PMN09560 


00965 


$ACEX 


ECU 


SHASH+6 ACC AND EXT WHEN ENTER CUMP 


PMN09570 


00966 


$CILA 


ECU 


SS150+1 ADDR OF END OF DK I/O - 3 


PMN09580 


00967 


$IBT2 


EQU 


$1205+1 ADR OF SERVICE PART OF DK10 


PMN09590 


00968 


$IBT4 


EOU 


$1405+1 ADDR OF THE IBT 


PMN09600 


00969 


$SNLT 


EQU 


$CRSY+1 SENSE L I GHT ' IND ICATOR 


PMN09610 


00970 


$PAUS 


EQU 


CZC00-2 PAUSE, INTERRUPT INDICATOR 


PMN09620 


00971 


$RWCZ 


EQU 


DZOOO-l READ/WRITE SWITCH (CARDZ) 


PMN09630 


00972 


$XR3X 


ECU 


$1496 XR3 SETTING DURING XEG 2-2 


PMN09640 


00973 


* 








PMN09650 



Resident Monitor (Including Table of Equivalences) G-l 1 



Resident Monitor Listing 



ccoo 

0001 
0002 
0003 
0C06 
0007 

ocoo 



0000 
OCOl 
C002 
0003 
0004 
0005 
0006 
0C07 
0008 
0009 
OOOA 
OOOB 
0011 
001A 
C01B 
C01D 



0005 

0003 
0000 
0001 
0003 
OOOA 
OCOO 
0002 



C033 
0005 
0380 
04C0 
0600 
C011 
00F9 
C0F7 
0010 
C003 
1000 
007F 

0004 
0005 
OCOl 
0008 



00974 


* EQUIVALENCES FOR 


ABSOLUTE SECTOR ADDRESSES 




PMN09660 


00975 


• 










PMN09670 


00976 


■ IDAD 


ECU 





ACCR OF SCTR WITH ICDEF CYL 


ACR 


PMN09680 


00977 


'OCOM 


ECU 


1 


ACOR OF SCTR CONTAINING DCCN 




PMN09690 


00978 


•RIAD 


ECU 


2 


ACDRCOF SCTR CONTAINING RES 


IMGE 


PMN09700 


00979 


'SLET 


ECU 


3 


ACCR OF SCTR CONTAINING SLET 




PMN09710 


00980 


'RTRL 


ECU 


6 


ACDR OF SCTR CONTAINING RELC 


TBL 


PMN09720 


00981 


•HONG 


EQU 


7 


ADDR OF SCTR CONTAINING PAGE 


HOR 


PMN09730 


00982 


•STRT 


EQU 





ADDR OF SCTR W/ COLC START PROG 


PMN09740 


00983 


* 










PMN09750 


00984 


♦ ECUIVALENCFS FOR 


THE CORE IMAGE HEADER 




PMN09760 


009R5 


* 










PMN09770 


00986 


'XEQA 


EQU 





RLTV ACDR OF CORE LOAD EXEC 


ADDR 


PMN09780 


00987 


'CMON 


ECU 


1 


RLTV ACDR OF WC CNT OF COPMCN 


PMN09790 


00988 


•DREQ 


EQU 


2 


RLTV ADDR OF DISK I/O INOICATOR 


PMN09800 


00989 


•FILE 


EQU 


3 


RLTV ADDR OF NC. FILES DEFINED 


PMN09810 


00990 


■HWCT 


EGU 


4 


RLTV ACDR OF WO CNT OF CI HEADER 


PMN09820 


00991 


■LSCT 


ECU 


5 


SCTR CNT OF FILES IN WK STORAGE 


PMN09830 


00992 


•LOAD 


EQU 


6 


RLTV ADDR OF LOAD ADDR CORE 


LOAD 


PMN09840 


00993 


•XCTL 


EQU 


7 


RLTV AOOR 0ISK1/CISKN EXIT CTRL 


PMN09850 


00994 


•TVWC 


EGU 


8 


RLTV ADDR OF WO CNT OF TV 




PMN09860 


00995 


•WCNT 


EQU 


9 


RLTV ADDR OF WO CNT OF CORE 


LOAD 


PMN09870 


00996 


■XR3X 


EQU 


10 


RLTV ADDR OF EXEC SETTING OF 


XR3 


PMN09880 


00997 


•ITVX 


EQU 


11 


RLTV ADDR OF 1ST WD OF ITV 




PMN09890 


00998 


•ILS4 


EQU 


17 


RLTV ACDR OF 1ST WD OF IBT4 




PMN09900 


00999 


'OVSW 


EQU 


26 


RLTV ADDR OF LOCAL/SOCAL SWITCH 


PMN09910 


01000 


•CORE 


EQU 


27 


CORE SIZE OF BUILDING SYST 


2-10 


PMN09920 


01001 


•HEND 


EQU 


29 


RLTV ADDR OF LAST WD OF CI HDR 


PMN09930 


01002 


* 










PMN09940 


01003 


* EQUIVALENCES FOR 


LET/FLET 




PMN09950 


01004 


* 










PMN09960 


01005 


•LFHO 


EQU 


5 


WORD COUNT OF LET/FLET HEADER 


PMN09970 


01006 


■LFEN 


EGU 


3 


NO OF WDS PER LET/FLET ENTRY 




PMN09980 


01007 


'SCTN 


EGU 





RLTY ADDR OF LET/FLET SCTR NO. 


PMN09990 


01008 


•UAFX 


EQU 


1 


RLTV ADDR OF SCTR ACDR OF UA/FXA 


PMN10000 


01009 


•WOSA 


EQU 


3 


RLTV ADDR OF WDS AVAIL IN SCTR 


PMN10010 


01010 


•NEXT 


ECU 


4 


RLTV ADDR OF ACDR NEXT SCTR 




PMN10020 


01011 


•LFNM 


EQU 





RLTV ADDR OF LET/FLET ENTRY 


NAME 


PMN10030 


01012 


•BLCT 


EQU 


2 


RLTV AODR OF LET/FLET ENTRY 


DBCT 


PMN10040 


01013 


* 










PMN10050 


01014 


* MISCELLANEOUS EQUIVALENCES 




PMN10060 


01015 


* 










PMN10070 


01016 


« ISTV 


EQU 


51 


ISS NO. ADJUSTMENT FACTOR 


2-1 


PMN10080 


01017 


•MXDR 


ECU 


5 


MAX NO. CR1VES SUPPOPTEC 




PMN10090 


01018 


'COMZ 


ECU 


896 


LOW COMMON LIMIT FOR DISKZ 




PMN10100 


01019 


•C0M1 


EGU 


1216 


LOW COMMON LIMIT FOR D1SK1 




PMN10110 


01020 


'COM2 


EQU 


1536 


LOW COMMON LIMIT OF CISKN 




PMN10120 


01021 


'TCNT 


ECU 


17 


NO. TRIES BEFORE DISK ERROR 




PMN10130 


01022 


•CKEP 


EGU 


CZ000+7 LIPF ENTRY TO 0ISK1/N 




PMN10140 


01023 


•DKIP 


EQU 


CZ000+5 DISK I/O INTERRUPT ENTRY 


PT 


PMN10150 


01024 


'SCIB 


ECU 


16 


CIB SECTOR COUNT 


2-2 


PMN10160 


01025 


•HCIB 


ECU 


3 


HIGH COMMON SECTOR COUNT 


2-2 


PMN10170 


01026 


'MCOR 


ECU 


4096 


SIZE OF MINIMUM CORE 


2-2 


PMN10180 


01027 


Y 


EQU 


127 






PMN10190 


C102B 


* 










PMN10200 


01029 


•CION 


ECU 


4 


RLTV ADDR CARTFUCGE ID 


2-2 


PMN10210 


01030 


•COPY 


EQU 


5 


RLTV ADDR COPY INDICATOR 


2-2 


PMN10220 


01031 


•CCTB 


ECU 


1 


RLTV ACDR DEFECTIV CYL TBL 


2-2 


PMN10230 


01032 


"DTYP 


EQU 


fi 


RLTV AODR DISK TYPE INCR 


?-2 


PMN10240 



01034 
01035 
01036 
01037 
01038 
01039 
01040 
01041 
01042 
01043 
01044 
01045 
01046 
01047 
01048 
01049 
01050 
01051 
01052 
01053 
01054 
C1055 
01056 
01057 



COLD START PROGRAM 

******************************************* ******** 

* * 

* STATUS - VERSION 2, MODIFICATION! 11 * 

* * 
♦FUNCTION/OPERATION - * 

* THIS PROGRAM IS REAC INTO CORE FROM SECTOR * 

* OF THE SYSTEM CARTRIDGE AND TRANSFERRED TO BY * 

* THE COLD SiTART CARD. DEFECTIVE CYLINDER • 

* ADDRESSES, CARTRIDGE 10 AND DISKZ ARE ALSO ON * 

* SECTOR AND ARE READ IN AT THE SAME TIME. , * 

* ALL THAT REMAINS FOR THE COLO START PROGRAM IS* 

* TO READ IN THE RESIDENT IMAGE, SAVE THE * 

* CARTRIDGE IC AND TRANSFER TO THE AUXILIARY * 

* SUPERVISOR THROUGH SOUMP IN THE RESIDENT * 

* MONITOR. * 

* * 
♦ENTRY - CR010-2 ♦ 

* ENTER PROGRAM BY TRANSFER FROM COLD START CARO* 

* * 
♦INPUT - * 

* THE CARTRIDGE ID OF LOGICAL DRIVE ZERO ITHE * 

* SYSTEM CARTRIDGE) IS READ IN FROM SECTOR * 

* WITH THE CCLO START PROGRAM. * 



PHN10260 
PMN10270 
PMN10280 
PMN10290 
PMN10300 
PMN10310 
PMN10320 
PMN10330 
PMN10340 
PMN10350 
PMN10360 
PMN10370 
PMN10380 
PMN10390 
PHN10400 
PMN10410 
PMN10420 
PMN10430 
PMN10440 
PMN10450 
PMN10460 
PMN10470 
PMN10480 
PMN10490 
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IEP 

niEl 



617F 
C624 



0105P 
C1059 
01060 
01061 
01062 
010 6 3 
01064 
01065 
C1C66 
01067 
01068 
01069 
010 70 
01071 
01072 
C1073 
01074 
01075 
C1076 
01C77 
0107B 
01079 
01080 
ClOHl 
01082 
10 8 3 
C10H4 
01085 
010f!7 

oioea 

01089 
01090 
01091 



01E2 00 DCOC0004 01092 



1ft 
OIF 1 . 

01 £6 
01 E 7 C 
01F8 
01F9 



0125 

C184 

0120 

001F 

C156 

00F1 

01FA CO 66C001FE 01099 
01EC CO 6F00O0OA 01100 



01093 
01094 
01095 
01096 
01097 
01098 



1 E E 
01EF 
01FO C 
01F1 C 
01F2 C 
01F3 



C0F4 
1890 
D16F 
0118 
4173 
3C00 



01F4 


C 


1810 


01F5 


C 


R1B3 


0JF6 


c 


CHOD 


01F7 


c 


0985 


01F8 


c 


CCOE 


01F9 


c 


0120 


01FA 





COOD 


OlFfi 


c 


0181 



1FC 

1FC 



41C0 
FFFF 



1 1 C 1 

011C2 
01103 
01104 
01105 
0UC6 
01107 
01108 
01109 
OHIO 
Oil 1 1 
01112 
01113 
01114 
01115 
01116 
01117 
01118 
01119 
01120 
01121 
01122 
01123 
01124 
01125 
01126 



01FF OCOO 

01FF C 4178 

0200 00 74FF01FE 01127 

0202 CO 4CC001FE 01128 
01129 
01130 
01131 
01132 
0113 3 
01134 
01135 
01136 
01137 
01138 
01139 



0204 




OCOO 


0204 





OCOO 


0205 





0007 


0206 





00E8 


0207 


c 


0002 


0208 





70FF 


0209 




0009 


0212 




0212 



♦OUTPUT - 

* * THE RESIDENT 

* THE DISK. 

* * IN COMMA- 

* JACDE 

* SCIBA-1 

* tCIDN 

* $CYLN 

* tCBSY 

* tlOCT 



♦EXTERNAL REFERENCES - 
* OZCOO SUBROUTINE 



[MAGE IS READ INTO CCRE FROM 



TC PERFORM DISK I/O. 



♦EXITS - , 

* THE ONLY EXIT IS TO THE AUXILIARY SUPERVISOR 

* AS FOLLOWS- 

* 8SI $CUMP 

* OC -1 



♦TABLES/WORK AREAS 



N/A 



♦ATTRIBUTES - ♦ 

♦ THIS PROGRAM IS NOT NATURALLY RELOCATABLE. * 

♦ ' * 
♦NOTES - ♦ 

♦ DISK ERRORS RESULT IN A WAIT AT $PST2. * 
**********♦♦♦♦*♦*♦*♦**♦*♦♦*♦♦**♦*♦♦♦*♦**♦♦♦**♦*♦*♦♦ 
♦ 

♦ READ THE RESIDENT IMAGE INTO CORE 



CROIO 



LDX 

LDD 

STD 

STO 

LD 

STO 

STO 

LD 

STO 

LDX 

STX 

LD 

SRT 

STO 

STO 

BSI 

WAIT 



Y 

CR920 

$CIBA-1 

$OCYL-Y 

3-Y 

IACDE-Y 

CR920+1 

CZ000-2-27 

SCION 

CR020 

$LEV2 

CR010+1 

16 

SCBSY-Y 

ICYLN-Y 

DZCOO-Y 



SET UP WORD COUNT AND SCTR 
♦ADDR OF RESIDENT IMAGE 
♦INITIALIZE DEF CYL NO. 1 



PMN10500 
PMN10510 
PHN10520 
PMN10530 
PMN10540 
PMN10550 
PMN10560 
PMN10570 
PMN10580 
PMN10590 
PMN10600 
PMN10610 
PMN10620 
PMN10630 
PMN10640 
PMN10650 
PMN10660 
PMN10670 
PMN10680 
PMN10690 
PMN10700 
PMN10710 
PMN10720 
PMN10730 
PMN10740 
PMN10750 
PMN10760 
PMN10770 
PMN10790 
PMN10800 
PMN10810 
PMN10820 
PMN10830 
PMN10840 
PMN10850 



FETCH LOG DRIVE AREA C00EPMN10860 



♦AND STORE IT IN COMMA 
SAVE THE AREA CODE 
-Y FETCH AND SAVE THE 



PMN10870 
PMN10880 
PMN10890 
PMN10900 
2-11PMN10902 
2-11PMN10904 



♦CARTRIDGE ID 

SET UP TEMPORARY 

♦ILS02 

FETCH CORE ADDR OF RESIDENT PMN10910 

♦IMAGE AND PUT IN EXTENS ICN PMN 10920 

CLEAR DISK BUSY INDICATOR PMN10930 

INITIALIZE ARM POSITION 

FETCH RESIDENT IMAGE 

WAIT OUT THE INTERRUPT 



♦ INITIALIZE ITEMS IN COMMA 



SRA 


16 


STO 


1 JIUCT-Y 


LDD 


CR910 


STD 


1 $CIBA-1- 


LO 


CR920+1 


STO 


1 SACCE-Y 


LD 


CR905 


STO 


1 C-Y 



CLEAR IOCS COUNTER 



TRANSFER TO 
TO COMPLETE 

BSI 1 
DC 

(020 DC 
BSI 
MDX 
BOSC 



PMN10940 
PMN10950 
PMN10960 
PMN10970 
PMN10980 
PMN10990 
PMN11000 
PMNU010 
PMN11020 
THE CIBPMN11030 
PMN11040 
PMN11050 
PMN11060 
PMN1 1070 
PMN11080 
PMN11090 
PMN11100 
PMN11110 

BR TO AUXILL1ARY SUPERV I SOR PMN 1 1 120 

♦FOR JOB PROCESSING PMN11130 

PMN11140 
2-11PMN11142 

BR TO SERVICE INTERRUPT2-1 1 PMN1 1 144 
2-UPMN11146 

RETURN 



♦FOR SAVING CORE 
FETCH AREA CODE 
RESET A^EA 
INITIALIZE 
♦AN 'MDX 



ON 



CODE 

KD ZERO TO 

*-!• LOOP 



THE AUXILIARY SUPERVISOR 
INITIALI ZATION 



SCUMP-Y 
-1 

♦ -♦ 

CZ010-Y 
CR020.-1 
CR020 



♦ CONSTANTS AND WORK AREAS 



BSS 
CR910 DC 

DC 
CR920 DC 

DC 
CR905 MDX 

BSS 

END 



2-11PMN11148 
PMN11160 
PMN11170 
PMN11180 
2-11PMN11190 
2-5PMNU200 
PMN11210 

$CBSY-$CH12 WC CNT AND SCTR PMN11220 

•RIAD *AODR OF RESIDENT IMAGE PMN11230 
♦-1 TO BE PUT AT ADDR 0000 2-11PMN11231 
/C212-* PATCH AREA 2-11PMN11232 

♦ PMN11232 





'HDNG 



ASSURE EVEN BOUNDARY 
WD CNT, SCTR ADDR OF 
♦HARMLESS WRITE TC DISK 
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C.CSS-RE FERENCE 



SYMBOL 

CR010 
CR02C 
CR905 
CR910 
CR920 
OZOCO 

DZ010 
OZ02C 
DZ060 
0Z070 
OZIOO 
OZ110 

oziao 

OZ185 
DZ190 
DZ210 
DZ215 
DZ220 
OZ230 
DZ232 
DZ235 
DZ240 
DZ250 
DZ280 
OZ300 
DZ330 
DZ340 
DZ350 
DZ380 
0Z390 
0Z400 
0Z410 
OZ900 
DZ901 
0Z902 
OZ904 
DZ905 
0Z906 
OZ907 
0Z908 
DZ909 
OZ910 
DZ911 
0Z9L2 
DZ913 
0Z914 
DZ915 
DZ916 
DZ920 
DZ925 
DZ930 
DZ935 
DZ940 
DZ945 
DZ950 
DZ955 
DZ960 
DZ965 
DZ970 
0Z975 
DZ980 
0Z985 
0Z990 
DZ995 
$ACDE 
SACEX 
tCCAD 
*CH12 
4CIBA 
JCIDN 
tCILA 
1CLSH 
SCOMN 
SCORE 
$CPTR 
SCTSH 
tCWCT 
*CXR1 
$CYLN 
$DAOR 
4CBSY 
tCCDE 
tCCYL 
SCDSW 
1DMPF 
tCREC 
tCU^P 



VALUE REL DEFN 



RFFERENCES 



01C2 
OlFE 
0208 
0204 
0206 
00F2 

00F7 
C0F9 
0100 
0102 
0104 
010E 
0111 
0119 
0120 
0146 
014C 
0150 
0154 
0156 
0158 
015D 
016C 
016D 
0178 
017D 

oiac 

0197 
01A4 
01A5 
01B6 
01CA 
0122 
0123 
0124 
0126 
0127 
0128 
0129 
012A 
012B 
012C 
0120 
012E 
012F 
0130 
0131 
0132 
0134 
0135 
0136 
0137 
0138 
0139 
013A 
013B 
013C 
0130 
013E 
013F 
0140 
0141 
0142 
0143 
009F 
001A 
0074 
0006 
0005 
OlDB 
C05A 
0018 
0007 
OOOE 
007E 
COOF 
C072 
0017 
009A 
C010 
OOEE 
0077 
00A4 
OODO 
0019 
C012 
003F 



01092 
01125 
C1137 
01133 
01135 
00617 

00624 
00626 
00633 
00637 
00642 
00649 
00654 
00660 
00669 
00718 
00726 
00733 
00739 
00740 
00742 
00746 
00761 
00762 
C0774 
00778 
00792 
00807 
00822 
00823 
00845 
00868 
00676 
00677 
00678 
00680 
00681 
00682 
00683 
00684 
00685 
00686 
00687 
00688 
00689 
00690 
00691 
00692 
00694 
00695 
00696 
00697 
00698 
00699 
00700 
00701 
00702 
00703 
00704 
00705 
00706 
00707 
00708 
00709 
00446 
00965 
00373 
C0255 
00254 
00886 
00966 
00963 
C0256 
00268 
00383 
00269 
00371 
00962 
00436 
00270 
00559 
00376 
00457 
00539 
00964 
00272 
00319 



01101, R 
01099.R 
C1116.R 
01112, R 
01091, R 
00327, B 
01105, B 
00644, R 
00620, B 
00659, B 
C0823.B 
00626, M 
C0646.M 
00625, B 
00840, B 
C0729.B 
00872, B 
C0795,B 
00798, B 
00632, B 
00670, B 
C0631,M 
C0878.B 
00769, B 
00748, M 
C0764.B 
00750, M 
00735, B 
00752, M 
00819,8 
C0802.B 
00809, B 
00847, B 
00684, R 
00833, R 
00660, R 
00638, R 
00864, M 
C0758.M 
C0785.M 
C0827.R 
00782, M 
00656, R 
00790, M 
00667, R 
00775, R 
00728, R 
0066R,R 
C0848.R 
00786, R 
00781, R 
00766, R 
00733, R 
C0760.R 
00629, M 
00789, R 
00776, R 
00753, R 
00749, R 
00751, R 
00788, M 
00779, R 
00852, R 
00777, M 
00820, R 
00703, R 
00320, M 



01127, H 0112P.B 



01C96.N 1 Cll 14, R 

00348, B 00645, B 00655, R 00714, R 0C774.R 00970, R 00971, R 01022, R 01023, R 01097, R 



00648, M 01126, B 



00829, B C0859.B 0086/, B 
00627, H 00722,6 



00637, M 



00663, B 

00754, R C0755.R 00756, M 00767, N 

00834, M 00838, B 

00836,6 

00821, R 

00726, R 00744, M 00868, R 00875, M 
00822, M 00828, M 00855, M 

00854, R 

00780, H 00792, R 00816, R 

0£745,M 00791, R 00845, R 00849.M 00870.R 00876, R 



00784, R 00787, R 00865, R 



00863, R 

00783, R 00857, R 

00704, R 01095.M 01115.M 



01135, R 

00313, R 01092, M 01113, M 

01098, M 

00346, R 



C0323.M 

00702, R 00704, R 01104, M 



00618, M 00662, M 00719, M 00741, M 00837, M 00839, M 00969, R 01103, M 01135, R 

00702, R 01093, M 
00657, M 00793, M 
00325, H 

00324, R 00555, B 01122, 8 
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CROSS-REFERENCE 

SYMBOL VAIUE REL DEFN REFERENCES 

tmN 0076 00375 

4EXIT C038 00303 

4FLSH C071 00369 

4FPAD 0095 00427 

tGCOM 0063 00352 

4GRIN 0064 00353 

4HASH CC14 00274 00960, R 00961, R 00962, R 00963, R 00964, R 00965, R 

4IRSY 0013 00273 

4IBT2 00R9 00967 

4IRT4 0OD4 00968 

tinCT 0032 C0294 00358, R 00720, ¥ 00739, M Ollll.M 

tIRFC 0C2C C02R8 00523,8 

4I2CO 00R3 00483 00262, R 00494, B 

$1205 0OR8 C0489 C0967.R 

41210 OOBA 00490 00484, M 00405, M 00486, N 

$1290 00C2 00495 00487, M 00493, R 

tI4CC C0C4 00515 0026.4, R 00534, B 

$i403 OODO 00525 00522, B 

41405 00C3 C0529 CC968.R 

$1410 00D5 00530 00517, M 00518, M 00519, M 

$1420 00E6 00552 

$1425 OOEA 00555 C0554.B 

$1490 OOOE 00540 00516, M 00533, R 

$1492 OOEO 00541 00520, R 

41494 00E2 00544 00526, R 

$1496 00E4 00549 00553, R 00972, R 

$1499 006E 00365 00361, R 

4KCSW 007C 00381 

$LAST 0033 00295 

$LEV0 0008 00260 

4LEV1 0009 00261 

$LEV2 OOOA 00262 01100, M 

$LEV3 OOOB 00263 

4LEV4 OOOC 00264 

4LEV5 COOD 00265 

4L1NK 0039 00307 00338, R 

4LKNM 0014 00960 C0344.M 

4LNXQ 0070 00367 

4LSAC 0075 00374 

4NDUP 0034 00296 

4NXEQ 0035 00297 

4PAUS OOFO 00970 

4PBSY 0036 00298 

4PGCT 0037 00299 

$PHSE 0078 00377 

4PRET 0028 00283 00285, B 00734,6 

$PST1 0081 00389 00391, B 

4PST2 0085 00395 00397,8 00669, B 

4PST3 0089 00401 C0403,B 

4PST4 0080 00407 00409,B 

4RWSW 0016 00961 00337.M 

4RWCZ C0F1 00971 

4SCAN 0020 00277 

4SCAT 0011 00271 C0359.R 

4SNIT OOFF 00969 

4SS1S 0060 00364 00322, M 

4ST0P C091 00414 00265.R 00416, B 

4SYSC OOEO C0542 

4SCC0 0052 C0336 CC3C3.B 

4S10C 0053 00337 00309,6 00329, B 

4S150 0059 00343 00966, R 

4S2C0 CC5E 00347 

4S250 0065 00357 00321, B 00345, B 00349,6 00362, B 

4S300 0066 0C358 CC360.B 

4S90C 003C 00311 00326, R 0032H.R 

4S910 003E C0314 00336, R 

4UFCR C07C C0382 

4UFI0 0079 00378 

4ULET C02D C0289 

4WR0L 007B 00380 

4WSDR C07A 00379 

4XR3X 0CE4 00972 

4/END OlFO C0PR1 00611, R 00613, R 008e?,R 

4113? 0C7F 00384 

41403 0080 00385 

X? 00F2 00714 00669, B 00775, R 00776, R 00777, M 00779, R 00780, ¥ 00781, R 0078?, M 00783, R 00784, R 00785, M 

00786, R 00787, R 007e8,M 00789, R CC790,P 00791, R 00792, R 00793, M 00816, R 00820, R 00821, R 
00822, « 00823,8 00827, R 00828, M 00829, B 00833, R 00845, R 00848, R 00849, ¥ 00852, R 00854, R 
00855, M 00857, R 00859,6 00863, R 00864, M 00865, R 00867, B 0086R,R 00870, R 00875, M 00876, R 

Y C07F 01027 01090, R 01093, M 01094, R 01095, M 01097, R 01103, ¥ 01104, M 01105, B 01111, M 01113, M 01115, M 

01117, M 01122, B 01126, B 



= ACIN 


001C 





00917 


= ANOU 


0023 





00923 


= BNCU 


C028 





00924 


= CRSW 


COOA 





C0900 


= CIAC 


001B 





00916 


= C!PA 


00 3C 





00928 


= CICN 


0037 





00927 


= CSHN 


C05A 





00934 
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CROSS-REFERENCE 



SYMBOL 


VALUE 


REL 


DEFN 


REFERENCES 


= DBCT 


C006 





C0R96 




= CCSW 


0018 





C0913 




= ECNT 


0021 





00922 




= r- N T Y 


0010 





C0906 




= FCNT 


CC07 





00897 




= FHCL 


00.14 





00909 




= FLET 


C04B 





00931 




= FMAT 


0046 





00930 




= FPAD 


002D 





00925 




= FSZE 


0015 





00910 




= GCNT 


001E 





00919 




= GRPH 


0C1D 


c 


00918 




= JRSW 


COOT 





00899 




= LCNT 


OOOB 





00901 




-LOSH 


OOIF 





00920 




-MOF1 


COOD 





00903 




= MCF2 


COCE 





00904 




= HPSW 


COOC 





00902 




= NAME 


0004 





00895 




= NCNT 


COOF 





00905 




= PCID 


0032 





00926 




= PIC0 


0019 





00914 




= PPTR 


001A 





00915 




= RP67 


0011 





00907 




= SCRA 


0041 





00929 




= SYSC 


C008 





00898 




= TOCR 


0012 





00908 




= UHOL 


0016 





00911 




= ULET 


0050 





00932 




= USZE 


0017 





00912 




= WSCT 


0055 





00933 




= X3SW 


0020 





00921 




•BLCT 


0002 





01012 




•COCV 


0093 





00949 




•CION 


0004 





01029 




•CILl 


OOAO 





00955 


00885, R 


•CIL2 


00A1 





00956 




•CLBO 


0078 





00941 




•CHON 


0001 





00987 




•COMZ 


C3P0 


c 


OlOlfl 




•COM1 


C4C0 





C 1 1 9 




•CCf ? 


0600 


c 


01020 




•COPY 


0005 





01030 




•CORE 


001B 


c 


01000 




•CPTR 


CORE 





00944 




•CCOM 


C001 





C0977 




•CCTB 


C001 


c 


CIC31 




•DKFP 


00F9 





01022 




•CKIP 


00F7 


c 


C1023 




•CNIC 


C098 


c 


CC954 




•RREC 


C002 





00988 




'CTYP 


C0C8 


c 


01C3? 




'CZID 


0096 





00952 


00612, R 


•CUD 


0097 





00953 




■FILE 


CCC3 





C09R9 




•HCIB 


C003 





C1025 




■ HCNG 


C0C7 





C09B1 


CU34.R 


•HENC 


OOIC 





01001 




«HHCT 


C004 


c 


C0990 




' ICAC 


CCCO 





00976 • 




• ILS4 


C011 





C099P 




• ISTV 


0033 





01016 




• ITVX 


COOB 





00997 




•KBCP 


0092 





00948 




•KBCV 


C095 


c 


C0951 




■LCAC 


C006 


c 


0099? 




■ LFEN 


CC03 


c 


01006 




•LFHC 


C005 





01005 




•LFNN 


COOO 





C1011 




■LSCT 


C0C5 


c 


00991 




•fCOR 


1C00 





C10?6 




•^CRA 


C06E 


c 


C0938 




'fXDR 


C005 





01017 




■NEXT 


C004 





01010 




•cvsw 


C01A 





00999 




'PTCV 


0094 





C0950 




•RIAC 


0002 


c 


00978 


CU36.R 


•RTBL 


C006 





00980 




' SC I e 


0010 





01024 




'SCTN 


COCO 





01C07 




•SLET 


C003 





C0979 




'STRT 


OCCO 


c 


0098? 




« SUP6 


0073 





00939 




■SUP7 


0074 





00940 




'TCNT 


con 





010?l 


C0740.R 


" TVWC 


cooe 





00994 




■UAFX 


COOl 


c 


01008 
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CROSS-REFERENCE 



SYMBOL 


VALUE 


REL 


OEFN 


REFERENCES 


•WCNT 


0009 





00995 




•WDSA 


0003 





01009 




•XCTL 


CC07 





00093 




'XECA 


0000 





009R6 




•XR3X 


COOA 


c 


00996 




•1132 


008C 





00943 




•1134 


0091 





00947 




•1403 


ooec 





009*2 




•1442 


0090 





00946 




•2501 


008F 





00945 





ERROR STATEMENT LINE NUMBERS 

00616 

000 OVERFLOW SECTORS SPECIFIEO 
000 OVERFLOW SECTORS REQUIRED 
269 SVMBOLS OEFINEO 
NO ERROR(S) ANO 001 WARNING) S) 



FLAGGED IN ABOVE ASSEMBLY 
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Appendix H. Monitor System Sample Programs 



Sample programs 1, 2, and 3 are provided with the monitor system. The first is a 
FORTRAN compilation, the second is an assembly, and the third is an RPG compilation 
(RPG is available on the Disk Monitor System, Version 2, card system only). All 3 programs 
are loaded, listed on the principal printer, and processed as monitor jobs. 

The output of the FORTRAN program is printed on the printer specified on the IOCS 
control record. The output of the assembler program is printed on the console printer. 
The output of the RPG program is printed on the printer specified as the output device 
on a file description coding sheet. 

Sample programs 4, 5, 6, and 7 are not provided with the monitor system. These programs ~* 
illustrate techniques described in Chapter 6. "Programming Tips and Techniques." 



FORTRAN SAMPLE PROGRAM 

The FORTRAN sample program is listed as it runs on a 4K and an 8K system (the LIST 
ALL control record is removed for the 8K run). This program reads data cards supplied 
with the program and builds 3 files on disk; one in the user area, and 2 in working storage. 
The core and file maps for the program are described in Chapter 6. 

The FORTRAN card sample program as supplied uses a 1442-6, or -7, and 1 132 Printer, 
and disk. The paper tape sample program uses an 1 134 Paper Tape Reader, a console 
printer, and disk. If your system does not have the required configuration, you must make 
the following changes to the program: 

If printed output is to a 1403 Printer, change the IOCS entry from 1 132 PRINTER to 
1403 PRINTER. 

If printed output is to the console printer, change the IOCS entry from 1 132 PRINTER 
to TYPEWRITER. 



card SMFOR006 



cardSMFOR007 
cardSMFOR023 
cardSMFOR024 



If card input is from a 2501 Reader, change the IOCS entry from CARD to 2501 READER. 

If card input is from a 2501 Reader, change M=2 to M=8. 

If printer output is to a 1403 Printer, change L=3 to L=5. 

If the printer output is on a console printer, change L=3 to L=l . 
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FORTRAN Sample Program Run on 4K 



I.CG DRIVE CART SPEC CART AVAIL PHY DRIVE 
CCOO OEDO OEDO CCOO 



SMFOROOO 



SHFOROOl 



♦STCREDATA WS UA FILEA 2 SMFOR0O2 
CART ID OEDO DB ADCR 2EA0 DB CNT 0C20 

// * IBM 1130 FORTRAN SAMPLE PROGRAM SMF0R003 

// FOR SMF0R004 

*ONE WCRD INTEGERS SMF0R005 

♦ICCSIDISK, 1132 PRINTER) SMF0RO06 

♦ICCS(CARC) SMF0R007 

♦LIST ALL SMF0R008 

C IBM 1130 FGRTRAN SAMPLE PROGRAM SMF0R009 

C SIMLLTANECUS EGUATICN PROGRAM SMF0R010 

C SMF0R011 

INTEGER V1,V2,V3 SMF0R012 

DIMENSION A< 10,10), XUO), 81 126) SMF0R013 

DEFINE FILE 10H 1 , ICO, U, V 1 ) , 102 ( 1 , 10, U, V2 ) , 103( 1 , 100, U , V3 ) SMF0R014 

301 FORMAT ( 1H1.20X15HINCOMPATIBILITY) SMF0R015 

302 FORMAT ( 1H 20X41HMORE EQUATIONS THAN UNKNCWKS-NC SOLUTIONS) SMF0R016 
3C3 FORMAT ( 1H 2CX46HM0RE UNKNOWNS THAN EQUATIONS-SEVERAL SOLUTIONS) SMFOR017 

304 FORMAT ( 1H 20X 15HSCLUT I CN MATRIX) SMF0R018 

305 FORMAT ( 1H 20X8HMATRIX A) SMF0R019 
3C6 FORMAT ( IH 2CX8HMATRIX B) SMF0R020 
3C7 FORMAT ( IH 20X10H A-1NVERSE) SMF0R021 
308 FORMAT (IH 20X24HD I AGON AL ELEMENT IS ZERO) SMF0R022 

M = 2 SMF0R023 

1 = 3 SM.F0R024 

REAC IM.10) SMF0R025 

10 F0RMAT(80H SPACE FOR TITLE SMF0R026 
1 ) SMF0R027 

WRITE (L.10) SMF0R028 

12 FORMAT (6110,20X1 SMF0R029 
REAC (M.12) M1 B M2,L1,L2,N1,N2 SMF0R030 

C SMF0R031 

C Ml = NO. OF ROWS OF A SMFOR032 

C M2 = NO. OF COLS OF A SMF0R033 

C LI = NC. OF ROWS OF X SMFOR034 

C L2 = NC. OF COLS OF X SMFOR035 

C Nl = NC. OF ROWS OF B SMF0R036 

C N2 = NO. OF COLS OF B SMF0R037 

C SMF0R038 

13 FORMAT (7F10. 4,10X1 SMF0R039 
17 FORMAT (10F10.4) SMF0R040 

IF (N2-D63, 64,63 SMF0R041 

64 IF (L2-l)63,65,63 SMF0R042 

65 IF (Ll-M2)63,66,63 SMF0R043 

66 IF (M1-N1)63,11,63 SMF0R044 
63 WRITE (L.301) SMF0R045 

GO TC 2 SMF0R046 

11 N=;M1 SMF0R047 
N=M2 SMF0R048 
IF (M1-M2) 91,14,93 SMF0R049 

91 WRITE (L.302) SMF0R050 

GC TO 2 SMF0R051 

93 WRITE (L.3031 SMF0R052 

GC TO 2 SMF0R053 

14 WRITE (L.305) SMF0R054 
DO 70 1=1, N SMF0R055 
REAC (M,13) (All, J), J=1,N) SMFOR056 
WRITE (L,17) (A(I,J), J=1,N) SMF0R057 
WRITE ( 101' 1) (A( I , J), J=1,N) SMF0R058 

70 CONTINUE ' SMF0R059 

89 FORMAT (F10.4.7CX) SMFOR060 

WRITE (L.306) SMFOR061 

REAC (M,89) (BID, I-l.N) SMF0R062 

WRITE (L,89) (B(I), 1=1, N) SMF0R063 

WRITE ( 102' 1) (B( I ) , 1 = 1, N) SMF0R064 

C SMF0R065 

C INVERSION CF A SMF0R066 

C SMF0R067 

DO 12C K=1,N SMF0R068 

D=A(K„K) SMF0R069 

IF(D)40,200,40 SMF0R070 

40 A(K,KI=1.0 SMF0R071 

00 60 J=1,N SMF0R072 

60 A(K,J)-A(K, Jl/D SMF0R073 

IF(K-N)80, 130,'l30 SMF0R074 

80 IK=K+1 SMF0R075 

DO 120 I=IK,N SMF0R076 

D=A(I„K) SMF0R077 

A1I,K)=0.0 SMF0R078 

DO 120 J=1,N SMFOR079 

120 A( I ,J]I = A( I, J)-(D*A(K, J) ) SMF0R080 



H-2 



FORTRAN Sample Program 
run on 4K 



BACK SCLUTICN 

130 IK=N-1 

DO 180 K=l, IK 

I 1 = K+ 1 

CC 180 1=11, N 

D=A(K,I ) 

A(K, I )=0.0 

DO 180 J=1,N. 
180 A(K,J)=A(K,J)-(C*A( I,J) ) 

GO TO 202 

200 WRITE !L,308> 
GC TC 2 

202 WRITE (L.307) 
DC 201 1=1, N 
WRITE (L,17) 
WRITE (103«1) (All, J), 

201 CONTINUE 

DO 21 I=1,N 
XI I )=0.0 
DO 21 K=1,N 
21 X( I ) = Xd )+A( I,KI*B|K) 
WRITE (L.304) 

WRITE (L.89) (X(I), 1=1, N) 
2 CALL EXIT 
END 



(All, J), J=1,N) 
J=1,N) 



VARIABLE ALLGCATICNS 
AIR )=00CC-0016 

V3(I )=01F2 

L2(l )=01F8 
K(I )=01FE 



X(R >=00F0-00DE 

Md )=01F3 

Mil )=01F9 

IKII )=01FF 



B(R )=01EC-00F2 

1(1 )=01F4 

N2(I )=01FA 

11(1 )=02C0 



SMF0R081 
SMF0R082 
SMF0R083 
SMF0R084 
SMF0R085 
SMF0R086 
SMF0R087 
SMF0R088 
SMF0R089 
SMF0R090 
SMF0R091 
SMF0R092 
SMF0R093 
SMF0R094 
SMF0R095 
SMF0R096 
SMF0R097 
SMF0R098 
SMF0R099 
SMF0R100 
SMF0R101 
SMF0R102 
SMF0R103 
SMF0R104 
SMF0R105 
SMF0R106 
SMFOR107 



0(R )=01EE 

Mid ) = 01F5 

N(I )=01F6 



VIII )=01F0 

M2II )=01F6 

Id )=01FC 



V2(I )=01F1 

Lid )=01F7 

Jd )=01FD 



STATEMENT ALLCCATICNS 

301 =02CE 302 =0216 303 =0235 304 =0251 305 =025E 306 =0267 307 =0270 308 =027A 

13 =0289 17 =02BC 89 =02C0 64 =0300 65 =0306 66 =03CC 63 =0312 11 =0318 

14 =0334 70 =0386 40 =03EB 6C =03FA 80 =0416 120 =0435 130 =0468 180 =0491 
201 = 05C6 21 =0520 2 =056C 



10 =0288 12 =02B5 
91 =0328 93 =032E 
200 =04C6 202 =04CC 



FEATURES SUPPCRTED 
CNE WCRD INTEGERS 
ICCS 

CALLEC SUBPROGRAMS 
FACDX FMPYX FDIV FLD FLDX FSTO FSTOX FSBRX CAROZ PRNTZ SRED SWRT SCOMP SFIO SIOFX 
SIOI SUBSC SDFIC SDWRT SDCOM SDFX 

REAL CONSTANTS 

•10COOOE 01=0204 .OOCCOOE 00=0206 

INTEGER CONSTANTS 

2=0208 3=0209 1=020A 101=02CB 102=020C 103=020D 

CCRE REQUIREMENTS FOR 
COMMON VARIABLES 516 PROGRAM 874 

END OF COMPILATION 
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// XEC L 2 SMF0R108 

♦LCCAL.FLCAT.FARC, I F I X , P AUSE , HOLEZ SMFOR109 

*FILES(l03tFILEA> SMFURllO 

FILES ALLCCATICN 

1C3 02EA CC01 OEDC FILEA 

101 COOC OCOI OEOO 02EC 

102 C001 OCOI OECO 02EC 
STCRAGE ALLCCAUCN 

« 4C 03BF (HEX) ACOITICNAL CCRE REOUIRO 
R A3 0124 (HEX) ARITH/FUNC SCCAL WO CM 
R 44 06B2 (HEX) FI/C, I/C SOCAL \*0 CNT 
R 45 02B6 (HEX) CISK FI/C SCCAL HO CNT 
R 41 C004 (HEX) hCS UNUSEC BY CORE LCAC 
LIBF TRANSFER VECTCR 

XPCS 09AA SCCAL 1 

EBCTB 0F51 SCCAL 2 

HCLTB 0F15 SCCAL 2 

GETAC 0E02 SCCAL 2 

NORf 7C0 

FACDX 0955 SCCAL 1 

FSBRX 092C SCCAL 1 

FPPYX 08F8 SCCAL 1 

FCIV 08A6 SCCAL 1 

FSTCX 076C 

FLCX 07G8 

SCCCf 0978 SCCAL 3 

SDFX 08E3 SCCAL 3 

SDV.RT 0901 SCCAL 3 

SICFX 09A6 SOCAL 2 

SUBSC 07A2 

SICI 09AA SCCAL 2 

SCCHP 0983 SCCAL 2 

SV.RT 08A2 SCCAL 2 

SRED 08A7 SCCAL 2 

FSTO 0770 

FLO 078C 

PRNTZ 0CF8 SOCAL 2 

CARDZ 0C48 SCCAL 2 

SFIO 09BF SCCAL 2 

SCFIC 0960 SCCAL 3 

HCLEZ 086A LOCAL 

PAUSE 086A LOCAL 

IFIX 086A LOCAL 

FARC 086A LOCAL 

FLCAT 086A LOCAL 
SYSTEM SUBROUTINES 

ILS04 0CC4 

US02 0CB3 

ILS01 0F56 

ILSOO 0F6F 

FLJPR 0804 

04C1 (HEX) IS THE EXECUTION ADDR 

IBM 1130 FORTRAN SAMPLE PROGRAM SMF0R111 

MATRIX A 
4.2190 -1.2120 1.1090 
-2.1200 3.9090 -1.6320 
1.1220 -1.3130 3.9660 

MATRIX B 
3.2160 
1.2470 
2.3496 

A-INVERSE 
0.2919 0.0833 -0.0467 
0.1631 0.3836 0.1118 
-0.0283 0.1029 0.3008 



0.9321 

1.2694 
0.7429 



SOLUTION MATRIX 
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FORTRAN Sample Program 
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// JOB T 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 2222 2222 0002 

V2 Mil ACTUAL 8K CONFIG 8K 

// DUP 

♦STOREDATA WS UA FILEA 2 

CART ID 2222 DB ADOR 53B0 08 CNT 0020 

// * I Bf 1130 FORTRAN SAMPLE PROGRAM 

// FOR 

♦ONE WORD INTEGERS 

*IOCS(OISK, 1132 PRINTER) 

♦IOCS(CARO) 

♦ LIST ALL 

C IBM 1130 FORTRAN SAMPLE PROGRAM 

C SIMULTANEOUS ECUATICN PROGRAM 



SAMPLE 



INTEGER V1,V2,V3 

DIMENSION AI10,10),X(10),BI126) 

DEFINE FILE 10 1 ( 1, 1CCU.V 1 ) , 1021 1. 10, Ut V2 ) 1 103C 1 1 100, Ut V3) 

301 FORMAT ( 1H1 , 20X 1 5HINC0MPAT IP IL I TY ) 

302 FORMAT ( 1H 20X41HM0RE EQUATIONS THAN UNKNCWNS-NO SOLUTIONS) 

303 FORMAT ( 1H 20X46HM0RE UNKKCWNS THAN EQUATIONS-SEVERAL SOLUTIONS) 

304 FCRMAT ( 1H 20X15HS0LUT ION MATRIX) 

305 FORMAT ( 1H 20X8HMATRIX A) 

306 FORMAT ( 1H 20X8HMATRIX B) 

307 FORMAT ( IH 20X10H A-INVERSE) 

308 FORMAT ( IH 20X24HD I AGONAL ELEMENT IS ZERO) 
M = 2 

L = 3 

REAC (M,10> 
10 FCRMATI80H 
I 

V.RITF (L,10) 
12 FORMAT (6110, 2CX) 

READ (M,12) Ml, M2, LI, L2.N1.N2 



SPACE FOR TITLE 
) 



Ml 
M2 
LI 
L2 

Nl 
N2 

13 FC 
1/ FC 



NC. 
NC. 
NO. 
NO. 
NC. 
NC. 



CF ROWS CF 

CF CCLS CF 

CF RChS OF 

CF COLS OF 

CF ROWS CF 

CF CCLS OF 



RMAT (7F10. 4,10X1 
RMAT (10F10.4) 
IF (N2-1 163,64,63 

64 IF (L2-1 163,65,63 

65 IF (Ll-M2)63,66,63 

66 IF (M1-M163, 11,63 
63 WRITE (L.301 > 

GC TC 2 
11 N = M1 
N = M? 

(M1-M2) 91,14,93 
ITE U.302) 

TC 2 
I T b ( L , 30 i 1 

T( 2 
ITE (L^Ob) 



IF 

91 WR 
GC 

93 WH 
GC 

14 WR 
DC 
RE 
WR 
kR 

70 CC 

89 FO 
V«R 
RE 
WH 
UK 



7C 1 = 1, N 



AC (M,li) (A( I, J), J«1,N) 

ITE (L.17) (AI I, J), J*1,N) 

ITE ( 1C1 • 1) (All, J), J=l,Nl 

NTlNUt 

RMAT (F10.4,70X) 

ITE (L,306) 

AC (M,89) (BID, 

ITE (L,89) (B(I), 

ITE (102* 1)IB( I), 



IM.N) 
I-l.NI 

I-l.NJ 



INVERSION UF A 



CC 120 K=1,N 

D=A(K,K) 

IF(C)40, 200,40 
40 A(K,K)=1.0 

CO 6C J=l,N 
60 A(K,J)»A1K, J)/C 

IF(K-N)80,130,130 
80 IK=K41 

DC 120 I=IK,N 

C»AU,K) 

A( I ,K)=0.0 

CO 120 J«l,N 
120 AU,JI«A(I, J)-(C*A<K,J)) 



SMFOROOO 



SXFOROOl 
SMFOR002 

SMFOR003 

SKF0R004 
SKF0R005 
SMF0R006 
SMF0R007 
SMF0R008 
SHFOR009 
SMFOR010 
SMF0R011 
SHFOR012 
SMF0R0L3 
SHFOR014 
SNF0R015 
SMF0R016 
SMF0R017 
SMF0R018 
SKF0R019 
SMF0R020 
SMF0R021 
SMF0R022 
SMF0R023 
SMF0R02A 
SMF0R025 
SMFCR026 
SMFOR027 
SMF0R028 
SMF0R029 
SMFCR030 
SHF0R031 
SMF0R032 
SMF0R033 
SMF0R034 
SMF0R035 
SMFOR036 
SMFCR037 
SMF0R038 
SMF0R039 
SMFOR040 
SMF0R041 
SMF0R042 
SMF0R043 
SMF0R044 
SMF0R045 
SMF0R046 
SMF0RC47 
SMF0R048 
SMF0R049 
SMF0R050 
SMFOR051 
SMFCR052 
SMF0R053 
SMF0R054 
SMF0R055 
SMF0R056 
SMF0R057 
SMF0R058 
SMF0R059 
SMF0R060 
SMF0R061 
SMFOR062 
SMFCR063 
SMF0R064 
SMFOR065 
SMF0R066 
SMF0R067 
SMF0R068 
SMF0R069 
SMFOR070 
SMF0R071 
SMF0R072 
SHFOR073 
SMFCR074 
SMFOR075 
SMFOR076 
SMF0R077 
SMF0R078 
SMF0R079 
SMFOR080 
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run i 


on 8K 














SHFGR081 












C 






C 


BACK SOLUTION 














SHF0R082 












C 
















SHF0R083 












130 


IK=N-l 

CC 160 K-l, IK 

Il=K+l 

oo leo i = u, n 

C = A(K,I ) 
A(K, I 1-0.0 
CO 180 J = 1,N 














SHF0R084 
SKF0R085 
SHF0R086 
SKFOR087 
SHF0R088 
SPF0R089 
SPF0R090 












180 


A(K,J)=A(K, J)-(0*A( I, J)! 
GO TC 202 














SMF0R091 
SAF0R092 












200 


WRITE (L,308) 
GO TO 2 














SKF0R093 
SKFOR094 












202 


WRITE (L.307) 

CC 201 I-l.N 

WRITE (L,17> (Ad. J), J-l,NI 

WRITE (103*1) IMIiJli J-l.NI 














SHF0R095 
SMF0R096 
SAF0R097 
SHFQR098 












201 


CONTINUE 
00 21 1*1, N 
X( I) =0.0 
DO 21 K=1,N 














SHFOR099 
SKF0R100 
SHF0R101 
SHF0R102 












21 


Xllt )-X(I)+A(I,K)*B<K) 

WRITE (L.304) 

WRITE (L,89) (X(I), 1=1, N) 














SHFOR103 
SMFCR104 
SKF0R105 












2 


CALL EXIT 

ENO 














SNF0R106 
SMF0R107 












VARIABLE ALLOCATIONS 


























i 


MR )=00DC-0016 X(R )=COFO- 


OODE 


B(R 


)»01EC- 


-00F2 




D(R )- 


01EE 


VIII 


I-01F0 




V2f I 


)-01Fl 


V3U >«01F2 Mil 1-C1F3 




L( I 


J-01F4 






Kill >- 


01F5 


M2M 


I-01F6 




LIU 


I-01F7 


L2U )=01F8 NUI 1-01F9 




N2( I 


1-01FA 






N(I »- 


OlFB 


Id 


I-OIFC 




JII 


J-OIFO 


1 


<(I 1-01FE IK( I 1-01FF 




IK I 


1-0200 




















STATEMENT ALLOCATIONS 


























301 


-020E 302 -021B 303 -C235 


304 


"0251 


305 •( 


D25E 


306 


-0267 


307 -0270 


308 


-027A 


10 


-028B 


12 -il 


13 


=02B9 17 -02B0 89 =C2C0 


64 


= C300 


65 -I 


D306 


66 


-030C 


63 -0312 


11 


-0318 


91 


-0328 


93 


14 


-0334 70 -0386 4C -C3EB 


60 


-03FA 


80 -1 


3416 


120 


-0435 


130 -0468 


180 


-0491 


200 


-04C6 


202 > 


201 


-0506 21 =0520 2 -C56C 



























02BS 
032E 



FEATURES SUPPCRTED 
ONE WCRO INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
FAODX FMPYX FOIV FLD FLDX FSTO 
SIOI SUBSC SOFIC SCWRT SCCOM SDFX 



REAL CONSTANTS 

-100COOE 01=0204 



.CCCCOOE C0=C206 



FSBRX CARCZ PRNTZ SRED 



SWRT 



SCOHP SF10 



SIOFX 



INTEGER CONSTANTS 

2=C208 3=0209 1=C20A 101=0208 102=020C 1C3-020D 

CORE RETIREMENTS FOR 
COMMON VARIABLES 516 PROGRAM 874 

END OF COMPILATION 
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// XEQ 




L 2 


•LOCAL, 


FLOAT, 


FARC, IFIX, PAUSE, HCLE 7, FLO 


*FILES(103,FILEA) 


FILES ALLOCATION 


103 C53B CCOl 2222 FILEA 


101 COOO 0001 2222 0530 


102 COOl CCOl 2222 0530 


STORAGE 


; ALLOCATION 


R 41 0C42 (HEX) WDS UNUSEC BY CORE LCAD 


LIBF TRANSFER 


t VECTOR 


XMOS 


1244 




EBCTB 


1241 




HOLTB 


12C5 




GETAO 


11C2 




NORM 


1198 




FADDX 


1143 




FSBRX 


111A 




FMPYX 


10E6 




FDIV 


1086 




FSTOX 


12F4 


LOCAL 


FLDX 


1310 


LOCAL 


SDCOM 


0842 




SOFX 


07A0 




SDWRT 


07CB 




SIOFX 


0e2A 




SUBSC 


1064 




SIOI 


082E 




SCOMP 


0B06 




SMRT 


0A22 




SRED 


0A27 




FSTO 


12F8 


LCCAL 


PRNTZ 


0F7C 




CAROZ 


OECC 




SFIO 


0B43 




SDFIO 


082A 




FLD 


1314 


LOCAL 


HOLEZ 


12F4 


LOCAL 


PAUSE 


12F4 


LOCAL 


IFIX 


12F4 


LOCAL 


FARC 


12F4 


LOCAL 


FLOAT 


12F4 


LOCAL 


SYSTEM 


SUBROUTINES 


ILS04 


C0C4 




ILS02 


00E3 




ILS01 


132C 




ILSOO 


1345 




FLIPR 


128E 




04C1 (HEX) IS THE EXECUTION AODR 



SKFCR108 
SMF0R109 
SMFCRUO 
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2. ASSEMBLER SAMPLE PROGRAM 



The core map printed with the assembler sample program is described in Chapter 6. 
"Programing Tips and Techniques." 



output on 
the principal 
printer 



// JOB 



SMASM101 



LCG DRIVE 
0000 



CART SPEC 
OEDO 



CART AVAIL PHY DRIVE 
OEDO 0000 



V2 P09 



ACTUAL 32K CONFIG 32K 



// ASM 

♦ LIST 

*PRINT SYMBOL TABLE 



SMASM102 
SMASM103" 
SMASM104 



COMPUTE THE SCUARE ROOT OF 64 









C0001 


#***#+**#*#***+****#***********#*+**+***#**#*#+**** 


SMASM106 








CC002 


* 






* 


SMASM107 








CC003 


* THIS PROGRAM COMPUTES THE SQUARE ROOT OF 64 * 


SMASM108 








OC004 


* *ANC PRINTS THE RESULT IN THE CONSOLE PRINTER.* 


SMASM109 








0000*5 


* 






* 


SMASM110 








CC006 


**♦***********#***#**** + ******#*#******<.*********** 


SMASM111 


CCCC 





C030 


CC007 


BEGIN 


LD 


D64 


INPUT TO THE SQUARE ROOT 


SMASM112 


occi 


20 


064D6063 


CG0C8 




LIBF 


FLOAT 


INTEGER TO FLOATING PT. 


SMASM113 


0002 


30 


06898640 


C0009 




CALL 


FSQR 


FLOATING PT. SQRT. 


SMASM114 


CCC4 


20 


0918S9CC 


C0010 




LIBF 


IF IX 


FLOATING PT. TO INTEGER 


SMASM115 


0C05 





1008 


CC011 




SLA 


8 




SMASM116 








CC012 


* 




MASK TC 


BUILD EBCDIC INTEGER 


SMASM117 








CC013 


* 




RESULT / 


*NC EBCDIC BLANK Ih W0RD1. 


SMASM118 


CC06 





E829 


CC014 




OR 


MASK 




SMASM119 


0CC7 





DC1B 


CC015 




STO 


WCRD1 


CONVERSION INPUT AREA 


SMASM120 








00016 


* 




CCNVERT 


MESSAGE FROM EBCDIC 


SMASM121 








C0017 


* 




TC ROTATE/TILT CODE. 


SMASM122 


0008 


20 


05097663 


CC018 




LIBF 


EBPRT 


CALL CONVERSION SUBROUTINE 


SMASM123 


0C09 





OCOO 


CC019 




DC 





CONTROL PARAMETER 


SMASM124 


OCOA 


1 


0C23 


CC02C 




DC 


WCRD1 


INPUT AREA 


SMASM125 


OCCB 


1 


0015 


CC021 




DC 


TYPE+1 


OUTPUT AREA 


SMASM126 


OCCC 





OOIA 


C0022 




DC 


26 


CHARACTER COUNT 


SMASM127 


OCCC 


20 


23A1717C 


C0023 




LIBF 


TYPEO 


TYPE MESSAGE 


SMASM128 


OCCE 





2C00 


CC024 




DC 


/2C00 


CONTROL PARAMETER 


SMASM129 


OCCF 


1 


0C14 


CC025 




DC 


TYPE 


I/O AREA 


SMASM130 


0010 


20 


23A17170 


C0026 


BUSY 


LIBF 


TYPEO 


WAIT FOR TYPING COMPLETE 


SMASM131 


0C11 





CCOO 


C0027 




DC 






SMASM132 


0012 





7CFD 


CC028 




MDX 


BUSY 


BR TO WAIT FOR COMPLETION 


SMASM133 


0013 





6038 


C0029 




EXIT 




RETURN TO MCMTCR CCNTROL 


SMASM134 


0014 





OCOE 


CC030 


TYPE 


DC 


14 


I/O AREA WORD COUNT 


SMASM135 


0C15 




CCOC 


C0031 




BSS 


13 


RESERVE AS PRINT BUFFER 


SMASM136 


0022 





8181 


CC032 




DC 


/8181 


TWO CARRIAGE RETURNS 


SMASM137 


0C23 





CCOO 


CC033 


W0RC1 


DC 


*-* 


CONVERSION INPUT AREA 


SMASM138 


0024 




0C18 


CC034 




EBC 


.IS THE 


SQUARE RCOT OF 64. 


SMASM139 


C030 





FC40 


CC035 


MASK 


DC 


/F040 


EBCCIC INTEGER MASK 


SMASM140 


0031 





0040 


00036 


064 


DC 


64 


CONSTANT FOR SCUARE RCOT 


SMASM141 


0032 




OCCO 


C0037 




END 


BEGIN 




SMASM142 
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Assembler Sample Program 



BEGIN 0000 
W0RD1 0023 



♦SYMBOL TABLE* 
BUSY OOIC D64 0031 



KASK 0030 



TYPE 



0014 



COO OVERFLOW SECTORS SPECIFIED 

COO OVERFLOW SECTORS REQUIRED 

C06 SYMBOLS DEFTNEC 

NC ERRCR(S) AND NO WARNINGfS) 



FLAGGED IN ABOVE ASSEMBLY 



/■/ XEC 


L 


R 41 7908 (HEX) WDS UNUSED BY CORE LOAD 


CALL TRANSFER VECTOR 


FSCR 


0248 


LIBF TRANSFER VECTOR 


FARC 


069A 


XFCS 


067E 


HGLL 


062E 


PRTY 


05DE 


EBPA 


058E 


FACO 


04CD 


FDIV 


053C 


FLO 


0488 


FACDX 


04E3 


FKPYX 


049E 


FSTO 


046C 


FGETP 


0452 


NORM 


0428 


TYPEO 


0312 


EBPRT 


02AC 


IF IX 


0280 


FLOAT 


0230 


SYSTEM 


SUBROUTINES 


ILS04 


0CC4 


ILS02 


00B3 


01FE (HEX) IS THE EXECUTION ADDR 



SMASM143 



output on 
the console 
printer 



8 IS THE SQUARE ROOT OF 6d 



H-8 



RPG Sample Program 



3. RPG SAMPLE PROGRAM 



card RGS009 
card RGS010 



The RPG program as supplied, uses 1442 input and 1 132 output. If your system does not 
have the required configuration, you must make the following changes to the program: 

If card input is from a 2501 Card Reader, change READ42 to READ01. 

If printed output is to a 1403 Printer, change PRINTER to PRINT03. If printer output is 
on the console printer, change PRINTER to CONSOLE. 



output on 


// JOB 




principal 
printer 


LOG DRIVE CART SPEC CART AVAIL 
0000 OEDO OEDO 

0ED4 

V2 M09 ACTUAL 32K CONFIG 32K 

// RPG 


PHY DRIVE 
0000 
0001 



Vl-3 1130 RPG 



RGSPL 



SEQ NO PG LIN 



SPECIFICATIONS COL 6-74 



ERRORS 









H 




















RGSPL 








F» 


113C 


) RPG SAMPLE PROGRAM. 










RGS001 








F# 


THIS 


> PROGRAM 


PRINTS AN ACCOUNTS RECEIVABLE REGISTER 


WITH 


RGS002 








F# 


INVOICE 


TOTALS • CUSTOMER TOTALS PRINT 


AS A RESULT 


OF A CONTROL 


RGS003 








F* 


BREAK IN COLUMNS 39-43 OF THE 


INPUT 


CARD. CORRECT OUTPUT 


RGS004 








F* 


APPEARS 


IN ACCOMPANYING DOCUMENTATION. 


CARDS ARE SORTED ON 


RGS005 








F* 


COLUMNS 


39-43 


AND ARE 


IDENTIFIED BY 


AN 


ELEVEN PUNCH 


IN CARD 


RGS006 








F* 


COLUMN ] 


L. 














RGS007 








F# 




















RGS008 


0001 


01 


010 


FINPUT 


IPE F 


80 




READ42 






RGS009 


0002 


01 


020 


FOUTPUT 





F 


120 


OF 


PRINTER 






RGS010 


0003 


02 


010 


I INPUT 


AA 


01 


1 Z- 












RGS011 


0004 


02 


020 
















8 


29 NAME 




RGS012 


0005 


02 


030 
















30 


310MONTH 




RGS013 


0006 


02 


040 
















32 


330DAY 




RGS014 


0007 


02 


050 
















34 


360INVNO 




RGS015 


0008 


02 


060 
















39 


430CUSTNOL1 




RGS016 


0009 


02 


070 
















44 


450STATE 




RGS017 


0010 


02 


080 
















46 


480CITY 




RGS016 


0011 


02 


090 
















74 


802 INVAMT 




RGS019 


0012 


03 


010 


C 


01 




INVAMT ADD 


TOTAL 


TOTAL 


82 




RGS020 


0013 


03 


020 


c 


01 




INVAMT ADD 


GRPTOT 


GRPTOT 


82 




RGS021 


0014 


04 


010 


OOUTPUT 


H 


201 


1P 












RGS022 


0015 


04 


020 







OR 




OF 












RGS023 


0016 


04 


030 















53 


i 


A C C U 


NTS R« 


RGS024 


0017 


04 


040 















77 


• E 


C E I V A B 


L E RE' 


RGS025 


0018 


04 


050 















88 


•R E 


G I S T E R 


i 


RGS026 


0019 


04 


060 







H 


1 


IP 












RGS027 


0020 


04 


070 







OR 




OF 












RGS028 


0021 


04 


080 















25 


•CUSTOMER* 




RGS029 


0022 


04 


090 















80 


•LOCATION 


INVOICE' 


RGS030 


0023 


04 


100 















109 


•INVOICE DATE 


INVOICE' 


RGS031 


0024 


04 


110 







H 


2 


IP 












RGS032 


0025 


04 


120 







OR 




OF 












RGS033 


0026 


04 


130 















42 


•NUMBER 


CUSTOMER • 


RGS034 


0027 


04 


140 















46 


•NAME' 




RGS035 


0028 


04 


150 















79 


•STATE CITY 


NUMBER' 


RGS036 


0029 


04 


160 















108 


•MO 


DAY 


AMOUNT • 


RGS037 


0030 


05 


010 







D 


2 


01 












RGS038 


0031 


05 


020 













CUSTNOZ 


22 








RGS039 


0032 


05 


030 













NAME 


53 








RGS040 


0033 


05 


040 













STATE Z 


59 








RGS041 


0034 


05 


050 













CITY Z 


67 








RGS042 


0035 


05 


060 













INVNO Z 


79 








RGS043 


0036 


05 


070 













MONTH Z 


89 








RGS044 


0037 


05 


080 













DAY Z 


97 








RGS045 


0038 


05 


090 













INVAMT 


109 


•$ 


t 0* • 




RGS046 


0039 


05 


100 







T 


2 


LI 












RGS047 


0040 


05 


110 













GRPTOT E 


109 


•$ 


» 0. • 




RGS048 


0041 


05 


120 















110 


• #• 






RGS049 


0042 


05 


130 







T 


2 


LR 












RGS050 


0043 


05 


140 













TOTAL 


109 


•$ 


* 0. • 




RGS051 


0044 


05 


150 















111 


•«*• 






RGS052 
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RPG Sample Program 



IND 



DISP 



IND DISP 



INDICATORS 
IND DISP IND DISP 



IND 



DISP 



IND DISP 



MR 


0150 


00 


0151 


OF 


0152 


OV 


0153 


IP 


0154 


LO 


0155 


LI 


0156 


L2 


0157 


L3 


0158 


L4 


0159 


L5 


015A 


L6 


015IJ 


L7 


015C 


L8 


015D 


L9 


015E 


LR 


015F 


HI 


0160 


H2 


0161 


H3 


0162 


H4 


0163 


H5 


0164 


H6 


0165 


H7 


0166 


H8 


0167 


H9 


016S 


01 


0169 



















FIELD 



DISP L T D 



NAME 


016A 


022 


A 




CUSTNO 


018D 


005 


N 





TOTAL 


01A2 


008 


N 


2 



FIELD NAMES 

FIELD DISP LTD FIELD DISP LTD 

MONTH 0181 002 N DAY 0184 002 N 
STATE 0193 002 N CITY 0196 003 N 
GRPTOT 01AB 008 N 2 



FIELD DISP LTD 

INVNO 0187 005 N 
INVAMT 019A 007 M 2 



LITERAL 
A C C U N 
REGISTER 
LOCATION 
NUMBER 
STATE CITY 



INVOICE 
CUSTOMER 

NUMBER 



LENGTH 
24 
15 
22 
24 
24 
11 
2 



TYPE 
A 
A 
A 
A 
A 
E 
A 



LITERALS 

DISP 
01B4 
01E6 
01FF 
022E 
024C 
027B 
0289 



LITERAL 
ECEIVABLE RE 
CUSTOMER 

INVOICE DATE INVOICE 
NAME 
MO DAY AMOUNT 



LENGTH 
24 

8 
23 

4 
21 

1 



TYPE 
A 
A 
A 
A 
A 
A 



DISP 
01CD 
01F6 
0216 
0247 
0265 
0267 



NAME OF ROUTINE 



H H 


■ D LINES 


04DE 


DETAIL CALCS 


046E 


CHAIN ROUT 1 


03D2 


LOW FIELD 


042E 


CLOSE FILES 


067B 


FILE SEQ 2 


0377 


END OF 


COMPILATION 




// XEQ 


L 


R 


R 41 6D16 (HEX) WDS 


UNUSED BY CORE LOAD 


CALL TRANSFER VECTOR 




RGERR 


0C24 




HLEBC 


0A1A 




LIBF TRANSFER VECTOR 




RGSI5 


11E4 




RGBLK 


11AA 




RGEDT 


105A 




RGMV2 


0FA6 




RGADD 


ODDD 




RGSU 


0D80 




RGMV5 


0C72 




RGMV3 


0D50 




RGCMP 


OCFE 




RGMV1 


0C6A 




PRNT1 


0A9A 




ZIPCO 


097A 




CARDO 


087C 




SYSTEM 


SUBROUTINES 




ILSX4 


1249 




ILSX2 


126D 




ILSX1 


1286 




ILSXO 


12A3 




020F (HEX) IS ' 


l"HE EXECUTION ADDR 



KEY ADDRESSES OF OBJECT PROGRAM 
HEX DISP NAME OF ROUTINE 



TOTAL LINES 
TOTAL CALCS 
CONTROL FLD 
EXCPT LINES 
FILE SEO 1 



HEX DISP 

04EC 
0470 
03F5 
04FA 
02EC 



H-10 



output on 

specified customer 

OUtpUt NUMBER 

device l0712 



11315 
11319 

11897 

18530 
18530 

20716 
20716 

29017 
29017 

29054 
29054 
29054 













RPG Sample Program 


ACCOUNTS 


R E C E I 


V A B L E 


REGISTER 






CUSTOMER NAME 


LOCATION 
STATE CITY 


INVOICE 
NUMBER 


INVOICE 
MO 


DATE 
DAY 


INVOICE 
AMOUNT 


AMALGAMATED CORP 


33 


61 


11603 


11 


10 s 

s 


389*25 
389,25* 


BROWN WHOLESALE 


30 


231 


12324 


12 


28 S 


802*08 


BROWN WHOLESALE 


30 


231 


99588 


12 


14 S 

S 


261.17 
1*063*25* 


FARM IMPLEMENTS 


47 


77 


10901 


10 


18 S 
S 


27.63 
27.63* 


BLACK OIL 


16 


67 


11509 


11 


8 S 


592.95 


BLACK OIL 


16 


67 


12292 


12 


22 S 

S 


950.97 
1*543.92* 


LEATHER BELT CO 


36 


471 


11511 


11 


8 S 


335.63 


LEATHER BELT CO 


36 


471 


12263 


12 


17 $ 
$ 


121.75 
457.38* 


GENERAL MFG CO 


6 


63 


11615 


11 


14 S 


440.12 


GENERAL MFQ CO 


6 


63 


11676 


11 


23 $ 
S 


722.22 
1*162.34* 


A-B-C 01 ST CO 


25 


39 


9689 


9 


11 s 


645.40 


A-B-C 01 ST CO 


25 


39 


11605 


11 


11 s 


271.69 


A-B-C 01 ST CO 


25 


39 


12234 


12 


14 $ 

s 
s 


559.33 
1*476.42* 
6.120.19** 
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FORTRAN Sample Program 
using unformatted I/O 



4. USING FORTRAN UNFORMATTED I/O 



This program is referred to under "Initializing $$$$$ Data Files for Use with FORTRAN 
Unformatted I/O" in Chapter 6. 



// JCG 


OECC 




LCG DRIVE 


CART SPEC CART AVAIL 


PHY DRIVE 


CCOO 


OECO OECC 


COOC 


V2 NC9 


ACTUAL 32K CCNFIG 32K 




// CUP 







*STCREDATA Vv S FX $$$$t COIC 

CART IC CECO C6 ADCR 1F70 DB CNT CCAO 

// FCR 

♦ICCSUCISK ) 
♦LIST ALL 
♦ NA^E UNFCX 

CU'ENSICN A (200) , B(24) ,C(3C0),E( 12),F(3CC) 

CAT A A/200*4.0/,B/24*5.C/,C/300*6.C/ 

WRITE (10)A 

WRITE (10)B 

WRITE (10)C 

ENC FILE 10 

BACKSPACE IC 

BACKSPACE IC 

REACt 1C)F 

REWINC 10 

REAC( IC) 

R E A C ( 1 C ) E 

PALSE SS99 

CALL EXIT 

END 
VARIABLE ALLCCATICNS 

AIR ) = 018E-CCCO B(R ) = 01BE-C190 C(R )=0416-01CU E(R >=0<»2E-0<»18 F(R 1=0686-0430 

FEATURES SUPPCRTEC 
ICCS 

CALLEC SUEPRCGRANS 
URED UWRT UCCNP BCKSP ECF REWNC PAUSE UFIO UICAF 

INTEGER CONSTANTS 

1C = 0688 <5S99=0689 -26215=068A 

CCRE RECLIRENENT5 FCR UNFCX 
CCNPCN C VARIABLES 1672 PROGRAM 52 

ENC CF COPILATICN 

// CUP 

♦STCRE WS UA UNFCX 

CART IC OECO CB ADCR 2E50 DH CNT CC41 

// XEC UNFCX 
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SYSUP Reeling Sample Program 
for one drive systems 

5. PROCESSING ON ONE DISK DRIVE A FILE THAT EXTENDS OVER TWO CARTRIDGES 

This program is referred to under "Reeling" in the section "SYSUP" in Chapter 6. 



// JOB 

LOG DRIVE 
0000 



0ED0 



CART SPEC 
OEDO 



CART AVAIL PHY DRIVE 
OEDO 0000 



V2 M09 ACTUAL 32K CONFIG 32K 

// FOR 

♦NAME LINK2 

♦ IOCSU132 PRINTER) 
♦lOCS(DISK) 

♦ ONE WORD INTEGERS 
•LIST SOURCE PROGRAM 

DIMENSION J<320) 

DEFINE FILE 2 ( 200 t 320 tU tK ) 

K » 1 

L « 

DO 5 I - 1» 199 

L • L + 1 

DO 4 N * It 320 

4 J(N) - L 

5 WRITE <2«K) J 
L « 999 

DO 6 N ■ It 320 

6 JIN) - L 
WRITE (2»K) J 
WRITE OtlO) 

10 FORMAT</» LINK NO. 2 EXECUTED. •/) 
CALL EXIT 
END 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CORE REQUIREMENTS FOR LINK2 
COMMON VARIABLES 334 PROGRAM 

END OF COMPILATION 

// DUP 

♦DUMP WS CD LINK2 

CART ID OEDO DB ADDR 4330 DB CNT 0O0B 

// FOR 

♦NAME LINK1 

♦IOCS(DISKtll32 PRINTER) 
♦ONE WORD INTEGERS 
♦LIST SOURCE PROGRAM 

DIMENSION J(320) 

DIMENSION L(2) 

DEFINE FILE 1 ( 210 t320 tU »K) 

K - 1 

L<2) « 3796 

L(l) « 

M « 

DO 5 I » It 209 

M » M ♦ 1 

DO 4 N ■ It 320 

4 J(N) « M 

5 WRITE (l'K) J 
M « 999 

DO 6 N > It 320 

6 J(N) * M 



142 
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SYSUP Reeling Sample Program 
for one drive systems 

WRITE (l'K) J 
WRITE (3.40) 
40 FORMAT (40H0LINK NO. 1 EXECUTED. CHANGE CARTRIDGES.///) 
PAUSE 1111 
CALL SYSUP (L(2)) 
CALL LINK (LINK2) 
END 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CORE REQUIREMENTS FOR LINK1 
COMMON VARIABLES 336 PROGRAM 180 

END OF COMPILATION 

// DUP 

#STORECI WS UA LlNKl 0001 

♦FlLES(ltDATA.OEDO) 

FILES ALLOCATION 

1 0206 00D2 OEDO DATA 
STORAGE ALLOCATION 

R 41 6B6C (HEX) WDS UNUSED BY CORE LOAD 
CALL TRANSFER VECTOR 

FSYSU 13F1 

FSLEN 1205 

SYSUP 0CA2 
LIBF TRANSFER VECTOR 

NORM 1418 

FLOAT UFA 

IFIX 11CE 

PAUSE 0C8C 

SCOMP 0799 

SWRT 06B8 

SDCOM 04D8 

SDAI 043A 

SDWRT 0461 

SUBSC 0C6E 

FSTO 0C3C 

FLD 0C58 

PRNTZ 0B5E 

SFIO 07D5 

SDFIO 04C0 
SYSTEM SUBROUTINES 

ILS04 O0C4 

ILS02 00B3 

ILS01 1444 

0370 (HEX) IS THE EXECUTION ADDR 
CART ID OEDO DB ADDR 4530 DB CNT OOFO 

// PAUS CHANGE TO CARTRIDGE 0ED4 

// JOB 0ED4 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 0ED4 0ED4 0000 

V2 M09 ACTUAL 32K CONFIG 32K 

// DUP 

•STORECI CD FX LINK2 0001 

•FILES(2»DATA2»0ED4) 

FILES ALLOCATION 

2 01F7 00C8 0ED4 DATA2 
STORAGE ALLOCATION 

R 41 72D8 (HEX) WDS UNUSED BY CORE LOAD 
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SYSUP Reeling Sample Program 
for one drive systems 



LIBF TRANSFER VECTOR 

NORM OCBO 

FLOAT 0CA6 

IFIX 0C7A 

PAUSE 0C64 

SCOMP 0771 

SWRT 0690 

SDCOM 04B0 

SDAI 0412 

SOWRT 0439 

SUBSC 0C46 

FSTO 0C14 

FLD 0C90 

PRNTZ 0B36 

SFIO 07AD 

SOFIO 0498 
SYSTEM SUBROUTINES 

ILS04 00C4 

ILS02 00B3 

ILS01 OCDC 

0362 (HEX) IS THE EXECUTION ADDR 
CART ID 0ED4 OB AOOR 3230 DB CNT OOAO 



// PAUS 

// JOB 

LOG DRIVE 
0000 



CHANGE TO CARTRIDGE OEDO 



OEDO 



CART SPEC 
OEDO 



CART AVAIL 
OEDO 



PHY DRIVE 
0000 



V2 M09 ACTUAL 32K CONFIG 32* 
// XEQ LINK1 

LINK NO* 1 EXECUTED* CHANGE CARTRIDGES* 



LOG DRIVE 
0000 



CART SPEC 
0ED4 



CART AVAIL PHY DRIVE 
0ED4 0000 



LINK NO* 2 EXECUTED* 
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SYSUP Reeling Sample Program 
for multidrive systems 

6. PROCESSING ON TWO DISK DRIVES A FILE THAT EXTENDS OVER TWO CARTRIDGES 

This program is referred to under "Reeling" in the section "SYSUP" in Chapter 6. 

// JOB 0E00 0ED4 

LOG DRIVE CART SPEC CART AVAIL PMY DRIVE 

0000 OEDO OEDO 0000 

0001 QED4 0ED4 0001 

V2 M09 ACTUAL 32SC CONFIG 32K 

// FOR 

•NAME MDEX1 

♦IOCS (DISK) 

•ONE WORD INTEGERS 

•LIST SOURCE PROGRAM 

DIMENSION JO20) 

DEFINE FILE 1 (210 t320tUtK> 

DEFINE FILE 2< 200 t320tUtKK> 

M - 111 

K - 1 

KK '■ 1 

DO 2 N ■ It 320 

2 J(N) « M 

DO 3 I > It 209 

3 WRITE (l'K) J 
M ■ 999 

DO 3 N » It 320 
5 J(N> - M 

WRITE (l'K) J 

M - 222 

DO 7 N ■ It 320 

7 JtN) ■ M 

DO 8 I ■ It 199 

8 WRITE <2'KK) J 
M ■ 999 

DO 9 N » lt320 

9 J(N) » M 
WRITE <2»KK) J 
CALL EXIT 

END 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CORE REQUIREMENTS FOR MDEX1 
COMMON VARIABLES 340 PROGRAM 178 

END OF COMPILATION 

// DUP 

•STORE WS UA MDEX1 

CART ID OEDO DB ADDR 4515 DB CNT OOOD 

// XEO MDEX1 L 2 

•FILES(ltDATAtOEDO) 

»FILE5(2tDATA2tOED4> 
FILES ALLOCATION 

1 0206 00D2 OEDO DATA 

2 01F7 0OC8 0ED4 DATA2 
STORAGE ALLOCATION 

R 41 78FA (HEX) WDS UNUSED BY CORE LOAD 
LIBF TRANSFER VECTOR 

PAUSE 06D8 

SDCOM 04DA 

SDA1 043C 

SDWRT 0463 

SUBSC 06PA 

SOFIO 04C2 
SYSTEM SUBROUTINES 

ILS04 00C4 

ILS02 00B3 

035A (HEX) IS THE EXECUTION ADDR 
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7. CALCULATING ISAM FILE PARAMETERS 

This program is referred to under "Indexed Sequential Access Method" in the section 
"Calculating Sequentially Organized and ISAM File Sizes" in Chapter 6. This program 
does no error checking. 

For this program, you are requested to enter the first 4 values. The input fields are 5 
characters long; enter right-justified decimal numbers (leading zeros are required). Press 
EOF on the console keyboard after each entry. The requests for your entries are as 
follows: 

ISAM FILE LOAD CALCULATIONS 



INDEX ENTRY LENGTH IN WORDS = 

RECORD LENGTH IN WORDS = 

NUMBER OF RECORDS TO BE LOADED = 

NUMBER OF OVERFLOW SECTORS = 

NUMBER OF INDEXES PER SECTOR = 

NUMBER OF RECORDS PER SECTOR = 

NUMBER OF PRIME DATA CYLINDERS » 

NUMBER OF PRIME DATA SECTORS » 

NUMBER OF INDEX SECTORS = 

TOTAL NUMBER OF SECTORS = 

After you enter the number of overflow sectors, the program calculates the file size. The 
following is a sample of the program output: 

ISAM FILE LOAD CALCULATIONS 



INDEX ENTRY LENGTH IN WORDS *= 00010 

RECORD LENGTH IN WORDS = 00100 

NUMBER OF RECORDS TO BE LOADED = 00250 

NUMBER OF OVERFLOW SECTORS = 00009 

NUMBER OF INDEXES PER SECTOR = 00032 

NUMBER OF RECORDS PER SECTOR = 00003 

NUMBER OF PRIME DATA CYLINDERS =* 00011 

NUMBER OF PRIME DATA SECTORS = 0008U 

NUMBER OF INDEX SECTORS =00001 . 



TOTAL NUMBER OF SECTORS =00095 

The program that computes file size is listed as follows: 
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// JCB 



LCG ( 


;rive cart 


SPEC 


CART AVAIL 1 


PHY DRIVE 






CCOC 


CEC1 


CEC1 




COCO 






// ASM 
















*XREF 
















CCCC 


2C 


23A1717C 


CCCC1 


START 


L IBF 


TYPEO 




ISM00010 


ocni 


o 


2CC0 


CC0C2 




CC 


/2C00 


TYPE HEADING LINE 


ISMC0020 


CC02 


1 


CC1B 


CC003 




CC 


FEAC 




ISM00030 


CCC3 


2C 


23A17170 


CCCC4 


^ A I T A 


LIBF 


TYPEO 




ISMC0040 


0CC4 





CCCC 


CC005 




DC 


/CCCO 


WAIT FOR CONSOLE 


ISMC0050 


CCC5 


C 


7CFC 


CC006 




E 


WAIT4 




ISM00060 


CCC6 


CC 


65C00C0A 


CC0C7 




LCX 


LI A 


SET COUNT 


ISMC0070 


OCC8 


01 


C5CC0C16 


CC008 


IN 


LC 


LI BTABL 


LOAD ADDR CF MESSAGE 


ISMC0080 


OCOA 





CCC2 


CC009 




STU 


MESS 


STCRE FOR SUBROUTINE 


ISMC0090 


occe 


20 


23A1717C 


CC010 




LIBF 


TYPEO 




1SMC0100 


occc 


c 


2CCC 


CC011 




CC 


/2CC0 


TYPE MESSAGE 


ISMC0110 


CCCC 


c 


CCCO 


CC012 


MESS 


CC 


*-* 




ISMC0120 


CCCE 


20 


2 3 A 1 7 1 7 C 


CC013 


WAIT1 


L IBF 


TYPEO 




ISMC0130 


OCCF 


c 


CCCO 


CC014 




CC 


/CCCO 


WAIT FOR CCNSOLE 


ISMC0140 


CO 10 





7CFC 


CC015 




B 


WMT1 




ISMC0150 


CC11 


CO 


6600CC05 


CC016 




LCX 


L2 5 


SET CHARACTER 


ISMC0160 


C013 


01 


6ECCCC8C 


CC017 




STX 


L2 IC 


♦CCUNT FOR TYPEO 


ISMC0170 


0C15 


c 


7C5B 


CC018 




R 


CCNV 




IS MOO 180 


CG16 





1CC0 


CC019 


6TAEI 


NOP 




TABLE OF ADDRESSES 


ISM00190 


0C17 


1 


CC61 


CC02C 




CC 


MESS4 


*FCR MESSAGES 


ISM00200 


C018 


1 


CC4F 


CC021 




DC 


M E S S 3 


*FCR INPUT 


ISMG0210 


CC19 


1 


CC41 


CC022 




DC 


MESS2 




ISMCI0220 


001A 


1 


CC30 


CC023 




DC 


MESS1 




ISM00230 


coie 





CC1A 


CC024 


HEAC 


CC 


?C 


WORD COUNT FOR HEADING 


ISM002A0 


C01C 




CC28 


CC025 




DMES 


■R'lOSISAM FILE LCAD CALCULAT IONS' R • E 


ISM00250 


C03C 


c 


CC10 


CC026 


MESS1 


CC 


16 




ISM00260 


0031 




0020 


CC027 




DMES 


•2RINCEX 


ENTRY LENGTH IN WORDS = •£ 


ISM00270 


CC41 





CCOC 


CC028 


MESS2 


DC 


13 




ISM00280 


CC42 




CCIA 


CC029 




ONES 


•RRECCRC 


LENGTH IN WORDS = «E 


ISM00290 


C04F 





ecu 


CC03C 


MESS3 


CC 


17 




ISM00300 


C05C 




CC22 


CCO 3 1 




ONES 


•RNUMBER 


CF RECORDS TC BE LCACED = »E 


ISM00310 


CC61 


c 


CCOF 


CC032 


MESS4 


CC 


15 




ISM00320 


0062 




001E 


CC033 




CMES 


"RNUMBER 


CF OVERFLOW SECTORS = 'E 


ISM00330 


0C71 


2 


23A1717C 


CC034 


CCNV 


LIEF 


TYPEO 




ISM00340 


0072 





1CC0 


CC035 




CC 


/1C00 


READ IN VALUE 


ISM00350 


0073 


I 


C080 


C0036 




CC 


IC 




ISM00360 


0074 


20 


23A17170 


CC037 


WAIT 


LIBF 


TYPEO 




ISM00370 


0C75 





CCCO 


CC038 




CC 


/CCCO 


WAIT ON KEYBOARD 


ISM00380 


0076 





7CFD 


C0039 




B 


WAIT 




ISM00390 


0C77 


C 


CCOE 


CC040 




LC 


0UT1 


MOVE PLUS SIGN TO 


ISM00400 


0078 


c 


CCC7 


CC041 




STC 


IC 


*IC AREA FCR DCBIN 


ISMC0A10 


0079 


20 


C4CC2255 


CC0A2 




LIBF 


DCBIN 


CONVERT FROM IBM CARD CODE 


I.SMC0420 


CC7A 


I 


CC80 


CC043 




DC 


IC 


*TC BINARY VALUE IN ACC 


ISMC0A30 


007R 


01 


C5C0OO8C 


CC044 




STC 


LI VTAB1 


STCRE IN VALUE TABLE 


ISMC0A40 


007C 


C 


71FF 


CC045 




VOX 


1 -1 


DECREMENT COUNT 


ISM00450 


CC7E 


c 


7C89 


CC046 




B 


IN 


BRANCH IF COUNT NON-ZERO 


ISMC0A60 


CC7F 





7C11 


CC047 




B 


CAL 


OTHERWISE TAKE THIS BRANCH 


ISM00470 


0080 


c 


CCC5 


CC048 


10 


CC 


'•5 


INPUT AREA FOR KEYBOARD 


ISMD0480 


0081 




CCC5 


CC049 




BSS 


5 




ISMC0490 


0086 


c 


8CAC 


CC05C 


00T1 


CC 


/8CA0 


CONVERSION AREA 


ISM00500 


0087 




CC05 


CC051 


CUT 


BSS 


5 




ISMC0510 


C08C 


c 


1CC0 


CC052 


VTAB1 


NCP 




TABLE OF INPUT VALUES 


ISM00520 


0C8C 


c 


CCCO 


CC053 


CVRSC 


DC 


*-* 


NO. CF OVERFLOW SECTORS 


ISM00530 


COFE 


c 


CCCO 


CC05A 


RECRD 


CC 


*-* 


NO. OF RECORDS 


ISM00540 


008F 





OCCO 


CC055 


LENCR 


CC 


#-* 


RECORD LENGTH 


ISM00550 


0090 





CCCO 


C0056 


LENGI 


DC 


*-* 


INCEX ENTRY LENGTH 


ISM00560 


0091 


c 


CC22 


CC057 


CAL 


LD 


SCTLG 


DIVID SECTOR LENGTH BY 


ISM00570 


0CS2 


c 


1890 


CC058 




SRT 


16 


♦INDEX ENTRY LENGTH TO 


ISM00580 


0093 





A8FC 


CC059 




C 


LENGI 


♦CALCULATE THE NUMBER OF 


ISM00590 
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0094 





CC27 


CC060 




STC 


IEPS 


0095 


C 


CCF9 


CC061 




LC 


LENGR 


0096 


C 


8C1B 


CC062 




A 


TWC 


CC97 


c 


ccin 


CC063 




STC 


WCRK 


ocse 


c 


CC1B 


CC064 




LC 


SCTLG 


CC99 


c 


1890 


CC065 




SRT 


16 


0C9A 


c 


A81A 


CC066 




C 


WCRK 


0C9B 


C 


CC1F 


CC067 




STC 


RCDPS 


0C9C 


c 


CCF1 


CC068 




LC 


RECRD 


0C9C 





8C1C 


C0069 




A 


RCDPS 


0C9E 





9C12 


CC070 




S 


CNE 


009F 


C 


1890 


C C 7 1 




SRT 


16 


CCAC 


C 


A81A 


CC072 




C 


RCDPS 


CCA1 





DC17 


0C073 




STC 


NCPDS 


00A2 


c 


8C10 


CC074 




A 


SEVEN 


00A3 


c 


18C3 


CC075 




SRA 


3 


0CA4 


C 


DC15 


CC076 




STC 


NCPDC 


00A5 





8016 


CC077 




A 


IEPS 


CCA6 





9CCA 


CC078 




S 


CNE 


0CA7 


c 


1890 


CC079 




SRT 


16 


C0A8 





A813 


CC080 




C 


IEPS 


CCA9 





CCOF 


C0081 




STC 


NCISC 


OOAA 


c 


8CCE 


CC082 




A 


NCPDS 


oCAe 


c 


8CE1 


C0083 




A 


OVRSC 


OCAC 


c 


8C04 


CC084 




A 


CNE 


OOAC 


c 


CCC9 


CC085 




STC 


TCTSC 


OOAE 


CO 


65CC0C06 


CC086 




LCX 


LI 6 


OCP.C 


C 


7C13 


CC087 




e 


RCUT 


ocei 


C 


CC01 


ccoee 


ONE 


DC 


1 


00P2 





CC02 


CC089 


TWC 


DC 


2 


GCB3 


C 


CCC7 


CC090 


SEVEN 


CC 


7 


OCPA 


c 


ClAO 


CC091 


SCTLG 


DC 


320 


0CB5 





CCCO 


CC092 


WORK 


CC 


*-* 


0CP6 


C 


1CC0 


CC093 


VTAB2 


NCP 




0C07 





CCCO 


CC094 


TCTSC 


CC 


*-* 


CCB8 


Q 


CCCC 


CC09b 


NCISC 


DC 


*-* 


CCR9 





CCCO 


CC096 


NCPCS 


CC 


*-* 


OOBA 


C 


CCCO 


CC097 


NCPCC 


CC 


*-* 


OCEE 


C 


CCCC 


CC098 


RCDPS 


DC 


*-* 


CQEC 


C 


CCCC 


CC099 


IEPS 


DC 


*-$ 


ccfic 





1CC0 


C01CC 


MTAB 


NCP 




oobe 


1 


CCF4 


C0101 




DC 


MS5P 


00 EF 


1 


C1C5 


C01C2 




DC 


MS6P 


ccco 


1 


0119 


C01C3 




CC 


MS7P 


00 CI 


1 


012E 


CO 104 




CC 


MS8P 


00C2 


1 


0142 


CC105 




DC 


MS9P 


0CC3 


1 


0156 


C01C6 




DC 


MSIOP 


COCA 


01 


C5CC0CBC 


001C7 


RCLT 


LC 


LI MTAB 


0CC6 


01 


C4CC00CF 


ccioe 




STC 


L ACCR 


occe 


01 


C5CCCCE6 


C0109 




LC 


LI VTAB2 


OCCA 


2 


C22551C3 


C011C 




LIBF 


BINDC 


CCCB 


1 


0086 


coin 




CC 


0LT1 


co-cc 


20 


2S257CC6 


GC11? 




LIBF 


ZIPCO 


occc 





11C0 


CC113 




CC 


/11C0 


OCCF 


1 


CC8 7 


CCU4 




DC 


CLT 


OCCF 


C 


CCCC 


CC115 


ADDR 


DC 


*-* 


CCCC 





CCC5 


C0116 




CC 


5 


COCl 


3C 


085930C7 


C0117 




CALL 


HCLCP 


0CC3 


01 


C5CC0CCF 


CC118 




LC 


LI BTAB2 


00D5 





DCC2 


C0119 




STC 


MESSP 


00C6 


20 


23A1717C 


C012C 




LIBF 


TYPEO 


00C7 





2C0O 


C0121 




CC 


/2C00 


CCD8 





CCCO 


C0122 


MESSP 


DC 


*-* 


00C9 


20 


23A1717C 


C0123 


WAIT3 


LIBF 


TYPEO 


OOCA 





CCCO 


00124 




CC 


/CCCO 


OOCB 





7CFC 


C0125 




B 


WAIT3 



♦INDEX ENTRIES PER SECTOR 
CREATE DIVISOR BY ADDING 



ISM00600 
ISM00610 



♦ TWO TO THE RECORD SIZE AN ISM00620 
♦STORING IN HCLD AREA ISM00630 
DIVIDE RECCRD LENGTH+2 ISM00640 

♦ INTO THE SECTOR LENGTH ISM00650 

♦ TC CALCULATE THE NUMBER ISMC0660 

♦ OF RECORDS PER SECTOR ISM00670 
DIVIDE THE TCTAL NUMBER OF ISM00680 
♦RECORDS PLUS NO. CF REC. ISM00690 

♦ PER SECTCR MINUS CNE ISMC0700 
*BY THE NUMBER OF ISMC0710 

♦ REC. PER SECTOR TC FIND ISMC0720 

♦ NC. CF PRIME DATA SECTORS ISM00730 
ADC CONSTANT OF SEVEN ISMC0740 
DIVIDE BY 8 TO DETERMINE ISMC0750 

♦ NC. CF PRIME DATA CYLNDRS ISMC0760 
ADD INDEX ENTRIES/SECTOR ISMC0770 
MINUS ONE ISM00780 
DIVIDE BY NO. CF INDEX ISMC0790 
♦ENTRIES/SECTOR TO FIND NO ISM00800 

♦ OF INDEX SECTORS ISM00810 
ADD NO OF INDEX SECTORS+ ISM00820 

OF PRIME DATA SECTORS ISM00830 

NO OF OVERFLOW SECTORS I SM00840 
1 FOR LABEL 



♦ NC 

* + 

SET COUNT 



CONSTANT OF CNE 

CONSTANT OF TWC 

CONSTANT OF SEVEN 

NO. WORDS PER SECTCR 

TEMPORARY HCLD AREA 

TABLE OF OUTPUT VALUES 

TOTAL NC. CF SECTORS 

NO. OF INDEX SECTORS 

TOT NO. CF PRIME DATA SCTR ISM00960 

NO. OF PRIME DATA CYLINDRS ISM00970 

NO. OF RECCRDS PER SECTOR ISMC0980 

NO. OF INDEX ENTRIES/SECTR I SM00990 



ISM00850 
ISM00860 
I SM00870 
ISM00880 
ISM00890 
ISMC09C0 
ISMC0910 
I SM00920 
ISMC0930 
ISMC0940 
ISM00950 



MESSAGE TABLE CONTAINS 
♦ADDRESS IN MESSAGES 
♦WHERE THE VALUES ARE TO 
♦ BE INSERTED 



ISM01000 
ISM01010 
ISM01020 
ISM01030 
ISM01040 
ISM01050 
ISM01060 
MOVE ADDR CF CORRECT ISM01070 

♦ MSG TO CONVERT ROUTINE ISM01080 
LOAD A VALUE TC CONVERT ISM01090 
GO CONVERT FROM BINARY TO ISM01100 

♦ IBM CARD CCDE ISMOlllO 
CONVERT FRCM IBM CARD CODE ISM0J.120 

ISM01130 
ISM01140 
ISM01150 
ISM01160 
ISM01170 
ISM01180 
ISM01190 
ISM01200 
ISM01210 
ISM01220 
ISM01230 
ISM01240 
ISM01250 



♦ TC CONSOLE CCDE AND 
♦PLACE VALUE IN 
♦MESSAGE 



LCAD ADDR CF MESSAGE 
STCRE ADDR FCR SUBROUTINE 

TYPE OUTPUT MESSAGE 



WAIT FCR CCNSCLE 
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calculat 


ng file parameters 




MCX 


1 -1 




DECREMENT CCUNT 




occc 


C 


71FF 


CC126 


ISM01260 


occc 





7CE6 


C0127 




B 


RCUT 




IF CCUNT NCN-ZERO BRANCH 


ISM01270 


OCCE 





6C38 


CC128 




EXIT 






OTHERWISE, CALL EXIT 


ISM01280 


CCCF 





1CC0 


C0129 


BTAB2 


NOP 






TABLE CF ACCRESSES 


1SM01290 


OCEO 


1 


0CE6 


C0130 




CC 


MS5 






ISM01300 


C0E1 


1 


CCF7 


CC131 




DC 


MS6 






ISM01310 


0CE2 


1 


C108 


CC132 




DC 


MS 7 






ISM01320 


0CE3 


1 


one 


C0133 




CC 


MSB 






ISM0133O 


0CE4 


1 


0131 


C0134 




CC 


MS9 






ISM01340 


CCE5 


1 


0145 


CC135 




DC 


MS10 






ISM013.50 


0CE6 


c 


CC11 


C0136 


MS5 


DC 


17 






ISM01360 


0CE7 




CC1B 


C0137 




CMES 


• RTCTAL 1 


MLMBER OF SECTCRS = • 


ISM01370 


CCF4 




0CC5 


CC138 


MS5P 


DMES 


•E 






ISM0138O 


0CF7 





CC11 


CC139 


MS6 


CC 


17 






ISM01390 


0CF8 




0C1B 


CC140 




DMES 


•RNUMBER 


CF 


INDEX SECTCRS = • 


ISM0K.00 


C105 




CC05 


C0141 


MS6P 


CMES 


•E 






ISM01410 


oice 





0013 


CC142 


MS7 


DC 


19 






ISM01420 


01C9 




0020 


00143 




DMES 


•RNUMBER 


CF 


PRIME DATA SECTORS = • 


ISM01430 


0119 




CC06 


CC144 


MS7P 


DMES 


•E 






ISM01440 


one 





CC14 


C0145 


MS8 


DC 


2C 






ISM01450 


one 




0C22 


CC146 




CMES 


•RNUMBER 


CF 


PRIME DATA CYLINDERS = ' 


ISM01460 


C12E 




0C06 


CC147 


MS8P 


CMES 


'E 






ISM01470 


0131 


c 


0C13 


CC148 


MS9 


DC 


19 






ISMC1480 


0132 




0C2C 


C0149 




DMES 


•RNUMBER 


CF 


RECORDS PER SECTOR = • 


ISM01490 


CU2 




0C06 


C0150 


MS9P 


CMES 


•E 






ISM0l!500 


C145 


c 


CC13 


CC151 


MS1C 


CC 


19 






ISMOliilO 


0146 




0C20 


C0152 




CMES 


•RNUMBER 


CF 


INDEXES PER SECTOR = » 


ISM01520 


0156 




CCC6 


C0153 


MS1CP 


DMES 


•E 






ISM0l«>30 


C15A 




CCCO 


CO 154 




END 


START 






ISMOl'340 



syfecl 


VALUE F 


*EL CEFN 


ACCR 


COCF 


L C0115 


BTAE1 


0016 ] 


L C0019 


BTAE2 


COCF ] 


L C0129 


CAL 


C091 


I C0057 


CCNV 


C071 ] 


L 00034 


FEAC 


CO IE 


L 00024 


IEPS 


COEC 


L C0099 


IN 


C C 8 ] 


L CC008 


IC 


CC8C 


L C0048 


LENGI 


CC90 


L C0056 


LENGR 


C08F 


L CC055 


fESS 


COOC 


L CC012 


MESSP 


core i 


L C0122 


MESS1 


CC3C 


L C0026 


NESS2 


C041 


L C0028 


MESS3 


C04F 


L 00030 


MESS4 


C061 


L C0032 


MS1C 


0145 


L C0151 


MSlCP 


0156 1 


I 00153 


MS5 


C0E6 ] 


L 00136 


MS5P 


C0F4 


L CC138 


MS6 


C0F7 1 


L 00139 


KS6P 


01C5 


L CC141 


MS7 


C108 


L CC142 


MS7P 


0119 


L CC144 


pse 


one 


L 0C145 


f"S8P 


C12E 


L C0147 


MS9 


C131 


L CC148 


MS9P 


0142 


L C0150 


MTAB 


COBC 


L C01C0 


NCISC 


C0B8 


L CC095 


NCPCC 


COEA 1 


L 00097 


NCPCS 


C0E9 


L CC096 



CROSS-REFERENCE 

REFERENCES 



CC1C8.M 

CC0C8,R 

00118, R 

CCC47,B 

0C018,B 

00003, R 

00060, M CCC77,R C008C.R 

CCC46.B 

00017, M C0036,R CC041,M 00043, 

C0G59.R 

CC061,K 

C0CC9,M 

C0119,M 

CCC23,R 

C0022.R 

C0021.R 

C002CR 

C0135,R 

C01C6,R 

00130, R 

C010i,R 

00131, R 

C0102,R 

C0132,R 

G01C3,R 

C0133,R 

C01C4,R 

C0134,R 

00105, R 

C01C7,R 

CCC81,M 

CCC76,M 

CCC73,M C0082,R 
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CNE 


coei 1 


L CC088 


CCC70.R 


CCC78,R CC084,R 


CLT 


C087 1 


C0051 


CC114.R 




CLT1 


C086 1 


I CC05C 


CC040,R 


00111, R 


CVMSC 


C08C 1 


L COC53 


C0083»R 




RCCPS 


COBE 1 


L C0098 


CCC67,M 


CC069,R CC072,R 


RECRC 


C08E 


L C0054 


CC068 t R 




RCIT 


CCC4 1 


L CC1C7 


C0087 t B 


CC127,B 


SCTLG 


C08A 1 


L CC091 


00057, R 


CC064,R 


SEVEN 


C0R3 1 


CC090 


CCC74,R 




START 


OCCC 1 


CCOCl 


C0154,R 




TCTSC 


COE7 ] 


L CCC94 


C0C85,K 




TV»C 


C0B2 


L C0089 


C0062.R 




VTABi 


008C 1 


I CC052 


CC044,K 




VTAE2 


C0B6 


L CC093 


C01C9,R 




WAIT 


C074 


I C0037 


C0C39,B 




Vi A I T 1 


00OE 


L CC013 


C0015,B 




WAIT3 


COC9 


L C0123 


00125,8 




WAIT4 


CC03 


I CC0G4 


CCCOfc.B 




WCRK 


C0B5 


I C0O92 


CCC63,M 


C0Cfc6,R 



CCC CVERFLCW SECTCRS SPECIFIEC 
COC CVERFLCfc SECTCRS RECUIREC 
05? SYKHCLS CEFINEC 

NC ERMCR(S) AND NC WARNING(S) FLAGGED IK ABOVE ASSEMBLY 
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The general formats in which information is stored and dumped by the monitor system 
are: 

• Disk 

• Card 

• Paper tape 

• Data 

Programs and subroutines aie assigned type and subtype numbers that are placed in the 
program or subroutine header. The program types are defined as follows: 

Type Type of program 

1 Mainline (absolute) 

2 Mainline (relocatable) 

3 Subprogram, not an ISS, referenced by an LIBF statement 

4 Subprogram, not an ISS, referenced by a CALL statement 

5 Interrupt service subroutine (ISS), referenced by an LIBF statement 

6 Interrupt service subroutine (ISS), referenced by a CALL statement 

7 Interrupt level subroutine (ILS) 



Subtypes are defined for program types 3, 4, 5, and 7 only. When not used, the subtype 
indicator in a program header contains a zero. Program subtypes are defined as follows: 

Subtype Type Description 

3,4 In -core subprograms 

1 3 Disk FORTRAN I/O subroutines 

2 3 Arithmetic subroutines 

3 3 Nondisk FORTRAN I/O and "Z" conversion 

subroutines 

3 5 "Z" device subroutines 

8 4 Function subprogram 

1 7 Dummy ILS02, ILS04 



Monitor system formats are described in the following text. 



Formats I-J 



Disk Formats 
DSF 



DISK FORMATS 

DSF format 



Disk system format is the format in which absolute and relocatable programs (mainlines 
and subroutines) are stored on disk. The layout of a program stored in DSF format is 
shown in Figure 1-1. 



r~ 



DSF module 
K 



y- 

Program header 
(12-54 words): 
See description. 



t 



-A- 



DSF blocks 



DSF Block (2-9 data words): 
Word 1 - Indicator data word' 
Words 2-9 - Data words 



Data header (2 words): 

Word 1 — Loading address 
Word 2 — Number of words 
following to the next data 



DSF modules 



Data break — 
Caused by: 

1. ORG, BSS, BES, or DSA 
statement. 

2. Start of a new sector. 

3. End of the program. 



End-of-program 

data header (2 word s) : 

Word 1 - Relative 
address of the next 
available core location. 

Word 2 — zero 



The bits of the indicator data word describe the 
corresponding data word as follows: 

00 Absolute 

01 Relocatable v 
1000 LIBF 

1100 CALL 

1101 DSA 



Figure: 1-1. Disk system format 
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Disk Formats 

DSF program header 

The format of words 1 through 1 2 of the program header is the same for all program types. 
The following shows the contents of words 1 through 12 of a program header: 

Word Contents 

1 Zero 

2 Checksum, if the source was cards; otherwise, a zero. 

3 Subtype (bits through 3) 

Program type (bits 4 through 7) 

Precision bits: 

Integer Precision^ 3RD HEX DIGIT 

unspecified Vv 

matches real ^ 8 

one word 9 

Real Precision A 4TH HEX DIGIT 

unspecified ^^ 

standard 1 

extended 2 

4 Effective program length, the terminal address in the program 

5 Length of COMMON (in words) 

6 Length of the program header (in words) minus 9 

7 Zero 

8 Length of the program, including the program header (in disk 
blocks) 

9 FORTRAN indicator (bits through 7), number of files defined 
(bits 8 through 15) 

10 and 11 Name of entry point 1 (in name code) 

12 Address of entry point 1 (absolute for type 1 programs, relative 

for all others) 

^^ All FORTRAN programs specify precision of both real and integers. Real precision 

©in assembler is unspecified unless an EPR or SPR card is used. 
Two words for standard precision, 3 for extended. 
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Disk Formats 

DSF program header 
DDF 

The format of words 1 3 through 54 of the program header varies according to the pro- 
gram type. For program types 1 and 2, the program header consists of words 1 through 

12 only. For program types 3 and 4, the program header, in addition to words 1 through 
12, includes: 

Word Contents 

13 and 14 Name of entry point 2 (in name code) 

15 Relative address of entry point 2 

16 and 17 Nam:; of entry point 3 (in name code) 

18 Relative address of entry point 3 

19 through 51 Namo and relative addresses of entry points 4 through 14, as 

required, in the format shown above. The program header ends 
following the relative address of the last entry point defined; 
hence, it is of variable length. 

For program types 5 and 6, the program header, in addition to words 1 through 12, 
contains the following information: 

Word Contents 

13 »SS number plus 50 

14 iSS number 

15 Number of interrupt levels required ^F 

16 Interrupt level number associated with the primary interrupt %W 

17 Interrupt level number associated with the secondary interrupt ^P 

%J The 1442 Card Read/Punch is the only device requiring more than one interrupt 
level. 

For type 7 programs, the program header, in addition to words 1 through 1 2, contains 
the associated interrupt level number in word 13. 

DDF format Disk data format (DDF) is the format in which data files are stored on disk. DDF consists 

of 320 binary words per sector. Information such as headers, trailers, and indicator words 
is not included in DDF format. 
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DCI format 



Disk Formats 
DCI 

Disk core image (DCI) format is the format in which a core image program is stored on 
disk. A core image program consists of the core image header, the mainline program, all 
subroutines referenced in the mainline program or other subroutines (except the disk I/O 
subroutine), the transfer vector, and any LOCALs or SOCALs that are required. A layout 
of a stored DCI program is shown under "Construction of a Core Load" in Chapter 3. 
The contents of the core image header are: 



Word 
Symbol Relative address 



@XEQA 





@CMON 


1 


@DREQ 


2 


@FILE 


3 


@HWCT 


4 


@LSCT 


5 


@LDAD 


6 


@XCTL 


7 


@TVWC 


8 


@WCNT 


9 



@XR3X 



10 



@ITVX 


11 




12 




13 




14 




15 




16 




17 




18 through 20 




21 




22 




23 




24 




25 


@OVSW 


26 


@CORE 


27 




28 and 29 



@HEND 



29 



Contents 

Execution address of the core load 

Length of COMMON (in words) 

Disk I/O subroutine indicator — /FFFF for 
QISKZ, /0000 for DISK1 , /0001 for DISKN 

Number of files defined 

Length of the core image header (in words) 

Sector count of files in system WS 

Loading address of the core load 

Exit control address for DISK1/N 

Length of the transfer vector (in words) 

Length, in words, of the core load, core image 
header, and the transfer vector 

Setting for the index register 3 during execution 
of the core load 

Contents of word 8 during execution "^ 

Contents of word 9 during execution 

Contents of word 10 during execution 

Contents of word 1 1 during execution 

Contents of word 12 during execution 

Contents of word 13 during execution 

Reserved ""S 

Interrupt entry to 1231 ISS 

Interrupt entry to 1403 ISS 

Interrupt entry to 2501 ISS 

Interrupt entry to 1442 ISS 

Interrupt entry to keyboard/ 
console printer ISS 

Interrupt entry to 1134/1055 ISS^, 

Sector count of LOCALs/SOCALs 

Core size of system on which core load built 
Define file table checksum work area 

Last word of core image header 



> ITV 



>IBTfor ILS04 
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Card Formats 

CDS program header 

CARD FORMATS 

card sequencing 
and ID field 



CDS format 



mainline header card 



In card formats, the file name and card sequence number are punched in columns 73 
through 80. The file name is in columns 73 through 77, and 3-column sequence number 
in columns 78 through 80.. Names of less than 5 characters use columns 73 through 76 
and 4-column sequence number in columns 77 through 80. The only exception to this 
convention is that card decks punched by DUMPDATA E do not contain the ID field and 
sequence number. 

Card system format (CDS) is the format in which absolute and relocatable programs 
(mainlines and subroutines) are punched into cards. Each deck in card system format con- 
sists of (1) a header card, (2) data cards, and (3) an end-of-program card. 

The mainline header card is the first card of every type 1 or 2 program in CDS format. This 
card contains: 



Word 

1 

2 

3 



4 
5 

6 

7 

8 

9 

10 and 11 

12 

13 through 54 

O 



Contents 




Reserved 




Checksum 




Type code (first 8 bits) : 




0000 0001 absolute 




0000 0010 relocatable 




Precision bits: 




Integer Precision-^ 


3RD HEX DIGIT 


unspecified ^rrv 





matches real ^^ 


8 


one word 


9 


Real Precision ^^ 
unspecified ^^ 


4TH HEX DIGIT 





standard 


1 


extended 


2 



Reserved 

Length of COMMON, in words (FORTRAN mainline program 
only) 

0000 0000 0000 001 1 

Length of the work area required, in words (FORTRAN only) 

Reserved 

Define file count 

Name 

Relative entry point 

Reserved 







All FORTRAN programs specify precision of both real and integers. Real 
precision in assembler is unspecified, unless an EPR or SPR card is used. 

Two words for standard precision, three for extended. 
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Card Formats 

CDS subprogram header 

subprogram header The subprogram header card is the first card of every type 3 or 4 program in card system 

card format. This card contains: 

Word Contents 

1 Reserved 

2 Checksum 

3 Type code (first 8 bits): 

0000 001 1 to be called by an LIBF statement only 
0000 0100 to be called by a CALL statement only 



Precision bits: 




Integer Precision^^ 


3RD HEX DIGIT 


unspecified ^K\ 





matches real ^^ 


8 


one word 


9 


Real Precision 4*k 
unspecified 


4TH HEX DIGIT 





standard 


1 


extended 


2 



4 and 5 Reserved 

6 Number of entry points times three 

7 through 9 Reserved 

10 and 1 1 Name of entry point 1 (in name code) 

12 Relative address of entry point 1 

13 through 51 Names and relative addresses of entry point 2 through 14, as 

required 

52 through 54 Reserved 

^^ All FORTRAN programs specify precision of both real and integers. Real 
precision in assembler is unspecified unless an EPR or SPR card is used. 



^■^ Two words for standard precision, three for extended. 
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Card Formats 
CDS ISS header 



ISS header card 



The ISS header card is the first card of every type 5 or 6 program in CDS format, and 
contains: 



Word 
1 
2 
3 



4 and 5 

6 

7 through 9 

10 and 11 

12 

13 and 14 

15 

16 

17 

18 through 29 

30 

31 through 54 

O 



Contents 

Reserved 

Checksum 

Type code (first 8 bits): 

0000 0101 to be called by an LIBF statement only 
0000 01 10 to be called by a CALL statement only 



Precision bits: 




Integer Precision^^ 


3RD HEX DIGIT 


unspecified ^*v 





matches real ^^ 


8 


one word 


9 


Real Precision f> 
unspecified ^^ 


4TH HEX DIGIT 





standard 


1 


extended 


2 



Reserved 

Number of interrupt levels required plus 6 

Reserved 

Subroutine name (in name code) 

Relative entry point address 

Reserved for parameters used by the 1 130 Card/Paper Tape System 



Number of interrupt levels required 



© 



Interrupt level number associated with the primary interrupt 

Interrupt level associated with the secondary interrupt level 

Reserved 

One 

ReserveJd 



e 
© 



© 
© 



AH FORTRAN programs specify precision of both real and integers. Real 
precision in assembler is unspecified unless an EPR or SPR card is used. 

Two words for standard precision, three for extended. 

The 1442 Card Read Punch is the only device requiring more than one 
interrupt level. 
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I LS header card 



format of data cards 



Card Formats 
CDS I LS header 
CDS data card format 



The ILS header card is the first card of every type 7 program in CDS format, and contains: 



Word 
1 
2 
3 

4 and 5 

6 

7 through 9 

10 through 12 

13 

14 through 54 



Contents 

Reserved 

Checksum 

Type code (first 8 bits): 

0000 0111 
Reserved (last 8 bits) 

Reserved 

0000 0000 0000 0100 

Reserved 

Reserved 

Interrupt level number 

Reserved 



In all types of programs, data cards contain the instructions and data that comprise the 
machine language program. The format of each data card is: 



Word 
1 



2 
3 

4 through 9 



10 through 54 



Contents 

The loading address of the first data word in the card. 
Succeeding words go into higher numbered core locations. 
The relocation factor must be added to this address to 
obtain the actual load address. For an absolute program 
the relocation factor is zero. 

Checksum 

Type code (first 8 bits) : 

0000 1010 
Count of data words, excluding indicator data words, in 
these cards (last 8 bits) 

Relocation indicator data words (2 bits for each following 
data word): 

00 absolute 

01 relocatable 

10 LI BF (next two bits 00) 

11 CALL (next two bits 00) 
1 1 DSA (next two bits 01 ) 

Data words 1 through 45 
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Card Formats 

CDS end-of-program card 
CDS sector break cards 

end-of-program The end-of-program card is the last card of all programs in CDS format, and contains: 

card 

Word Contents 

1 [Effective length of the program. This number is always even 

and is assigned by the assembler, FORTRAN compiler, or 
RPG compiler. 



2 


Checksum 


3 


Type code (first 8 bits): 




0000 1111 




LastS bits: 




0000 0000 


4 


Eixecution address (mainline program only) 


5 through 54 


Reserved 



sector break cards Sector break cards are binary cards used by the system loader to cause programs or phases 

of programs to start loading at the beginning of a sector. The monitor system uses type 1 
header cards as sector break cards. The sector break cards are not checksummed. Columns 
5 through 72 of the sector break cards may contain information identifying the program 
phase being loaded. The card sequence number appears in columns 73 through 80. Columns 
5 through 80 are punched in IBM Card Code. 

Type 1 cards are identified by a 1 punch in column 4 (binary word 3). A type 1 card indi- 
cates to the system loader that it should check word 1 1 of the first data card that follows. 
For the resident image, Cold Start Program, and phase 1 of the system loader, word 1 1 
contains the absolute starting sector address. For all other monitor programs or phases, 
word 1 1 contains the phase ID. Recognition of a phase ID during initial load causes the 
system loader to load the program or phase starting at the next sequential sector. During 
a reload, the phase ID is matched with the ID in SLET and the phase is loaded to the 
sector address indicated in SLET. 

On an initial load, phase 1 of DUP starts loading at sector 8. 

A type 2 (relocatable starting sector address) sector break card is processed by the monitor 
system as a type 1 sector break card. 



MO 



Card Formats 

CDD arid CDC 
Paper Tape Formats 



CDD format 



Card data format (CDD) is the format in which data files are punched into cards. CDD 
format consists of 54 binary words per card. Each binary word occupies 1-1/3 columns. 
Information such as headers, trailers, and indicator words is not included in CDD format. 
CDD format is illustrated by the following: 



Wordl 



/ 



Word 54 



i 



10 9 



4oe 

5 



1 D 
6 2 e|/U6 



oc 

2E 
3F 

3 .« 



B 
OC 
10 
2E 

3f 
OC 



5 It 



2EA 



3F 



9 5 



9 



A 

27 



OC 
1 
2E 
3FB 



A 6 



10 
2E 
3F 

26{ZT 2423[34fl3l 32 



id 

■ 

2E 
3F 
OC 



4«l^35j3q37 3«(J9 

8 



OC 

ll 9 

it 



3F 



40 



ZEA 



3F 



84 



OC 

§ 1 D 
62E 
73F 

39 40 



0C 
1 D 
2E 
3F(8 
4 



510 



OCi 



A 6 IE 



FB 



OC 
ID 
2£ 
3F 
0C 



0C 

i'd 

2£ 

4JK7J51 

3F 



A6 



OC 
10 
2E 
3F 
0C 



ftOJi^ 



5 
2EA 



3F 



0C 

1 

6.2 E 



0C 
ID 
6[2E 
3 F 6 7 3 F 

63 64(Mr'6|H*» 



64 
95 
A600000000 

7t 7! 73 74 75 76 77 71 7» 80 



3FB71 1111111 o 



10 

it 



40C 
1 D 



OC 8 2 222222 2 " 



933333333 I 



2E 



3F 



69(J0|7I 72 



44444444 g 



B|5 5555555 5 

2 



66666666 2 
77777777 
88888888 
99999999 

73 74 75 76 77 71 79 10 



CDC format 



Card core image (CDC) format is the format in which core image programs are punched 
into cards. CDC format is identical to card data format (CDD), that is, one binary word 
occupies 1-1/3 columns and 54 binary words can be punched per card. 



PAPER TAPE FORMATS 



The paper tape formats— paper tape system format (PTS), paper tape data format (PTD), 
and paper tape core image format (PTC)— are analogous to the corresponding card formats 
(see preceding). 

Two frames in paper tape (data or core image) format contain one binary word and are 
equivalent to 1-1/3 columns in card (data or core image) format. A data record in paper 
tape (data or core image) format differs from a data record in card (data or core image) 
format in that the record is preceded by any number (normally zero) of delete characters 
(/7F) and a frame containing the word count, one-half the number of frames in this data 
record. A data record in paper tape (data or core image) format contains a maximum of 
108 frames (54 binary words) plus the 2 special frames. 

Information that would appear in columns 73 through 80 in card format must not appear 
in paper tape format. 
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Paper Tape Format 



The following is an example of paper tape data (PTD) format: 




• •• 



• • • 

• •• 

• • •• 



• •• 

M39 M. 



• • 



jt±±E 



• •• 



• • 

• •• 

• •• 



♦ ft 



e 



WWW 



m 



W 



Record N + 2 



Record N + 1 



Oatawords 



Typecode (/OA). count of data words (OF) 

Checksum (/E89C) 

Loading address (/08CC) 

Record word count (/18) 

Delete character (may be omitted) 



Record N - 1 



1-12 



PRINT FORMATS 

PRD format 



Print Formats (PRD) 
DSF program 
GDI program 



Print data format (PRD) is the format in which DUP prints a DSF program, core image 
program, or data file on a print device (1403, 1 132, or console printer). The following 
are printouts of dumps of a DSF program and a DCI program: 



DSF Program 
































♦ CCPP 


UA PR 


SAHPL 




























ADCR 


♦ **o 


**♦ 1 


***2 


***3 


***4 


***5 


***6 


***7 


***8 


***9 


***A 


***B 


***c 


***D 


***E 


***F 


OOCC 


CCCO 


0000 


0100 


0372 


0000 


CC03 


CCOC 


0015 


OCOO 


2205 


45D3 


0218 


0218 


009B 


8080 


23AI 


0C1C 


717C 


2C0C 


0233 


23A1 


717C 


CCOO 


70FC 


CC20 


65C0 


0004 


C5C0 


022E 


D002 


23A1 


7170 


2000 


002C 


2C00 


CCOC 


23A1 


717C 


CCOC 


7CF0 


660C 


0C05 


6E0C 


CCCC 


0298 


705B 


1000 


0279 


0267 


0259 


0C30 


0248 


0C14 


OCOO 


8121 


2121 


2121 


2121 


2121 


2120 


983C 


7021 


0000 


1020 


5C34 


215C 


503C 


0C4C 


3021 


1C3C 


5C1C 


B05C 


CCOO 


3C9C 


2C5C 


7498 


8121 


0010 


8181 


2074 


3034 


0000 


9421 


3474 


CC5C 


9C60 


A421 


5C34 


7414 


9C24 


2120 


CCOC 


7421 


9C5C 


6030 


9821 


C221 


COOD 


8160 


341C 


0000 


0060 


5C60 


3021 


5C34 


7414 


9C24 


2120 


7421 


9C50 


CCCC 


6030 


9821 


C221 


0011 


8174 


B070 


1834 


CC70 


6021 


COCC 


5010 


216C 


341C 


5C6C 


3098 


219C 


5C21 


1834 


COOO 


215C 


503C 


3034 


3021 


C221 


ooeo 


CCOF 


8174 


B070 


COOC 


18 34 


6021 


5010 


2150 


B434 


6010 


5C50 


9021 


0020 


9834 


1C9C 


5060 


0C9C 


9821 


C221 


23A1 


717C 


1000 


2C02 


029e 


23A1 


7170 


CCOO 


70FD 


COOE 


D007 


040C 


0000 


2255 


CCAO 


0290 


C5CC 


C2A4 


71FF 


7089 


7C11' 


CC05 


029E 


0C04 


0000 


80A0 


02A4 


0096 


0000 


1000 


0000 


ocec 


CCOO 


CCCC 


CCCO 


C022 


189C 


A8FC 


0000 


D027 


C0F9 


801B 


D010 


C01B 


1890 


A81A 


D01F 


0000 


ccco 


CCF1 


801C 


9012 


189C 


A81A 


DC17 


801C 


1803 


CCOO 


D015 


8016 


900A 


1890 


A813 


DOOE 


800E 


occc 


80E1 


CCOC 


8C04 


D009 


65CC 


0C06 


7013 


CC01 


0C02 


0007 


COOO 


0140 


0000 


1000 


0000 


0000 


OCEC 


CCCO 


CCCO 


CCCO 


0000 


CCOO 


ICCO 


030C 


031D 


0331 


0346 


035A 


036E 


0008 


C500 


02D5 


D400 


OCFC 


02E7 


C5CC 


C2CE 


0225 


5103 


2C03 


029E 


2925 


70D6 


hoc 


029F 


0000 


0005 


0859 


0080 


30D7 


0100 


C5C0 


02F7 


C002 


23A1 


717C 


2CC0 


CCOC 


8CC0 


23A1 


717C 


0000 


70F0 


71FF 


70E6 


6038 


1000 


cue 


CCCO 


02FE 


030F 


032C 


C334 


349 


035C 


0011 


819C 


C000 


509C 


3C5C 


2174 


B070 


1834 


6021 


012C 


5C10 


2198 


CCCO 


341C 


9C5C 


6098 


21C2 


2121 


2121 


2121 


0011 


CCOO 


8174 


B070 


1834 


6021 


C130 


5C10 


2120 


7430 


3494 


CCOO 


2198 


341C 


9C50 


6C98 


21C2 


2121 


2121 


2121 


0000 


0013 


8174 


CMC 


BC7C 


0323 


005A 


CCOC 


1834 


6021 


5C1C 


2154 


6020 


7034 


2130 


3C9C 


0000 


3C21 


9834 


IC9C 


C15C 


5C60 


9821 


C221 


2121 


2121 


CCCO 


2121 


0014 


8174 


B07C 


1834 


6021 


5010 


2154 


0000 


6020 


0160 


7C34 


2130 


3C9C 


3C21 


1CA4 


5C20 


7430 


0000 


3460 


9821 


C221 


2121 


2121 


2121 


0013 


8174 


0170 


OCCO 


e07C 


1834 


6021 


5010 


2160 


341C 


5C60 


3098 


OOCC 


2154 


3460 


2198 


341C 


9C50 


6021 


0180 


C221 


2121 


CCCO 


2121 


2121 


CC13 


8174 


B070 


1834 


6021 


5010 


OCOO 


2120 


7430 


3494 


3498 


CISC 


2154 


346C 


2198 


341C 


C000 


9C50 


6021 


C221 


2121 


2121 


2121 


0372 


0000 


8160 


341C 


0000 


01A0 


5C60 


3021 


5C34 


7414 


























CART IC 


0EC1 


CG ACDR 2EAD CB 


CNT CC15 























V 

Ls 



Disk block on sector. For Data Files, this position will always be (Data Files must start on sector boundary). 
Sector 



Core Image Program (note that the actual starting address is /01FA) 



♦ CLJ'P 


FX PR 


CISAN 




























ACCR 


**#o 


*♦#! 


***2 


***3 


♦ #*4 


***5 


***6 


***7 


#**8 


***9 


***A 


«**B 


***c 


***D 


***E 


***F 


C1FC 






















0218 


0000 


FFFF 


0000 


OOlfc 


0000 


02CC 


C1FA 


CCOC 


CC1A 


C508 


7F7E 


0C91 


0091 


0CB3 


0091 


00C4 


0091 


0091 


0091 


0091 


0091 


0091 


C21C 


CC91 


CC91 


0376 


0091 


COOO 


8C00 


CCOC 


OCOO 


4377 


200C 


0233 


4377 


OOCO 


70FD 


6500 


0004 


0220 


C5C0 


022E 


C002 


4377 


2C00 


CCCO 


4377 


CCCO 


7CFD 


660C 


0005 


6E00 


0298 


705B 


1000 


0279 


C230 


0267 


0259 


0248 


CC14 


8121 


2121 


2121 


2121 


2121 


212C 


983C 


7021 


1020 


5C34 


215C 


503C 


C240 


3C21 


1C3C 


5C1C 


B05C 


3C9C 


2C50 


7498 


8121 


C01C 


8181 


2074 


3034 


9421 


3474 


9C60 


A421 


C25C 


5C34 


7414 


9C24 


212C 


7421 


9C50 


6C3C 


9821 


C221 


OOOC 


8160 


341C 


5060 


3021 


5C34 


7414 


C260 


9C24 


212C 


7421 


905C 


6030 


9821 


C221 


0011 


8174 


B07C 


18 34 


6021 


5010 


2160 


341C 


5060 


C27C 


3C98 


219C 


5021 


1834 


215C 


5C3C 


3034 


3021 


C221 


COOF 


8174 


B070 


1834 


6021 


5010 


2150 


C28C 


B434 


6C1C 


5C50 


9021 


9834 


1C9C 


5060 


9821 


C221 


4377 


10C0 


0298 


4377 


0000 


70FD 


COOE 


C29C 


DCC7 


4374 


0298 


D5CC 


C2A4 


71FF 


7C8S 


7C11 


CCC5 


0658 


0658 


0000 


0000 


0000 


80A0 


0000 


C2A0 


CCOO 


OOOC 


0000 


COOC 


1000 


OCOO 


OCOC 


OCOO 


0000 


C022 


1890 


A8FC 


D027 


C0F9 


801B 


D01D 


C2B0 


CC1B 


189C 


A81A 


COIF 


C0F1 


8010 


9012 


1890 


A81A 


D017 


8010 


1803 


0015 


8016 


900A 


1890 


C2CC 


A813 


CCOE 


8C0E 


80E1 


8004 


DCC9 


650C 


0CC6 


7013 


C001 


0002 


0007 


0140 


0000 


1000 


0000 


C2CC 


CCCO 


ccco 


CCOO 


CCOC 


CCOO 


ICCO 


C30C 


031D 


0331 


0346 


035A 


036E 


C500 


0205 


D400 


02E7 


C2E0 


C5C0 


02CE 


4371 


029E 


436E 


11CC 


029F 


OCOO 


0CC5 


448C 


7FFF 


C500 


02F7 


D002 


4377 


2000 


C2F0 


CCCO 


4377 


CCOC 


70FC 


71FF 


7CE6 


6C38 


ICCO 


02FE 


030F 


0320 


0334 


0349 


035D 


0011 


819C 


03CC 


5C9C 


3C5C 


2174 


B07C 


1834 


6021 


5CIC 


2198 


341C 


9C5C 


6098 


21C2 


2121 


2121 


2121 


0011 


031C 


8174 


B07C 


1834 


6021 


5010 


212C 


743C 


3494 


2198 


34 IC 


9C50 


6098 


21C2 


2121 


2121 


2121 


C32C 


CC13 


8174 


BC70 


1834 


6021 


5010 


2154 


6020 


7C34 


213C 


3C9C 


3C21 


9834 


IC9C 


5060 


9821 


C33C 


C221 


2121 


2121 


2121 


C014 


8174 


B07C 


1834 


6021 


501C 


2154 


602C 


7034 


2130 


3C9C 


3C21 


C340 


1CA4 


5C2C 


7430 


34.6C 


9821 


C221 


2121 


2121 


2121 


0013 


8174 


B070 


1834 


6021 


5010 


2160 


C350 


341C 


5060 


3098 


2154 


3460 


2198 


341C 


9C50 


6C21 


C221 


2121 


2121 


2121 


0013 


8174 


B070 


C360 


1834 


6021 


5C10 


212C 


7430 


3494 


3498 


2154 


3460 


2198 


341C 


9C50 


6021 


C221 


2121 


2121 


C37C 


2121 


C400 


6914 


658C 


7FF5 


7C03 


CCOC 


4CC0 


03D5 


6A0F 


280F 


D83A 


C100 


180C 


4C20 


0380 


C380 


CC34 


4818 


7101 


C832 


7101 


6906 


650C 


OCOO 


6600 


COOO 


2000 


4C00 


0000 


C027 


4C20 


038D 


0390 


C1C0 


180C 


9C6C 


4C3C 


03AB 


8C45 


COll 


082C 


1C05 


4C28 


03AD 


1810 


D050 


0058 


D05E 


0059 


C3AC 


C1C1 


805C 


D051 


C057 


C580 


CC01 


4C08 


03AB 


7C00 


7012 


701F 


COOE 


7003 


4C02 


0397 


C008 


C3BC 


71FF 


6CCC 


C028 


6128 


70CF 


CCCO 


D235 


G247 


2C0C 


OFOO 


2001 


0F01 


D03A 


003E 


08F9 


1006 


C3CC 


4C28 


C3AF 


4C00 


047C 


COFC 


7401 


0032 


1000 


0827 


70B8 


1001 


C02B 


DOES 


7401 


0032 


1000 


C3CC 


C4eo 


03F4 


C01C 


C81E 


70AC 


08E4 


C021 


1C01 


4C28 


0423 


4802 


7001 


7011 


C01C 


4C20 


0462 


C3EC 


CC15 


4C2C 


0455 


CCC4 


4804 


7C1A 


740C 


C3F7 


7CC5 


181C 


DOCA 


74FF 


0032 


1000 


4C80 


0376 
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ACCR 



***0 *** 1 ***2 ***2 



***4 ***5 ***6 ***7 



♦**g ***A ***B 



***C ***D ***E ***F 



C3FC 


7CE6 


cccc 


C3F0 


09CC 


CCOC 


CAOO 


CCCC 


CCOO 


CCOO 


COOC 


0000 


0000 


0000 


0000 


0001 


0002 


C400 


74FF 


03F7 


7C01 


70E5 


C0F4 


4C18 


C40E 


IS 10 


DOFO 


7401 


03F4 


C48C 


03F4 


7005 


COEF 


D0'E9 


C41C 


C48G 


C3F4 


icoe 


CODC 


08 A 3 


1CC5 


4C28 


041E 


089F 


1005 


4C2H 


041E 


08D5 


70D0 


C400 


3 68 


C420 


4400 


0C8C 


70F1 


OftCC 


C480 


03F4 


1C0C 


4CC2 


043F 


4C3C 


0443 


4C2C 


044A 


614B 


C480 


0311=4 


C430 


F5C0 


CCCC 


4C18 


0436 


7 IFF 


7CF8 


C50C 


OCOO 


DCB7 


7401 


03F4 


74FF 


03F7 


08B2 


70D5 


CO?E 


C440 


C480 


C3F4 


70 A 6 


COBfc 


C0B6 


DCAE 


C0B5 


DCAF 


CC27 


70C9 


DOAK 


COBO 


90AA 


4C08 


0453 


74 PF 


C450 


C3F4 


7401 


03F7 


C019 


70BE 


CCA7 


4C2C 


04 5C 


C0A5 


D0A3 


C015 


70B7 


1810 


D098 


D09E 


D09A 


C460 


oeaF 


7cee 


C09A 


4C18 


C458 


CC90 


4C2C 


04 5C 


CC95 


D08C 


C004 


70A7 


0003 


1100 


4110 


8100 


C470 


BCCO 


1CC0 


1008 


1888 


6B04 


8C03 


8086 


D001 


C400 


OOOC 


80F1 


4C80 


04 71 


C007 


40F2 


DO H I 


C480 


CCC5 


4CEF 


CCB4 


4C0C 


03C4 


436B 


436e 


6 A DC 


6936 


6580 


7FF2 


6A.35 


282F 


D850 


C100 


0003 


C49C 


7101 


6931 


6500 


C00 1 


C040 


DC3E 


leic 


DC46 


C101 


4C18 


04A7 


E03F 


4C20 


04BA 


C101 


620C 


C4AC 


1240 


9C38 


4C20 


04BA 


6A37 


CC30 


9C3 5 


8C36 


74FF 


04D4 


701C 


D032 


4C01 


04CE 


C1FC 


4C18 


C4eo 


4BC 


9C27 


4C18 


04C4 


9024 


4C18 


C4BC 


9020 


4C18 


04BC 


2001 


7001 


2000 


C820 


6500 


0000 


ceo 


66C0 


CCOO 


4C00 


COOC 


9019 


DC18 


7CF5 


ACOF 


4C20 


04BA 


108F 


D012 


7101 


70CA 


FOOB 


4c;?o 


C4C0 


04BA 


C1FC 


FC06 


7CE4 


CCCO 


CC05 


CCOA 


0C14 


OCAO 


400C 


8000 


CCOF 


0000 


DB05 


7401 


0037 


C4EC 


6526 


658C 


7FEF 


2824 


C83C 


DC40 


C10C 


DO IB 


7101 


6921 


6105 


C03A 


4C28 


050C 


C02F 


D4U0 


C4F0 


5C3 


CC34 


A027 


D031 


A02B 


1C90 


4801 


8020 


802D 


802A 


D006 


901D 


4C10 


0513 


C026 


D026 


C50C 


CC1A 


1800 


D500 


CCOC 


71FF 


7CEB 


650C 


OCOO 


2CC0 


C818 


4C00 


CCOO 


1810 


9018 


4808 


COOD 


C51C 


DC 15 


CCOA 


70CC 


801C 


COEC 


7401 


0525 


7CE6 


0C01 


180A 


1999 


2000 


4000 


7FFF 


80A0 


AOOO 


C52C 


FFF6 


DC32 


0833 


C82E 


1800 


OCOO 


CCOC 


1C02 


695D 


6580 


7FEC 


6A58 


10A0 


D02F 


C100 


1800 


053C 


1084 


C027 


1C84 


C026 


1010 


1C84 


C024 


1084 


D023 


C101 


DOOB 


C102 


D040 


C103 


007E 


C580 


C540 


CCO 5 


con 


7106 


6944 


10AC 


C400 


CCOC 


16D0 


1081 


0076 


1010 


7400 


0559 


7045 


1087 


D06E 


C55C 


658C 


05BE 


C5C0 


COOC 


7400 


05C0 


7C07 


1C08 


7006 


0000 


0000 


0000 


0000 


0000 


E062 


DOSE 


C56C 


CC61 


740C 


055C 


101C 


C0F8 


C058 


7400 


5 5C 


7C10 


740C 


055D 


7001 


700A 


0051 


74FF 


05FI0 


057C 


70 18 


C480 


057C 


E052 


E84A 


7C06 


7C05 


1608 


E846 


740C 


055B 


7028 


D400 


0000 


7401 


0570 


0580 


74FF 


05BC 


7C06 


660C 


CCOO 


65C0 


CCOC 


4C00 


OCOO 


1010 


7400 


055A 


7003 


7400 


0550 


7 OB 8 


C59C 


7401 


0546 


7CB1 


1082 


1C05 


DC2D 


1010 


1087 


4C18 


05A1 


620F 


1240 


72F9 


1C00 


6A1F 


1010 


C5AC 


9C1D 


1082 


E820 


70AB 


18D0 


001F 


1010 


1083 


1000 


D019 


1083 


4C18 


05B6 


9016 


OOOF 


1010 


o5eo 


9C0D 


COOC 


6680 


05BE 


COOD 


12C0 


E80C 


1806 


1086 


18DC 


COOA 


18D0 


70BF 


0000 


0000 


0000 


05C0 


CCCO 


FFCO 


CC01 


COOC 


OCOD 


CCCO 


COFF 


CC20 


4421 


20E0 


24E4 


2121 


3CFC 


2121 


2121 


2121 


C5DC 


18D8 


2121 


0282 


2121 


lCCC 


2121 


OOCC 


2121 


30F0 


2121 


DE04 


2121 


34F4 


4109 


FEE6 


2121 


C5EC 


1C00 


2121 


CAC2 


2121 


14C4 


2121 


C6E2 


2121 


21C4 


21A0 


21A4 


2121 


21BC 


2121 


2121 


2121 


C5FC 


2198 


2121 


2121 


2121 


219C 


2121 


218C 


2121 


21B0 


2121 


2106 


2121 


21B4 


2103 


21BE 


212 1 


06CC 


2190 


2121 


2146 


2121 


2194 


2121 


2186 


2121 


2184 


2160 


2164 


2121 


217C 


2121 


2121 


2121 


0610 


2158 


2121 


2142 


2121 


215C 


2121 


2140 


2121 


2170 


2105 


2106 


2121 


2174 


2181 


21F6 


2121 


062C 


2150 


2111 


21D2 


2121 


2154 


2121 


21F2 


2121 


2121 


2121 


2121 


2121 


2121 


2121 


2121 


2121 


0630 


2121 


2121 


2121 


2121 


2121 


2121 


2121 


2121 


2121 


2121 


2121 


2121 


2121 


2121 


2121 


2121 


064C 


2121 


2121 


2121 


2121 


2121 


2121 


2121 


2121 


0000 


0000 


7FE9 


0000 


0000 


0000 


8110 


8090 


0650 


8C50 


4210 


4110 


409C 


2UC 


2090 


0110 


0090 


8820 


8220 


8060 


4820 


40A0 


4060 


2220 


2120 


0660 


2CA0 


2060 


0820 


0420 


0120 


0C60 


842C 


8120 


4420 


422C 


4120 


3000 


2420 


0220 


OOAO 


2010 


C670 


2C20 


2040 


2080 


210C 


2200 


2400 


280C 


4C10 


4(520 


404C 


4080 


4100 


4200 


4400 


4800 


5000 


0680 


8C10 


8020 


8040 


808C 


8100 


8200 


840C 


8800 


9C00 


001C 


0020 


0040 


0080 


0100 


0200 


0400 


0690 


0800 


1C00 


2000 


4000 


800C 


80A0 


COOC 


0282 


0000 


0000 


7FE6 


217F 


217F 


217F 


417F 


217F 


O6A0 


217F 


057F 


817F 


117F 


037F 


217F 


097F 


217F 


027F 


DE7F 


C67F 


427F 


D27F 


F27F 


067F 


BE7F 


06B0 


467F 


867F 


827F 


C07F 


E60B 


E27F 


C06E 


FE57 


4062 


0623 


F62F 


BC4C 


8016 


047F 


C24A 


A054 


06CC 


A413 


9452 


9051 


B41C 


B04F 


9C0E 


980C 


6020 


641F 


545E 


505D 


741C 


705B 


5C1A 


5819 


7C58 


C600 


202C 


246B 


142A 


1029 


3468 


3C67 


1C26 


1825 


3C64 


E008 


E407 


D446 


D045 


F404 


F043 


DC02 


06E0 


D801 


FC40 


C449 


8461 


4415 


DA6D 


217F 


C1C0 


OCOO 


4X00 


0698 


0000 


4C00 


0648 


0000 


4C00 


C6FC 


C528 


OCOO 


4C00 


04E0 


0000 


4C00 


0488 


OCOO 


4C00 


0372 


0000 


OCOO 


0000 


0000 


0000 


0000 


0700 


OCCO 


05C8 






























CART 


ID 0ED1 


08 ACDR 1F00 CB 


CNT CC50 























The address that precedes each printed line is the core address of word 1 on that line when 
a core image program is being printed. If a DSF program or data file is being printed, the 
address is the address of word 1 on that line relative to the start of the DSF program or 
data file. Each word printed is 4 hexadecimal characters long, and represents one 
binary word. 
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DATA FORMATS 

NCF format 



Name code format is the format in which names of subprograms, entry points, labels, etc., 
are stored into 2 binary words for use by monitor programs. The name consists of 5 
characters, with the terminal characters possibly being blanks. Each EBCDIC character 
has the 2 leftmost bits dropped, and the remaining 6-bit blocks are packed to fill the 
following 30 bits of the 2 words. The 2 left bits of the 2-word name code representation 
are used for various purposes by different parts of the monitor system. For example, in 
the LET/FLET entry, these bits specify the format of the file (see Appendix D "LET/FLET"). 

The name-data words, used internally by the FORTRAN compiler, are similarly packed 
but the leftmost bit of each word is used as the indicator bit. This bit is set to zero if the 
word contains a constant; otherwise, it is set to one. 

The following is an example of name code format: 



Name code words in hexadecimal D505 4140 



Equivalent binary words 



11 010101 000001 01 0100 000101 000000 



Indicator bits 
Input 


EBCDIC 


EBCDIC 


characters 


hex 


binary 


N 


D5 


1101 0101 


A 


C1 


1100 0001 


M 


D4 


1101 0100 


E 


C5 


1100 0101 


14 


40 


0100 0000 
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Appendix J. Field Type Examples for DFCNV 



I- FIELD TYPE 



The following is a description of each field type supported by the program. In each of 
these specification descriptions, the column and field length indicators may vary from 1 
to 3 digits in length; all other numeric indicators must be one digit in length. 



This field type describes FORTRAN integer conversion; input is an integer field. The 
specification is: 

m-Iw.t (P) 

where 

m is the column of the RPG record in which the converted field begins (1 through 

640). 

/ identifies the field type. 

w is the field length of the converted field (maximum of 14). 

t is the number of positions to the right of the decimal point reserved in the RPG 

field (maximum of 9). 

(P) is optional and is present only if the RPG field is to be packed. 

Note. Since the FORTRAN integer field is regarded as a whole number with no decimal 
places, up to 5 positions to the left of the decimal should be reserved in the converted 
field to hold the largest possible integer value. Alignment is at the decimal point; if 5 
positions are not reserved, high-order truncation occurs (see "DFCNV Messages and Error 
Messages" in Appendix A). 

Example 1: The integer field /3A7E (14974 decimal) is converted using the field specifi- 
cation 15-18.2 to the following RPG field. 

Record 

word 8 9 10 11 

Content F0F1 F4F9 F7F4 F0F0 

Example 2 (truncation): The integer field of Example 1 is converted using the field speci- 
fication 15-16.2 to the following PPG field. 

Record 

word 8 9 10 

Content F4F9 F7F4 F0F0 

Example 3 (packed format): The integer field of example 1 is converted using the field 
specification 15-I8.2(P) to the following RPG field. The number is converted as in 
Example 1 . The zone portions of each character are then removed and the digit portions 
are packed 2 per byte. The sign is added as a trailing hexadecimal digit (F=positive; 
D=negative). 

Record 

word 8 9 10 

Content 0014 9740 0F40 

Note. Since field length does not account for sign, incorrect alignment exists if packed 
mode is specified and field length is an even number. In order to align the data correctly, 
a leading zero is added to the field. This is true in all field types that accept packed mode 
conversion. 
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Example 4: The integer field /C582 (-14974 decimal) is converted using the field specifi- 
cation 15-18.2 to the following RPG field. 



Record 

word 

Content 



F0F1 



F4F9 



10 

F7F4 



11 
F0D0 



I-FSELDTYPE 



R-FIELD TYPE 



This field type describes 2-word integer conversion; input is a 2-word integer. The specifi- 
cation is: 

m-Jw.t (P) 

where 

m is the column of the RPG record in which the converted field begins (1 through 

640), 

J identifies the field type. 

w is the field length of the converted field (maximum of 14). 

t is the number of positions to the right of the decimal point reserved in the RPG 

field (maximum of 9). 

(P) is optional and is present only if the RPG field is to be packed. 

Note. Since a 2-word integer is regarded as a whole number with no decimal places, up to 
10 positions to the left of the decimal point should be reserved in the converted field to 
hold the largest possible integer value. Alignment is at the decimal point; if 10 positions 
are not reserved, high-order truncation occurs (see "DFCNV Messages and Error Messages" 
in Appendix A). If a file contains 2-word integers, standard precision must be specified on 
the file description card. If extended precision is specified, any J-field type specification 
is invalid. 

Example: The 2-word integer field /7FFF/FFFF is converted using the field specification 
7-J13.(P) to the following RPG field. 

Record 

word 4 5 6 7 

Content 0021 4748 3647 0F40 



This field type describes FORTRAN real-variable conversion. The specification is: 

m-Rw.t (P) 

where 

m is the column of the RPG record in which the converted field begins (1 through 

640). 

R identifies the field type. 

w is the field length of the converted field (maximum of 14). 

t is the number of positions to the right of the decimal point reserved in the RPG 

field (maximum of 9). 

(P) is optional and is present only if the RPG field is to be packed. 

Note. If the real number of the input field is too small to yield any significant digits in the 
RPG field, the RPG field is set to zeros. If the real number is too large to yield any signifi- 
cant digits in the RPG field, the RPG field is set to nines (see "DFCNV Messages and 
Error Messages" in Appendix A). 
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R-field type 

Example 1: The standard precision real field /BC00/0080 (-0.53125 decimal) is converted 
using the field specification 25-R7.5 (P) to the following RPG field. 

Record 

word 13 14 

Content 0053 125D 

Example 2: The real field of Example 1 is converted using the field specification 25-R7.5 
to the following RPG field. 

Record 

word 13 14 15 16 

Content F0F0 F5F3 F1F2 D540 

Example 3: The standard precision real field /7A 12/0097 (eight million decimal) is con- 
* verted using the field specification 39-R7.0 (P) to the following RPG field. 



Record 






word 


20 


21 


Content 


8000 


000F 



Example 4: If the field specification in Example 3 were 39-R7.2 (P) then the resulting 
RPG field would be set to nines since the input field is too large to yield any significant 
digits in the RPG field. 

Record 

word 20 21 

Content 9999 999F 

If column 33 of the file description card contained a W, a warning message would be printed 
when the preceding conversion took place. 

Example 5: The extended precision real field /0047/6250/0000 (10 _1 2 decimal) is con- 
verted using the field specification 17-R9.9 to the following RPG field. 

Record 

word 9 10 11 12 13 

Content F0F0 F0F0 F0F0 F0F0 F040 

The RPG field is set to zeros since the input field is too small to yield any significant digits 
in the RPG field. A number whose first significant digit is more than 9 decimal places to 
the right of the decimal point cannot be expressed in RPG. If column 33 of the file descrip- 
tion card contained a W, a warning message would be printed when above conversion took 
place. 



Field Type Examples for DFCNV J-3 



DFCNV 

B-field type 
C-field type 



B-FIELD TYPE 



C-FIELD TYPE 



This field type describes FORTRAN A-conversion for integer data and CSP Al and A2 
conversion. The specification is: 

m-Bw.n 

where 

m is the column of the RPG record in which the converted field begins (1 through 

640). 

B identifies the field type. 

w is the number of characters in the field (maximum of 255). 

n is the number of characters in each unit of the input field (n=l or 2). 

Note. If CSP Al or A2 format is converted, one word integers must be specified on the 
file description card; however, no diagnostic check is made for this condition. 

Example: The CSP field POSITIVE appears on a disk record in A2 format as follows: 

Record 

word n n+ 1 n+ 2 n+ 3 

Content E5C5 E3C9 E2C9 D7D6 

VE TI SI PO 

This field is converted using the field specification 21-B8.2 to the following RPG field. 

Record 

word 11 12 13 14 

Content D7D6 E2C9 E3C9 E5C5 

PO SI TI VE 



This field type describes FORTRAN A-conversion for real data. The specification is: 

m-Cw.n 

where 

m is the column of the RPG record in which the converted field begins (1 through 

640). 

C identifies the field type. 

w is the number of characters in the field (maximum of 255). 

n is the number of characters in each unit (2 or 3 words) of the input field. For 

standard precision, n may range from 1 through 4; for extended precision, from 1 

through 6. 

Example: The FORTRAN field WASHINGTON, D. C. appears on a disk record in A4 
format, extended precision, beginning at word 221 as follows; 

Record 



word 


210 


211 


212 


213 


214 


215 


Content 


4BC3 
.C 


4B40 


4040 


D6D5 
ON 


6BC4 
,D 


4040 


Record 














word 


216 


217 


218 


219 


220 


221 


Content 


C9D5 


C7E3 


4040 


E6C1 


E2C8 


4040 




IN 


GT 




WA 


SH 





J-4 



O-FIELD TYPE 



DFCNV 

D-field type 



This field type describes CSP Dl conversion. The specification is 
m-Dl.j=l 2 .K(P) 

where 

m is the column of the RPG record in which the converted field begins (1 through 

640). 

D identifies the field type. 

Ji is the length of the CSP field (maximum of 255). 

/ is the number of positions to the right of the decimal point in the CSP field. 

1 2 is the length of the RPG field (maximum of 14). 

k is the number of positions to the right of the decimal point in the RPG field 

(maximum of 9). 

(P) is optional and is present only if the RPG field is to be packed. 

Note. Alignment is at the decimal point. If, for example, 1 1= 1 2 and k>j, then k-j high 
order positions of the CSP field are truncated in the RPG field (see "DFCNV Messages 
and Error Messages" in Appendix A). 

Example: The CSP Dl format field +00946.88 appears on a disk record beginning at 
word 78 as shown. 



Record 
















word 


72 


73 


74 


75 


76 


77 


78 


Content 


0008 


0008 


0006 


0004 


0009 


0000 


0000 



This field is converted using the field specification 35-C15.4 to the following RPG field. 
Record 



word 


18 


19 


20 21 22 


23 


Content 


E6C1 


E2C8 


C9D5 C7E3 D6D5 


6BC4 




WA 


SH 


IN GT ON 


,D 


Record 










word 


24 


25 






Content 


4BC3 
r 


4B40 






This field is converted 


using the field specification 25-D7. 2=6.3 to the 


followi 


field. 










Record 










word 


13 


14 


15 




Content 


F9F4 


F6F8 


F8F0 





Field Tvpe Examples for DFCNV J-5 



DFCNV 

E-field type 
F-field type 

E-FIELD TYPE 



F-FIELD TYPE 



This field describes CSP D4 conversion. The specification is: 
m-El,.j=l 2 .k(P) 

where 

m is the column of the RPG record in which the converted field begins (1 through 

640). 

E identifies the field type. 

1 1 is the length of the CSP field (maximum of 255). 

/ is the number of positions to the right of the decimal point in the CSP field. 

7 2 is the length of the RPG field (maximum of 14). 

k is the number of positions to the right of the decimal point in the RPG field 

(maximum of 9). 

(P) is optional and is present only if the RPG field is to be packed. 

Note. For E-field type conversion, alignment is also performed at the decimal point; high 
order truncation is possible (see "DFCNV Messages and Error Messages" in Appendix A). 

Example: The CSP D4 format field -00946.88 appears on a disk record beginning at 
word 103 as follows: 



Record 

word 101 

Content FFF7 



102 103 
68FF 0094 



This field is converted using the field specification 25-E7. 2=7.2 (P) to the following RPG 
field. 

Record 

word 13 14 

Content 0094 688D 



This field type describes CSP A3 conversion, and requires a 40 character translation table. 
The specification is*. 

m-Fw 

where 

m is the column of the RPG record in which the converted field begins ( 1 through 

640). 

F identifies the field type. 

w is the number of characters in the field (not to exceed the input record size in 

characters). 



J-6 



X-FICLD TYPE 



DFCNV 

X-field type 

Example: Suppose that a 40 character translation table with W as the 23rd position 
relative to the last position (card column 40) of the A3 table, H as the eighth relative 
position, and Y as the 25th relative position, is used to form the CSP field WHY in A3 
format. This field is represented on a disk record by the integer /1419 that is derived using 
the following formula. 

1= 1 600 (N , -20) + 40N 2 + N 3 

where 

N y , N 2 and N^ represent the positions relative to card column 40 in the table of the 
1st, 2nd and 3rd characters, respectively. 

/1419 is converted using the field specification 21-F4 to the following RPG field. 

Record 

word 11 12 

Content E6C8 E840 

■ WH Y 



This field type allows fields on the input record to be bypassed. The specification is : 

Xw 

where 

X identifies the field type. 

w is the number of words to be bypassed (not to exceed input record size). 

Example: The field specification used to bypass an array of 1 real numbers when standard 
precision (each real number is 2 words in length) is specified as X20. 



Field Type Examples for DFCNV J-7 
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Appendix K. Decimal and Hexadecima! Disk Addresses 



SECTOR 


SECTOR 


CYLINDER 


CYLINDER 


SECTOR 


SECTOR 


CYLINDER 


CYLINDER 


SECTOR 


SECTOR 


CYLINDER 


CYLINDER 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


BASE 10 


BASE 16 


BASE 10 


BASE 16 


BASE 10 


BASE 16 


BASE 10 


BASE 16 


BASE 10 


BASE 16 


BASE 10 


BASE 16 


+00000 


0000 


+00000 


0000 


+00536 


0218 


+00067 


0043 


+01072 


0430 


+00134 


0086 


+00008 


0008 


+00001 


0001 


+00544 


0220 


+00068 


0044 


+01080 


0438 


+00135 


0087 


+00016 


0010 


+00002 


0002 


+00552 


0228 


+00069 


0045 


+01088 


0440 


+00136 


0088 


+00024 


0018 


+00003 


0003 


+00560 


0230 


+00070 


0046 


+01096 


0448 


+00137 


0089 


+00032 


0020 


+00004 


O004 


+00568 


0238 


+00071 


0047 


+01104 


0450 


+00138 


008A 


+00040 


0028 


+00005 


0005 


+00576 


0240 


+00072 


0048 


+01112 


0458 


+00139 


008B 


+00048 


0030 


+00006 


0006 


+00584 


0248 


+00073 


0049 


+01120 


0460 


+00140 


008C 


+00056 


0038 


+00007 


0007 


+00592 


0250 


+00074 


004A 


+01128 


0468 


+00141 


008D 


+0O064 


0040 


+00008 


0008 


+00600 


0258 


+00075 


004B 


+0U36 


0470 


+00142 


008E 


+00072 


0048 


+00009 


0009 


+00608 


0260 


+00076 


004C 


+01144 


0478 


+00143 


008F 


+00080 


0050 


+00010 


OOOA 


+00616 


0268 


+00077 


004D 


+01152 


0480 


+00144 


0090 


+00088 


0058 


+00011 


OOOB 


+00624 


0270 


+00078 


004E 


+01160 


0488 


+00145 


0091 


+00096 


0060 


+00012 


OOOC 


+00632 


0278 


+00079 


004F 


+01168 


0490 


+00146 


0092 


+00104 


0068 


+00013 


OOOD 


+00640 


0280 


+00080 


0050 


+01176 


0498 


+00147 


0093 


+00112 


0070 


+00014 


OOOE 


+O0648 


0288 


+00081 


0051 


+01184 


04A0 


+00148 


0094 


+00120 


0078 


+00015 


OOOF 


+00656 


0290 


+00082 


0052 


+01192 


04A8 


+00149 


0095 


+00128 


0080 


+00016 


0010 


+00664 


0298 


+00083 


0053 


+01200 


04BO 


+00150 


0096 


+00136 


0088 


+00017 


0011 


+00672 


02A0 


+00084 


0054 


+01208 


04B8 


+00151 


0097 


+00144 


0090 


+0O018 


0012 


+00680 


02A8 


+00085 


0055 


+01216 


04C0 


+00152 


0098 


+00152 


0098 


+00019 


0013 


+00688 


02B0 


+00086 


0056 


+01224 


04C8 


+00153 


0099 


+0G160 


00A0 


+00020 


0014 


+00696 


02B8 


+00087 


0057 


+01232 


04D0 


+00154 


009A 


+00168 


00A8 


+00021 


0015 


+00704 


02C0 


+00088 


0058 


+01240 


04D8 


+00155 


0096 


+00176 


OOB0 


+00022 


0016 


+00712 


02C8 


+00089 


0059 


+01248 


04E0 


+00156 


009C 


+00184 


0068 


+00023 


0017 


+00720 


02D0 


+00090 


005A 


+01256 


04E8 


+00157 


009D 


+00192 


OOCO 


+00024 


0018 


+00728 


02D8 


+00091 


005B 


101264 


04F0 


+00158 


009E 


+00200 


00C8 


+00025 


0019 


+00736 


02E0 


+00092 


005C 


01272 


04F8 


+00159 


009F 


+00208 


00D0 


+00026 


001A 


+00744 


02E8 


+00093 


005D 


01280 


0500 


+00160 


OOAO 


+00216 


00D8 


+00027 


001B 


+00752 


02F0 


+00094 


005E 


i01288 


0508 


+00161 


0OA1 


+00224 


0OE0 


+00028 


001C 


+00760 


02F8 


+00095 


005F 


01296 


0510 


+00162 


O0A2 


+00232 


00E8 


+00029 


001D 


+00768 


0300 


+00096 


0060 


+01304 


0518 


+00163 


O0A3 


+00240 


OOFO 


+00030 


001E 


+00776 


0308 


+00097 


0061 


+01312 


0520 


+00164 


O0A4 


+00248 


00F8 


+00031 


OOIF 


+00784 


0310 


+00098 


0062 


+01320 


0528 


+00165 


00A5 


+00256 


0100 


+00032 


0020 


+00792 


0318 


+00099 


0063 


+01328 


0530 


+00166 


00A6 


+00264 


0108 


+00033 


0021 


+00800 


0320 


+00100 


0064 


+01336 


0538 


+00167 


00A7 


+00272 


0110 


+00034 


0022 


+00808 


0328 


+00101 


0065 


+01344 


0540 


+00168 


O0A8 


+00280 


0118 


+00035 


0023 


+00816 


0330 


+00102 


0066 


+01352 


0548 


+00169 


O0A9 


+00288 


0120 


+00036 


0024 


+00824 


0338 


+00103 


0067 


+01360 


0550 


+00170 


OOAA 


+00296 


0128 


+00037 


0025 


+00832 


0340 


+00104 


0068 


+01368 


0558 


+00171 


OOAB 


+00304 


0130 


+00038 


0026 


+00840 


0348 


+00105 


0069 


+01376 


0560 


+00172 


OOAC 


+00312 


0138 


+00039 


0027 


+00848 


0350 


+00106 


006A 


+01384 


0568 


+00173 


OOAD 


+00320 


0140 


+00040 


0028 


+00856 


0358 


+00107 


006B 


+01392 


0570 


+00174 


OOAE 


+00328 


0148 


+00041 


0029 


+00864 


0360 


+00108 


006C 


+01400 


0578 


+00175 


OOAF 


+00336 


0150 


+00042 


002A 


+00872 


0368 


+00109 


006D 


+01408 


0580 


+00176 


OOBO 


+00344 


0158 


+00043 


002B 


+00880 


0370 


+00110 


006E 


+01416 


0588 


+00177 


0OB1 


+00352 


0160 


+00044 


002C 


+00888 


0378 


+O0111 


006F 


+01424 


0590 


+00178 


0062 


+00360 


0168 


+00045 


002D 


+00896 


0380 


+00112 


0070 


+01432 


0598 


+00179 


00B3 


+00368 


0170 


+00046 


002E 


+00904 


0388 


+00113 


0071 


+01440 


05A0 


+00180 


0064 


+00376 


0178 


+00047 


002F 


+00912 


0390 


+00114 


0072 


+01448 


05A8 


+00181 


0085 


+00384 


0180 


+00048 


0030 


+00920 


0398 


+00115 


0073 


+01456 


05B0 


+0018? 


O0B6 


+00392 


0188 


+O0049 


0031 


+00928 


03A0 


+00116 


0074 


+01464 


05B8 


+00183 


00B7 


+00400 


0190 


+00050 


0032 


+00936 


03A8 


+00117 


0075 


+01472 


05C0 


+00184 


0088 


+00408 


0198 


+00051 


0033 


+00944 


03B0 


+00118 


0076 


+01480 


05C8 


+00185 


0069 


+00416 


OIAO 


+00052 


0034 


+00952 


03B8 


+00119 


0077 


+01488 


05D0 


+00186 


OQBA 


+00424 


0IA8 


+00053 


0035 


+00960 


03C0 


+00120 


0078 


+01496 


05D8 


+00187 


0068 


+00432 


01B0 


+00054 


0036 


+00968 


03C8 


+00121 


0079 


+01504 


O5E0 


+00188 


OOBC 


+00440 


01B8 


+00055 


0037 


+00976 


03D0 


+O0122 


007A 


+01512 


05E8 


+00189 


OOBD 


+00448 


01C0 


+00056 


0038 


+00984 


03D8 


+00123 


007B 


+01520 


05F0 


+00190 


006E 


+00456 


01C8 


+00057 


0039 


+00992 


03E0 


+00124 


007C 


+01528 


05F8 


+00191 


OOBF 


+00464 


01D0 


+00058 


003A 


+01000 


03E8 


+00125 


007D 


+01536 


0600 


+00192 


OOCO 


+00472 


01D8 


+00059 


003B 


+01008 


03F0 


+00126 


007E 


+01544 


0608 


+00193 


00C1 


+00480 


01E0 


+00060 


003C 


+01016 


03F8 


+00127 


007F 


+01552 


0610 


+00194 


00C2 


+00488 


01E8 


+00061 


003D 


+01024 


0400 


+00128 


0080 


+01560 


0618 


+00195 


0OC3 


+00496 


01F0 


+00062 


003E 


+01032 


0408 


+00129 


0081 


+01568 


0620 


+00196 


00C4 


+00504 


011=8 


+O0O63 


003F 


+01040 


0410 


+00130 


0082 


+01576 


0628 


+00197 


00C5 


+00512 


0200 


+00064 


0040 


+01048 


0418 


+00131 


0083 


+01584 


0630 


+00198 


00C6 


+00520 


0208 


+00065 


0041 


+01056 


0420 


+00132 


0084 


+01592 


0638 


+00199 


00C7 


+00528 


0210 


+00066 


0042 


+01064 


0428 


+00133 


0085 











Decimal and Hexadecimal Disk Addresses K-l 



K-2 



Appendix L. Disk Storage Unit Conversion Factors 



Ik 


Word 


Disk block 


Sector 


Track 


Cylinder 


Disk 


.[No^l*^ 


Bits 


16 


320 


5,112 


20,480 


40,960 


8,192,000 


Data words 




20 


320 © 


1,280 


2,560 


512,000 


Disk blocks 






16 


64 


128 


25,600 


Sectors 








4 


8 


1,600 


Tracks 










2 


400 


Cylinders 












200 



These follow the first actual word of each sector, which is used for the address. 



Disk Storage Unit Conversion Factors L-l 



L^2 



Appendix M. Character Code Set 







EBCDIC 


IBM card code 


Cr 




1132 

Printer 

EBCDIC 


PTTC/8 


Console 


1403 




Ref 
no. 


Binary 


Hex 




Rows 




Hex 


control names 


hex 
U-uppercase 


printer 
hex 


Printer 






0123 4567 




12 11 9 8 


7-1 








subset hex 


L-lowercase 


notes 


hex 







0000 0000 


00 


12 


9 8 


I 


B030 


NUL 














1 




0001 


01 


12 


9 


I 


9010 
















2 




0010 


02 


12 


9 


2 


8810 
















3 




0011 


03 


12 


9 


3 


8410 
















4 




0100 


04 


12 


9 


4 


8210 


PF 


Punch Off 












5* 




0101 


05 


12 


9 


5 


8110 


HT 


Horiz.Tab 




6D(U/L) 


41 Q 






6 




0110 


06 


12 


9 


6 


8090 


LC 


Lower Case 




6E (U/L) 








7* 




0111 


07 


12 


9 


7 


8050 


DEL 


Delete 




7F (U/L) 








8 




1000 


08 


12 


9 8 




8030 
















9 




1001 


09 


12 


9 8 


l 


9030 
















10 




1010 


OA 


12 


9 8 


2 


8830 
















11 




1010 


OB 


12 


9 8 


3 


8430 
















12 




1100 


oc 


12 


9 8 


4 


8230 
















13 




1101 


OD 


12 


9 8 


5 


8130 
















14 




1110 


OE 


12 


9 8 


6 


80B0 
















15 


' 


' mi 


OF 


12 


9 8 


7 


8070 
















16 


000 1 0000 


10 


12 1 


1 9 8 


1 


D030 
















17 




0001 


11 




1 9 


1 


5010 
















18 




0010 


12 




1 9 


2 


4810 
















19 




0011 


13 




1 9 


3 


4410 
















20* 




0100 


14 




1 9 


4 


4210 


RES 


Restore 




4C (U/L) 


05 © 






21* 




0101 


15 




1 9 


5 


4110 


NL 


New Line 




DD U/L) 
5E (U/L) 


81 (3) 






22* 




0110 


16 




1 9 


6 


4090 


BS 


Backspace 




n 






23 




0111 


17 




1 9 


7 


4050 


IDL 


Idle 












24 




1000 


18 




1 9 8 




4030 
















25 




1001 


19 




1 9 8 


1 


5030 
















26 




1010 


1A 




1 9 8 


2 


4830 
















27 




1011 


IB 




1 9 8 


3 


4430 
















28 




1100 


1C 




1 9 8 


4 


4230 
















29 




1101 


ID 




1 9 8 


5 


4130 
















30 




1110 


IE 




1 9 8 


6 


40B0 
















31 


1 


mi 


IF 




1 9 8 


7 


4070 
















32 


0010 0000 


20 


1 


10 9 8 


1 


7030 
















33 




0001 


21 




9 


1 


3010 
















34 




0010 


22 




9 


2 


2810 
















35 




0011 


23 




9 


3 


2410 
















36 




0100 


24 




9 


4 


2210 


BYP 


Bypass 












37* 




0101 


25 




9 


5 


2110 


LF 


Line Feed 




3 D (U/L) 


03 






38* 




0110 


26 




9 


6 


2090 


EOB 


End of Block 




3 E (U/L) 








39 




0111 


27 




9 


7 


2050 


PRE 


Prefix 












40 




1000 


28 




9 8 




2030 
















41 




1001 


29 




9 8 


1 


3030 
















42 




1010 


2A 




9 8 


2 


2830 
















43 




1011 


2B 




9 8 


3 


2430 
















44 




1100 


2C 




9 8 


4 


2230 
















45 




1101 


2D 




9 8 


5 


2130 
















46 




1110 


2E 




9 8 


6 


20B0 
















47 


1 


' mi 


2F 




9 8 


7 


2070 












— 




48 


0011 0000 


30 


12 1 


10 9 8 


1 


F030 














49 




0001 


31 




9 


1 


1010 
















50 




0010 


32 




9 


2 


0810 
















51 




0011 


33 




9 


3 


0410 
















52 




0100 


34 




9 


4 


0210 


PN 


Punch On 












53* 




0101 


35 




9 


5 


0110 


RS 


Reader Stop 




0D(U/L) 


09 © 






54* 




0110 


36 




9 


6 


0090 


UC 


Upper Case 




0E(U/L) 








55 




oni 


37 




9 


7 


0050 


EOT 


End of Trans. 












56 




1000 


38 




9 8 




0030 
















57 




1001 


39 




9 8 


1 


1030 
















58 




1010 


3A 




9 8 


2 


0830 
















59 




1011 


3B 




9 8 


3 


0430 
















60 




1100 


3C 




9 8 


4 


0230 
















61 




1101 


3D 




9 8 


5 


0130 
















62 




1110 


3E 




9 8 


6 


00B0 
















63 


' 


) im 


3F 




9 8 


7 


0070 








- 




..,-., - „ . 



Notes. Tvoewiter outDut 

© Tabulate (3) Carrier return 

(2) Shift to black (4) Shift to red 



Recognized by all conversion subroutines 

Codes that are not asterisked are recognized by the SPEED subroutine. 
The ZIPCO subroutine also recognizes these codes in conjunction with 
the appropriate code tables, notably EBHOL and HLEBC. 



Character Code Set M-1 



Ref 


EBCDIC 


IBM card code 


Graphics and 


1132 
Printer 


PTTC/8 
hex 


Console 
printer 


1403 
Printer 


Binary 


Hex 




Rows 




Hex 


no. 


0123 4567 




12 11 9 8 


7-1 




control names 


EBCDIC 


U-upper case 


hex 


hex 


















subset hex 


L-lower case 






64* 0100 0000 


40 




no punches 




0000 


blank 


40 ** 


10 (U/L) 


21 


7F 


65 


0001 


41 


12 


9 


1 


B010 












66 


0010 


42 


12 


9 


2 


A810 












67 


0011 


43 


12 


9 


3 


A410 












68 


0100 


44 


12 


9 


4 


A210 












69 


0101 


45 


12 


9 


5 


A110 












70 


01.10 


46 


12 


9 


6 


A090 












71 


0111 


47 


12 


9 


7 


A050 












72 


1000 


48 


12 


9 8 




A030 












73 


1001 


49 


12 


8 


1 


9020 












74* 


1010 


4A 


12 


8 


2 


8820 







20 (U) 


02 




75* 


1011 


4B 


12 


8 


3 


8420 


(period) 


4B 


6B(L) 


00 


6E 


76* 


1100 


4C 


12 


8 


4 


8220 


< 




02 (U) 


DE 




77* 


1101 


4D 


12 


8 


5 


8120 


( 


4D 


19 U) 
70 (U) 


FE 


57 


78* 


L 1110 


4E 


12 


8 


6 


80A0 


+ 


4E 


DA 


6D 


79* f 1 11 1 


4F 


12 


8 


7 


8060 


1 (logical OR) 




3B(U) 


C6 




80* 0101 0000 


50 


12 






8000 


& 


50 


70 (L) 


44 


15 


81 


0001 


51 


12 1 


1 9 


1 


D010 












82 


0010 


52 


12 1 


1 9 


2 


C810 












83 


0011 


53 


12 1 


1 9 


3 


C410 












84 


0100 


54 


12 1 


1 9 


4 


C210 












85 


0101 


55 


12 1 


1 9 


5 


C110 












86 


0110 


56 


12 1 


1 9 


6 


C090 












87 


0111 


57 


12 1 


1 9 


7 


C050 












88 


1000 


58 


12 1 


1 9 8 




C030 












89 


1001 


59 




1 8 


1 


5020 












90* 


1010 


5A 




1 8 


2 


4820 


1 




5B(U) 


42 




91* 


1011 


5B 




1 8 


3 


4420 


$ 


5B 


5B(L) 


40 


62 


92* 


1100 


5C 




1 8 


4 


4220 


* 


5C 


08(U) 


D6 


23 


93* 


1101 


50 




1 8 


5 


4120 


) 


5D 


1A(U) 


F6 


2F 


94* 


1110 


5E 




1 8 


6 


40A0 






13 (U) 


D2 




95* 1 


' mi 


5F 




1 8 


7 


4060 


A (logical NOT) 




6B(U) 


F2 




96* 0110 0000 


60 








4000 


- (dash) 


60 


40 (L) 


84 


61 


97* 


0001 


61 







1 


3000 


/ 


61 


31 (L) 


BC 


4C 


98 


0010 


62 




1 9 


2 


6810 












99 


0011 


63 




1 9 


3 


6410 












100 


0100 


64 




1 9 


4 


6210 












101 


0101 


65 




1 9 


5 


6110 












102 


0110 


66 




1 9 


6 


6090 












103 


0111 


67 




1 9 


7 


6050 












104 


1000 


68 




10 9 8 




6030 












105 


1001 


69 




8 


1 


3020 












106 


1010 


6A 


12 1 


1 




COOO 












107* 


1011 


6B 




8 


3 


2420 


, (comma) 


6B 


3B(L) 


80 


16 


108* 


1100 


6C 




8 


4 


2220 


% 




15 (U) 


06 




109* 


1101 


6D 




8 


5 


2120 


_ (underscore) 




40 (U) 


BE 




110* 


1110 


6E 




8 


6 


20A0 


> 




07 (U) 


46 




111* ' 


1 mi 


6F 




8 


7 


2060 


? 




31 (U) 


86 




112 01 


1 1 0000 


70 


12 1 


1 




EO00 












113 


0001 


71 


12 1 


1 9 


1 


F010 












114 


0010 


72 


12 1 


1 9 


2 


E810 












115 


0011 


73 


12 1 


1 9 


3 


E410 












116 


0100 


74 


12 1 


1 9 


4 


E210 












117 


0101 


75 


12 1 


1 9 


5 


El 10 












118 


0110 


76 


12 1 


1 9 


6 


E090 












119 


0111 


77 


12 1 


1 9 


7 


E050 












120 


1000 


78 


12 1 


10 9 8 




E030 












121 


1001 


79 




8 


1 


1020 












122* 


1010 


7A 




8 


2 


0820 






04 (U) 


82 




123* 


1011 


7B 




8 


3 


0420 


# 




0B(L) 


CO 




124* 


1100 


7C 




8 


4 


0220 


@ 




20 (L) 


04 




125* 


1101 


7D 




8 


5 


0120 


' (apostrophe) 


7D 


16 (U) 


E6 


0B 


126* 


1110 


7E 




8 


6 


00A0 


= 


7E 


OKU) 


C2 


4A 


127* 1 


r mi 


7F 




8 


7 


0060 






0B(U) 


E2 





Any code other than those defined for 1 132 is 
interpreted by the PRNT1 subroutine as a blank. 



M-2 



Ref 


EBCDIC 


IBM card code 


Graphics and 


1132 
Printer 


PTTC/8 
hex 


Console 


1403 














Binary 


Hex 




Rows 


Hex 








printer 


Printer 


no. 












control names 


EBCDIC 


U-upper case 








0123 4567 




12 


11 9 8 7-1 






subset hex 


L-lower case 


hex 


hex 


128 


1000 0000 


80 


12 


8 1 


B020 












129 




0001 


81 


12 


1 


B000 


a 










130 




0010 


82 


12 


2 


A800 


b 










131 




0011 


83 


12 


3 


A400 


c 










132 




0100 


84 


12 


4 


A200 


d 










133 




0101 


85 


12 


5 


A 100 


e 










134 




0110 


86 


12 


6 


A080 


f 










135 




0111 


87 


12 


7 


A040 


9 










136 




1000 


88 


12 


8 


A020 


h 










137 




1001 


89 


12 


9 


A010 


i 










138 




1010 


8A 


12 


8 2 


A820 












139 




1011 


8B 


12 


8 3 


A420 












140 




1100 


8C 


12 


8 4 


A220 












141 




1101 


8D 


12 


8 5 


A120 












142 




1110 


8E 


12 


8 6 


AOAO 












143 


< 


F 1111 


8F 


12 


8 7 


A060 












144 


1001 0000 


90 


12 


11 8 1 


D020 












145 




0001 


91 


12 


11 1 


D000 


I 










146 




0010 


92 


12 


11 2 


C800 










147 




0011 


93 


12 


11 3 


C400 


1 










148 




0100 


94 


12 


11 4 


C200 


m 










149 




0101 


95 


12 


11 5 


C100 


n 










150 




0110 


96 


12 


11 6 


C080 


o 










151 




0111 


97 


12 


11 7 


C040 


p 










152 




1000 


?8 


12 


11 8 


C020 


q 










153 




1001 


99 


12 


11 9 


C010 


r 










154 




1010 


9A 


12 


11 8 2 


C820 












155 




1011 


9B 


12 


11 8 3 


C420 












156 




1100 


9C 


12 


11 8 4 


C220 












157 




1101 


9D 


12 


11 8 5 


C120 












158 




1110 


9E 


12 


11 8 6 


COAO 












159 


' 


' 1111 


9F 


12 


11 8 7 


C060 












160 


1010 0000 


A0 




11 8 1 


7020 












161 




0001 


Al 




11 1 


7000 












162 




0010 


A2 




110 2 


6800 


s 










163 




0011 


A3 




110 3 


6400 


t 










164 




0100 


A4 




110 4 


6200 


u 










165 




0101 


A5 




110 5 


6100 


V 










166 




0110 


A6 




110 6 


6080 


w 










167 




0111 


A7 




110 7 


6040 


X 










168 




1000 


A8 




110 8 


6020 


y 










169 




1001 


A9 




11 9 


6010 


z 










170 




1010 


AA 




11 8 2 


6820 












171 




1011 


AB 




11 8 3 


6420 












172 




1100 


AC 




11 8 4 


6220 












173 




1101 


AD 




11 8 5 


6120 












174 




1110 


AE 




11 8 6 


60A0 












175 


' r mi 


AF 




11 8 7 


6060 












176 


1011 0000 


BO 


12 


11 8 1 


F020 












177 




0001 


Bl 


12 


11 1 


FOOO 












178 




0010 


B2 


12 


110 2 


E800 












179 




0011 


B3 


12 


110 3 


E400 












180 




0100 


B4 


12 


110 4 


E200 












181 




0101 


B5 


12 


110 5 


E100 












182 




0110 


B6 


12 


110 6 


E080 












183 




0111 


87 


12 


110 7 


E040 












184 




1000 


B8 


12 


110 8 


E020 












185 




1001 


B9 


12 


11 9 


E010 












186 




1010 


BA 


12 


11 8 2 


E820 












187 




1011 


BB 


12 


11 8 3 


E420 












188 




1100 


BC 


12 


11 8 4 


E220 












189 




1101 


BD 


12 


11 8 5 


E120 












190 




1110 


BE 


12 


11 8 6 


EOAO 












191 


' 


' 1111 


BF 


12 


11 8 7 


E060 













Character Code Set M-3 



Ref 


EBCDIC 


IBM card code 


Graphics and 


1132 
Printer 


PTTC/8 
hex 


Console 
printer 


1403 
Printer 


EJinary 


Hex 




Rows 




Hex 


no. 














control names 


EBCDIC 


U-uppercase 








0123 4567 




12 11 9 8 


7-1 










hex 


hex 


















subset hex 


L -lower case 






192 1100 0000 


CO 


12 







AOOO 


(+ zero) 










193* 


000 1 


CI 


12 




1 


9000 


A 


CI 


61 (U) 


3C or 3E 


64 


194* 


00 10 


C2 


12 




2 


8800 


B 


C2 


62 (U) 


18 or 1A 


25 


195* 


OOll 


C3 


12 




3 


8400 


C 


C3 


73 (U) 


1C or IE 


26 


196* 


0100 


C4 


12 




4 


8200 


D 


C4 


64 (U) 


30 or 32 


67 


197* 


OlOl 


C5 


12 




5 


8100 


E 


C5 


75 (U) 


34 or 36 


68 


198* 


OHO 


C6 


12 




6 


8080 


F 


C6 


76 (U) 


10 or 12 


29 


199* 


01 1 1 


C7 


12 




7 


8040 


G 


C7 


67 (U) 


14 or 16 


2A 


200* 


1000 


C8 


12 


8 




8020 


H 


C8 


68 (U) 


24 or 26 


6B 


201* 


1001 


C9 


12 


9 




8010 


1 


C9 


79 (U) 


20 or 22 


2C 


202 


1010 


CA 


12 


9 8 


2 


A830 












203 


1011 


CB 


12 


9 8 


3 


A430 












204 


1100 


cc 


12 


9 8 


4 


A230 












205 


1101 


CD 


12 


9 8 


5 


A130 












206 


1110 


CE 


12 


9 8 


6 


AOBO 












207 i 


1111 


CF 


12 


9 8 


7 


A070 












208 1101 0000 


DO 




1 




6000 


(- zero) 










209* 


0001 


Dl 






1 


5000 


J 


Dl 


51 (U) 


7C or 7 E 


58 


210* 


0010 


D2 






2 


4800 


K 


D2 


52 (U) 


58 or 5A 


19 


211* 


0011 


D3 






3 


4400 


L 


D3 


43 (U) 


5C or 5E 


1A 


212* 


0100 


D4 






4 


4200 


M 


D4 


54 U) 
45 (U) 


70 or 72 


5B 


213* 


0101 


D5 






5 


4100 


N 


D5 


74 or 76 


1C 


214* 


0110 


D6 






6 


4080 


O 


D6 


46 (U) 
57 (U) 


50 or 52 


50 


215* 


0111 


D7 






7 


4040 


P 


D7 


54 or 56 


5E 


216* 


1000 


D8 




1 8 




4020 


Q 


D8 


58 (U) 


64 or 66 


IF 


217* 


1001 


D9 




1 9 




4010 


R 


D9 


49 (U) 


60 or 62 


20 


218 


1010 


DA 


12 1 


1 9 8 


2 


C830 












219 


1011 


DB 


12 1 


1 9 8 


3 


C430 












220 


1100 


DC 


12 1 


1 9 8 


4 


C230 












221 


1101 


DD 


12 1 


1 9 8 


5 


C130 












222 


1110 


DE 


12 1 


1 9 8 


6 


COBO 












223 


' 


mi 


DF 


12 1 


1 9 8 


7 


C070 












224 


ll 


10 0000 


EO 




8 


2 


2820 












225 


0001 


El 


1 


1 9 


1 


7010 












226* 


0010 


E2 







2 


2800 


S 


E2 


32 (U) 


98 or 9A 


0D 


227* 


0011 


E3 







3 


2400 


T 


E3 


23 (U) 


9C or 9E 


0E 


228* 


0100 


E4 







4 


2200 


U 


E4 


34 (U) 


B0 or B2 


4F 


229* 


0101 


E5 







5 


2100 


V 


E5 


25 (U) 


B4 or B6 


10 


230* 


0110 


E6 







6 


2080 


W 


E6 


26 (U) 


90 or 92 


51 


231* 


0111 


E7 







7 


2040 


X 


E7 


37 (U) 


94 or 96 


52 


232* 


1000 


E8 




8 




2020 


Y 


E8 


38 (U) 


A4 or A6 


13 


233* 


1001 


E9 




9 




2010 


Z 


E9 


29 (U) 


A0 or A2 


54 


234 


1010 


EA 




10 9 8 


2 


6830 












235 


1011 


EB 




10 9 8 


3 


6430 












236 


1100 


EC 




10 9 8 


4 


6230 












237 


1101 


ED 




10 9 8 


5 


6130 












238 


1110 


EE 




10 9 8 


6 


60B0 












239 1 


' mi 


EF 




10 9 8 


7 


6070 












240* 1111 0000 


FO 









2000 





FO 


1A(L) 


C4 


49 


241* 


0001 


Fl 






1 


1000 


1 


Fl 


01(10 


FC 


40 


242* 


0010 


F2 






2 


0800 


2 


F2 


02 (L) 


D8 


01 


243* 


0011 


F3 






3 


0400 


3 


F3 


13 (L) 


DC 


02 


244* 


0100 


F4 






4 


0200 


4 


F4 


04 (L) 


F0 


43 


245* 


0101 


F5 






5 


0100 


5 


F5 


15 (L) 


F4 


04 


246* 


0110 


F6 






6 


0080 


6 


F6 


16 (L) 


DO 


45 


247* 


0111 


F7 






7 


0040 


7 


F7 


07 (L) 


D4 


46 


248* 


1000 


F8 




8 




0020 


8 


F8 


08 (L) 


E4 


07 


249* 


1001 


F9 




9 




0010 


9 


F9 


19 (L) 


E0 


08 


250 


1010 


FA 


12 1 


10 9 8 


2 


E830 












251 


1011 


FB 


12 1 


10 9 8 


3 


E430 












252 


1100 


FC 


12 1 


10 9 3 


4 


E230 












253 


1101 


FD 


12 1 


10 9 8 


5 


E130 












254 


1110 


FE 


12 1 


10 9 8 


6 


EOBO 












255 


nn 


FF 


12 1 


10 9 8 


7 


E070 













VI -4 



Glossary- Index 



data files, initializing for use with FORTRAN unformatted 

I/O 6-27 
$DUMP entry (skeleton supervisor) use by CIL 3-13. 
$EX1T entry (skeleton supervisor) use by CIL 3-13 
$LINK entry (skeleton supervisor) use by CIL 3-14 
$PRET address, indicates preoperative error 3-2 
$PST! address, indicates postoperative error 3-2 
$PST2 address, indicates postoperative error 3-2 
SPST3 address, indicates postoperative error 3-2 
$PST4 address, indicates postoperative error 3-2 
** header information FORTRAN control record 
format 5-69 

printing a header on each page 5-69 
♦ARITHMETIC TRACE (see also ARITHMETIC TRACE 

FORTRAN control record) 5-70 
*COMMON (see also COMMON assembler control record) 5-63 

* DEFINE (see also DEFINE DUP control record) 5-45 

* DELETE (see also DELETE DUP control record) 5-44 
*DI !LE (see also DFILE DUP control record) 5-48 
*DUMP (see also DUMP DUP control record) 5-22 
*DUMPDATA (see also DUMPDATA DUP control record) 5-24 

* DUMP DATA E (see also DUMPDATA E DUP control 
record) 5-26 

♦DUMPFLET (see also DUMPFLET DUP control record) 5-29 
*DUMPLET (see also DUMPLET DUP control record) 5-28 
♦DWADR (see also DWADR DUP control record) 5-47 
♦END (see also END MODSF patch control record) 4-19 
♦EQUAT (see also EQUAT supervisor control record) 5-17 
♦EXTENDED PRECISION (see also EXTENDED PRECISION 
FORTRAN control record) 5-68 

* FILES (see also FILES supervisor control record) 5-15 
*G2250 (sec also G2250 supervisor control record) 5-16 
*IOCS (see also IOCS FORTRAN control record) 5-65 

* LEVEL (see also LEVEL assembler control record) 5-61 
*LIST (see also LIST assembler control record) 5-53 

♦LIST ALL (see also LIST ALL FORTRAN control record) 5-67 
*LIST DECK (see also LIST DECK assembler control 

record) 5-57 
♦LIST DECK E (see also LIST DECK E assembler control 

record) 5-59 
*LIST SOURCE PROGRAM (see also LIST SOURCE PROGRAM 

FORTRAN control record) 5-66 
♦LIST SUBPROGRAM NAMES (see also LIST SUBPROGRAM 

NAMES FORTRAN control record) 5-66 
*LIST SYMBOL TABLE (see also LIST SYMBOL TABLE 

FORTRAN control record) 5-67 
*LOCAL (see also LOCAL supervisor control record) 5-13 
*MACLIB (see also MACLIB assembler control record) 5-63 
*MACRO UPDATE (see also MACRO UPDATE DUP control 

record) 5-49 
♦MON (see also MON MODIF patch control record) 4-9 
*NAME (see also NAME FORTRAN control record) 5-69 
*NOCAL (see also NOCAL supervisor control record) 5-14 
♦ONE WORD INTEGERS (see also ONE WORD INTEGERS 

FORTRAN control record) 5-68 
♦ORIGIN (see also ORIGIN FORTRAN control record) 5-7 1 
♦OVERFLOW SECTORS (see also OVERFLOW SECTORS 

assembler control record) 5-61 
*PRINT SYMBOL TABLE (see also PRINT SYMBOL TABLE 

assembler control record) 5-59 
*PRO (see also PRO MODSF control record) 4-15 



♦PUNCH SYMBOL TABLE (see also PUNCH SYMBOL TABLE 

assembler control record) 5-59 
♦SAVE SYMBOL TABLE (see also SAVE SYMBOL TABLE 
assembler control record) 5-60 
♦STORE (see also STORE DUP control record) 5-30 
♦STQRECI (see also STORECI DUP control record) 5-38 
♦STOREDATA (see also STOREDATA DUP control record) 5-33 
♦STOREDATACI (see also STOREDATAC1 DUP control 

record) 5-37 
♦STOREDATAE (see also STOREDATAE DUP control 
record) 5-34 

♦STOREMOD (see also STOREMOD DUP control record) 5-42 
♦SUB (see also SUB MODIF patch control record) 4-12 
♦SYSTEM SYMBOL TABLE (see also SYSTEM SYMBOL TABLE 
assembler control record) 5-60 
♦TRANSFER TRACE (see also TRANSFER TRACE FORTRAN 

control record) 5-70 
♦TWO PASS MODE (see also TWO PASS MODE assembler control 

record) 5-52 
♦XREF (see also XREF assembler control record) 5-56 
// * (comments) monitor control record (see also comments 
monitor control record) 5-9 
I ASM (see also ASM monitor control record) 5-5 
/ CEND (see also CEND monitor control record) 5-1 1 
/ COBOL (see also COBOL monitor control record) 5-6 
I CPRNT (see also CPRNT monitor control record) 5-1 1 
/ DEND (see also DEND MODIF patch control record) 4-1 3 
/ DUP (see also DUP monitor control record) 5-6 
/ EJECT (see also EJECT monitor control record) 5-11 
/ FOR (see also FOR monitor control record) 5-6 
/ JOB (see also JOB monitor control record) 5-2 
/ PAUS (see also PAUS monitor control record) 5-10 
/ records read during FORTRAN program execution 6-5 1 
/ RPG (see also RPG monitor control record) 5-6 
/ TEND (see also TEND monitor control record) 5-10 
/ TYP (see also TYP monitor control record) 5-1 
/ XEQ (see also XEQ monitor control record) 5-7 
@DCOM (see DCOM) 
@HDNG, on a system cartridge 2-6 
@IDAD (see IDAD) 
@RIAD, on a system cartridge 2-6 
@RTBL, on a system cartridge 2-6 



A-conversion, FORTRAN 6-50 
absolute address 3-10 

An address that indicates the exact storage location 

where data is found or stored. 
absolute program 3- 10 

A DSF program to which you assign an origin so that 

the program can he executed from that core location 

only, 
absolute starting address, defining with *ORIGIN FORTRAN 

control record 5-7 1 
acronyms used in DUP operations 5-20 
adding system library subroutines (MODIF) 4-12 
address formats used in this publication 
hexadecimal 1-2 
symbolic 1-2 
addresses, appendix K, decimal and hexadecimal disk K-l 
ADRWS disk maintenance program 4-8 
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allocation addresses, locating FORTRAN 6-18 
altering LET and FLET with DUP control records 5-20 
altering the contents of a core location 7-14 
analyzing disk cartridges, operating procedure 9-36 
appendixes 

A, monitor system operational and error messages A-l 

B, monitor system error wait codes B-l 

C, monitor system library listing C-l 

D, LET/FLET D-l 

E, system location equivalence table (SLET) E-l 

F, core dump F-l 

G, resident monitor G-l 

H, monitor system sample programs H-l 

I, formats 1-1 

J, field type examples for DFCNV J-l 

K, decimal and hexadecimal disk addresses K-l 

L, disk storage unit conversion factors L-l 

M, character code set M-l 
ARITHMETIC TRACE FORTRAN control record 

format 5-70 

tracing variable values during execution 5-70 
arithmetic tracing, how to stop 5-70 
ASM monitor control record 

format 5-5 

general function 5-5 
assembler 

CALL TSTOP 5-70 

CALLTSTRT 5-70 

deleting with the *DEFINE DUP control record 5-46 

description 3-5 

error codes A-2 

error messages A-2 

FILE statement 3-10 

listing of error codes A-3 

listing of error messages A-5 

loading 8-8 

monitor system program 3-5 
assembler control records 5-50 

♦COMMON 5-63 

♦LEVEL 5-61 

*LIST 5-53 

*LIST DECK 5-57 

*LIST DECK E 5-59 

*MACLIB 5-63 

♦OVERFLOW SECTORS 5-6 1 

*PRINT SYMBOL TABLE 5-59 

*PUNCH SYMBOL TABLE 5-59 

*SAVE SYMBOL TABLE 5-60 

♦SYSTEM SYMBOL TABLE 5-60 

*TWO PASS MODE 5-52 

*XREF 5-56 

coding for keyboard and paper tape input 5-5 1 

general functions 5-50 

how to code 5-5 1 

where placed in the input stream 5-50 
assembler core load 

A core load that is built from a mainline written in 
assembler language. 
assembler core map, reading an 6-14 
assembler disk File organization and processing 6-27 
assembler error codes 

description of A-2 

assembler error codes listing of A-3 
assembler error messages 

description of A-2 

listing of A-5 
assembler INT REQ service subroutine 6-45 
assembler language programmers, tips for 6-35 



assembler listing 

printing with a cross reference symbol table 5-57 

printing with statement numbers 5-57 

reading an 5-54 and 55 
assembler mnemonics, grouping of 6-35 
assembler program 5-5 3 

assigning a core load origin 3-10 

calling sequence for SYSUP 6-20 

double buffering 6-35 

grouping of mnemonics 6-35 

using index register 3 6-35 

using the LOCAL-calls-a-LOCAL option 6-10 

using the 1403 conversion subroutines 6-37 
assembler sample program H-7 
assembler two pass mode, how to use 5-52 

assignment of the origin of a core load, core load construction 3-9 
auxiliary supervisor 

disk resident supervisor program 3-3 

error messages A-5 8 



B-field type, DFCNV J-4 

backspace key (*-) 
use of 7-12 

when TYPEZ is used 7-13 
when TYPE0 is used 7-12 

binary patch data record format 4-12 

binary patch data records, MODIF 4-12 

bits, number is a word 2-3 



C-field type, DFCNV J-4 
calculating 

ISAM file parameters (sample program) H-17 
ISAM file sizes 6-29 
sequentially organized file sizes 6-29 
CALL, restriction on number in a core load 3-13 
call system print subroutine 4-4 
CALL subroutine 

A subroutine that must be referenced with a CALL 

statement, Ihe type codes for subroutines in this 

category are 4 and. 6. 
CALL TSTOP statement, assembler 5-70 
CALL TSTRT statement, assembler 5-70 
CALL TV 3-13 

The transfer vector through which CALL subroutines . 

are entered during execution. 
calling the macro update program 5-49 
CALPR, system library utility subroutine 4-4 
card core image loader wait code B-9 
card formats 1-6 

card core image format (CDC) 1-1 1 

The format in which a program stored in disk core 

image format is dumped to cards. 
card data format (CDD) 1-1 1 

The format in which a data file is dumped to cards. 
card system format (CDS) 1-6 

Ihe format in which absolute and relocatable programs 

are punched into cards. In this format, columns 73 

through 80 contain the card ID and sequence number. 
card input at the RJE work station 10-2 
Card Punch, readying the 1442 Model 5 7-5 
card read errors, 1442 B-6 

Card Read Punch, readying the 1442 Model 6 and 7 7-5 
card reader, entering jobs from the 7-12 
Card Reader, readying the 2501 7-6 
card sequencing and ID field 1-6 
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card subroutine errors 
1442 B-5 
2501 B-8 
card system cold start procedure 7-11 
card system initial load 

materials needed for 8-15 
operating procedure 8-15 
organization of cards for 8-15 
card system preload 

materials needed for 8-24 
operating procedure 8-24 
card system reload 

materials needed for 8-25 
operating procedure 8-26 
organization of cards for 8-20 
cartridge (see disk) 

cartridge assignments, specifying logical 5-4 
cartridge copy code (COPY), in sector @IDAD 2-5 
cartridge ID (CIDN), in sector @IDAD 2-5 
cartridge IDs 

changing 4-7 
printing 4-5 
cartridges 

restoring destroyed 6-5 
summary of the contents of disk 2-14 
CDC program card format 1-1 1 
CDD data file card format 1-1 1 
CDS data card format 1-9 
CDS piogram 

end-of-program card 1-10 
format 1-6 
ILS header card 1-9 
ISS header card 1-8 
mainline header card 1-6 
subprogram header card 1-7 
CEND monitor control record 
format 5-1 1 

reassigns principal printer 5-11 
Central Processing Unit, readying the 1131 7-2 
changed LOGON affect on RJE input 10-3 
changing cartridge IDs 4-7 

changing cartridges during a job, how to use SYSUP when 6-20 
changing the size of the fixed area, *DEFINE DUP control 

record 5-45 
character code set, appendix M M-l 
checksum 4-12 

The two's complement of the logical sum of the record 
count and the data words in the record. Before the monitor 
system computes a checksum when data word 2 contains 
a value, data word 2 is saved and changed to zero. The 
logical sum is obtained by arithmetically summing the 
record number and the contents of each of the 54 data 
words in the record. Each time a carry occurs out of the 
high-order position, one is added before the addition of 
the next data word. The two's complement of this logi- 
cal sum is the checksum. 

The term record number (count) should not be con- 
fused with the sequence number that appears in columns 
73 through 80. A card is a record. The first record (a type 
I or 2 header card) is record one (not zero). The beginning 
of each program or program phase starts a new record 
count. 
CIB {see core image buffer) 
CIL {see core image loader) 
CLB {see core load builder) 
COBOL monitor control record 
format 5-6 
general function 5-6 
codes 

card core image loader wait B-9 
FORTRAN codes A-7 
FORTRAN I/O wait B-10 



codes (Continued) 

monitor system error wait B-l 

PTUTL error wait B-9 

RPG object program wait B-l 2 and 13 
coding an INT REQ service subroutine, rules for 6-45 
cold start 

error waits B-l 

in sector @IDAD 2-5 

me ssage s p rin ted du ring 7-10 

procedure 7-10 

procedure for card system 7-1 1 

procedure for paper tape system 7-1 1 

to stop the DCIP operating procedures 9-10 

when changing cartridges on a one drive system 2-3 
cold start card 8-24 

The card that contains the coding necessary for initial 
program loading (IPL), that is, calling the cold start 
program. 
cold start procedure 7-10 

card system 7-1 1 

paper tape system 7-11 
cold start program 2-4 

The disk resident program that initializes the monitor 
system by reading the resident monitor into core from 
the disk. 
cold start program error waits B-l 
cold start program in sector @IDAD 2-5 
COMMA {see core communications area) 
comment 5-9 

The text contained on a monitor control record with an 
asterisk in column 4, an assembler language source record 
with an asterisk in column 21, a FORTRAN source 
record with a C in column 1, or an RPG specification 
with an asterisk in column 7. 
comments monitor control record, // * 5-9 

format 5-9 

general function 5-9 
COMMON, defining the length of (*COMMON assembler control 

record) 5-63 
COMMON, low, how processed by core image loader 3-14 
COMMON assembler control record 

defining the length of common 5-63 

format 5-63 
communication considerations, RJE 10-1 
comparing disk cartridges, operating procedure (DCIP) 9-40 
compilation error messages, FORTRAN A-7 
compilation messages, FORTRAN A-7 
compiler 

FORTRAN 3-6 

RPG 3-6 
compiler error notes 

listing of RPG A-40 

RPG A-38 
compiler messages, RPG A-38 
compilers 

deleting the 5-46 

loading the 8-8 
components of disk storage 2-2 
computing 

file lable for ISAM files 6-30 

file sizes for DFCNV 4-23 

index sectors for ISAM files 6-30 

overflow sectors for ISAM files 6-30 

prime data sectors of ISAM files 6-30 

number of sectors to be reserved by *DFILE 6-9 
configuration, minimum system iii 
console entry switches, RJE 10-12 
console keyboard, entering jobs from the 7-12 
console keyboard procedures, RJE 10-10 
console operator keys, functions during monitor system 

control 7-13 
console printer 

FORTRAN program control of 6-50 

subroutine errors B-8 
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console printer core dump stand-alone utility program 

format 9-1 

materials needed to use the 9-1 

operating procedure 9-2 
console printer subroutine errors B-8 
construction of a core load 3-7 
construction of the core image header 3-9 
contents of an ISAM file, assembler and RPG disk file organization 

and processing 6-3 1 
contents of CLB during core load construction 3-7 
conte'nts of disk cartridges, summary of the 2-14 
contents of ISAM file 

index 6-32 

labels 6-31 

overflow area 6-33 

prime data area 6-33 
contents of the CLB during core load construction 3-8 
contents of working storage during core load construction 3-8 
continuing RJE output 10-7 
control character types for RJE user-exit data 10-8 
control record 

One of the records (card or paper tape) that directs the 
activities of the monitor system. For example, the II 
DUP monitor control record directs the monitor to 
initialize DUP; the *DUMPLET DUP control record 
directs DUP to initialize the DUMPLET program; the 
*EXTENDED PRECISION FORTRAN control record 
directs the FORTRAN compiler to allot 3 words instead 
of 2 for the storage of variables. 
control record analyzer monitor 3-3 
control record analyzer supervisor 3-3 
control records 5-1 

** header information, FORTRAN 5-69 

♦ARITHMETIC TRACE, FORTRAN 5-70 

*COMMON, assembler 5-63 

*DEFINE, DUP 5-45 

* DELETE, DUP 5-44 

*DFILE, DUP 5-48 

*DUMP, DUP 5-22 

♦DUMPDATA, DUP 5-24 

♦DUMPDATA E, DUP 5-26 

♦DUMPFLET, DUP 5-29 

♦DUMPLET, DUP 5-28 

♦DWADR, DUP 5-47 

*END patch, MODSF 4-19 

♦EQUAT, supervisor 5-17 

*EXTENDED PRECISION, FORTRAN 5-67 

♦FILES, supervisor 5-15 

♦G2250, supervisor 5-16 

♦IOCS, FORTRAN 5-65 

*LEVEL, assembler 5-61 

♦LIST ALL, FORTRAN 5-67 

♦LIST, assembler 5-53 

*LIST DECK, assembler 5-57 

♦LIST DECK E, assembler 5-59 

♦LIST SOURCE PROGRAM, FORTRAN 5-66 

♦LIST SUBPROGRAM NAMES, FORTRAN 5-66 

*LIST SYMBOL TABLE, FORTRAN 5-67 

*LOCAL, supervisor 5-13 

♦MACLIB, assembler 5-63 

*MACRO UPDATE, DUP 5-49 

*MON patch, MODIF 4-9 

♦NAME, FORTRAN 5-69 

♦NOCAL, supervisor 5-14 

♦ONE WORD INTEGERS, FORTRAN 5-68 

♦ORIGIN, FORTRAN 5-7 1 

♦OVERFLOW SECTORS, assembler 5-61 

♦PRINT SYMBOL TABLE, assembler 5-59 



control record (continued) 

♦PRO patch, MODSF 4-15 

♦PUNCH SYMBOL TABLE, assembler 5-59 

*SAVE SYMBOL TABLE, assembler 5-60 

*STORE, DUP 5-30 

*STORECI, DUP 5-38 

♦STOREDATA, DUP 5-33 

♦STORED AT ACI, DUP 5-37 

*STOREDATAE, DUP 5-34 

♦STOREMOD, DUP 5-42 

♦SUB patch, MODIF 4-12 

♦SYSTEM SYMBOL TABLE, assembler 5-60 

♦TRANSFER TRACE, FORTRAN 5-70 

*TWO PASS MODE, assembler 5-5 2 

*XREF assembler 5-56 

// * (comments), monitor 5-9 

// ASM, monitor 5-5 

// CEND, monitor 5-11 

// COBOL, monitor 5-6 

'// CPRNT, monitor 5-11 

//DEND patch 4-13 

// DUP, monitor 5-6 

// EJECT, monitor 5-11 

// FOR, monitor 5-6 

// JOB, monitor 5-2 

// PAUS, monitor 5-10 

// RPG, monitor 5-6 

// TEND, monitor 5-10 

// TYP, monitor 5-10 

// XEQ, monitor 5-7 

control card, RPG 5-74 

core system loader that you punch 8-10 

DUP 5-18 

end-of-file, DFCNV 4-25 

end-of-file control card, RPG 5-74 

field specification, DFCNV 4-24 

file description, DFCNV 4-2 1 

FORTRAN 5-64 

IBM-supplied system loader 8-2 

load mode, system loader that you punch 8-8 

mainline program, DFCNV 4-21 

MODIF patch 4-9 

MODSF patch 4-15 

monitor 5-1 

optional DFCNV 4-24 

PHID, IBM-supplied system loader 8-2 

RPG 5-7 1 

SCON, IBM-supplied system loader 8-2 

supervisor 5-12 

system configuration system loader 8-9 

system loader that you punch 8-7 

TERM, IBM-supplied system loader 8-2 

tips for using ♦EQUAT 6-48 

type 81, IBM-supplied system loader 8-7 
conversion and transfer operations, summary of DUP 5-21 
conversion factors, appendix L, disk storage unit L-l 
conversion of the mainline program during core load 

construction 3-10 
conversion subroutines, assembler program use of 1403 6-37 
converting FORTRAN data files to RPG data files 4-20 
COPY 

(see also cartridge copy code) 

disk maintenance program 4-7 

error messages A-60 

messages A-60 
copying cartridges 

COPY disk maintenance program 4-7 

operating procedure (DCIP) 9-20 
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core communications area (COMMA) 3-2 

The part of core that is reserved for the work area and 
parameters required by the monitor programs. In general 
a parameter is found in COMMA if it is required by 2 or 
more monitor programs and is required to load a 
program stored in disk core image format. Otherwise, a 
parameter is found in DCOM. COMMA is initialized by 
the supervisor during the processing of a JOB monitor 
control record. 
core dump printout, appendix F F-l 
core dump programs 

console printer 9-1 

supervisor 3-3 

1403 Printer 9-4 

1132 Printer 9-1 
core image buffer (CIB) 2-8 

The buffer on which most of the first 4K of core is 
saved while a core load is being built. The CIB is also 
used to save any part of COMMON defined below 
location 4096 during a link-to-link transfer of control. 

contents during core load construction 3-7 

deleting 4-8 

on a nonsystern cartridge 2-13 

on a system cartridge 2-8 

specifying for current job 5-4 
core image header 

The part of a core image program that includes such 
parameters as the word count of the core load, the ITV, 
and the setting for index register 3. 

construction during core load build 3-9 

contents of 1-5 
core image header storage area, restriction on use by FORTRAN 

subroutines 3-9 
core image loader 3-1 3 

processing of low COMMON 3-14 

transfers core load into core 3-8 

use of $DUMP entry in skeleton supervisor 3-13 

use of $EXIT entry in skeleton supervisor 3-13 

use of $LINK entry in skeleton supervisor 3-14 
core image loader wait code, card B-9 
core image program 3-9 

A mainline that has been converted, along with all of 
its required subroutines, to disk core image format. 
Included in the core image program are any LOCALs 
and/or SOCALs that are required. This term should not 
be confused with core load, which refers to the part of 
a core image program that is read into core storage just 
prior to execution. 
core load 

A mainline, its required subroutines, and its interrupt, 
CALL and LIBF transfer vectors. This term should not 
be confused with core image program. 

assignment of origin 3-9 

construction of a 3-7 

layout in core ready for execution 3-14 

origin locations used by the core load builder 3-9 

restriction on number of CALLs in a 3-13 

restriction on number of LIBFs in a 3-1 3 

specifying I/O devices for FORTRAN 5-65 
core load builder (CLB) 3-7 

construction of a core load 3-7 

core load origin locations assigned by 3-9 

how called 3-7 

messages A-55 

provision for LOCALs 3-1 1 

provision for SOCALs 3-1 1 

use of core storage 3-8 

use' of the CIB 3-7 

use of working storage 3-8 



core load construction 

assignment of core load origin 3-9 

contents of CLB during 3-7 

contents of core storage during 3-8 

contents of working storage during 3-8 

conversion of mainline during 3- 1 

equating subroutines during 3-1 1 

incorporating subroutines during 3-10 

of core image header 3-9 

processing data files during 3-10 

processing of define file tables 3-10 

processing of transfer vector during 3-1 3 

processing the SCRA during 3-10 

substituting subroutines during 3-11 

useofFLIPR 3-11 
core load origin 

how assigned by an assembler programmer 3-10 

how assigned by a FORTRAN programmer 3-10 

locations assigned by the core load builder 3-9 
core location 

altering the contents of a 7-14 

displaying the contents of a 7-14 

selecting a 7-14 
core map 6-13 

how to specify printing of 5-8 

reading a FORTRAN 6- 1 5 and 1 6 

reading an assembler 6-14 

reading an RPG 6-18 
core storage 

contents during core load construction 3-8 

core load builder use of 3-8 

mainline programs that use all of 6-9 

manual dump of 7-14 
CORE system loader control record 

for card system 8-10 

for paper tape system 8-10 

format 8-10 
CPRNT monitor control record 

format 5-1 1 

how to avoid overprinting when using 6-5 

prints monitor and supervisor control records on console 
printer 5-1 1 
cross reference symbol table, how to read 5-57 
CSF block 

A group of data words, not more than 51, of a program 
in card system format. In this format, the first 6 data 
words of every CSF block are indicator words. These 6 
words are always present, even though all 6 are not 
needed. A CSF block is equivalent to words 4 through 
54 of the CSF module (data card) of which the block is 
a part. 
CSF module 

A group of words consisting of a data header and CSF 
blocks for a program in card system format. A CSF 
module is equivalent to a data card in card system format. 
A new CSF module is created for every data break. A 
data break occurs (1) for an ORG, BSS, BES, or DSA 
statement, (2) when a new data card is required to store 
the words of a program, and (3) at the end of a program. 
cushion area (in IBM system area) 2-6 

An area immediately following the system programs on 
disk that provides for expansion of the monitor system 
programs in a reload operation. The cushion area is 
initialized in an initial load to occupy the sectors 
remaining on the cylinder occupied by the system 
programs, plus one complete cylinder. 
cylinder, description of 2-2 
cylinder 

on a nonsystern cartridge 2-12 

on a system cartridge 2-3 
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D-field type, DFCNV J-5 
DATA command, RJE 10-5 
data card format, CDS 1-9 
data file 

A collection of data. Also, an area in either the user area 
or the fixed area in which data is stored. 
data file, DDF format 1-4 
data file names, duplicate 6-6 
data file processing 

assembler and RPG disk file organization and processing 6-27 

calculating ISAM file sizes 6-29 

calculating sequentially organized file sizes 6-29 

FORTRAN disk file organization and processing 6-23 

programming tips and techniques 6-23 
data files 

dumping and restoring 6-8 

FORTRAN converting to RPG data files 4-20 

initializing $$$$$ for use with FORTRAN unformatted 
I/O 6-27 

processing 6-23 

processing during core, load construction 3-10 

reserving disk space for (*DFILE DUP control record) 5-48 

RPG, converting FORTRAN data files to 4-20 
data formats NCF name code 1-15 
data header 1-2 

The first pair of words in a module for a program in 
disk system format. The first word contains the loading 
address of the module; the second the total number of 
words contained in the module. The data header for the 
last module contains the effective program length, 
followed by a word count of zero. 
data records 

keyboard input during FORTRAN program execution 6-50 

MODIF binary patch 4-12 

MODIF hexadecimal patch (hex) 4-11 

MODIF patch 4-1 1 

MODSF D-mode patch 4-19 

MODSF P-mode patch 4-17 

MODSF patch 4-17 
DATA statement, length of FORTRAN 6-5 1 
data words, number in a sector 2-3 
DCI format 

disadvantages of storing a program in 6-7 

storing a program in, *STORECI 5-38 
DCI program 

format 1-5 

header 1-5 
DCIP 

disk analysis subroutine 9-9 

disk compare subroutine 9-9 

disk copy subroutine 9-8 

disk dump subroutine 9-9 

disk patch subroutine 9-9 

initialization subroutine 9-8 

operating procedures 9-9 

stand-alone utility program 9-8 
DCIP operating procedures 9-9 

disk analysis 9-36 

disk compare 9-40 

disk copy 9-20 

disk dump 9-28 

disk initialization 9-12 

disk patch 9-32 

how to stop 9-10 

materials needed for 9-10 

preparation for 9-9 ,. 
DCIP program, loading the 9-1 1 



DCOM 

disk communications area 2-6 

on a nonsystem cartridge 2-6 

on a system cartridge 2-6 

update error messages A-37 
DCOM-SYSUP update error messages A-37 
DCYL defective cylinder table in sector @IDAD 2-5 
DDF data file format 1-4 

decimal and hexadecimal disk addresses, appendix K K-l 
defective cylinder table (DCYL), in sector @IDAD 2-5 
DEFINE DUP control record 

changing the size of the fixed area 5-45 

DEFINE FIXED AREA examples 5-46 

DEFINE FIXED AREA format 5-45 

DEFINE VOID format 5-46 

defining the fixed area 5-45 

deleting the assembler or compilers 5-46 
define file table 

The table at the beginning of every mainline that refers 
to defined files. This table contains one 7-word entry 
for each file that is defined. 

how processed during core load construction 3-10 
defined files, use of 6-9 
defining an absolute starting address, *ORIGIN FORTRAN 

control record 5-7 1 
defining the fixed area, * DEFINE DUP control record 5-45 
defining the length of COMMON, *COMMON assembler contirol 

record 5-63 
DELETE DUP control record 

deleting information from the UA or FX 5-44 

examples 5-44 

format 5-44 
deleting 

duplicate records caused by a disk error during an ISAM add 
operation 6-34 

I/O device subroutines 4-3 

information from the UA or FX 5-44 

the assembler or compilers 5-46 

the CIB 4-8 
DEND MODIF patch control record 

description 4-13 

format 4-13 
destroyed cartridges 

patching with DCIP 6-5 

restoring 6-5 

restoring sector addresses with DCIP 6-5 

restoring with a system reload 6-5 
device and machine requirements, RJE 10-1 
DFCNV disk maintenance program 4-20 

B-field type J-4 

C-field type J-4 

control records 4-21 

converting FORTRAN data files to RPG 4-20 

D-field type J-5 

E-field type J-6 

end-of-file control record 4-25 

error messages A-68 

example 4-25 

F-field type J-6 

field specification control record 4-24 

field type examples for J-l 

file description control record 4-21 

I-field type J-l 

J-field type J-2 

messages A-67 

optional control record 4-24 

R-field type J-2 

X-field type J-7 
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DFILE DUP control record 

computing the number of sectors to be reserved 6-9 
format 5-48 

reserving disk space for data files or macro libraries 5-48 
disadvantages of storing a program in DO format 6-7 
DISC disk maintenance program 4-6 
error messages A-59 
initializing satellite cartridges 4-6 
messages A-59 
discontinuing RJE output 10-7 
disk 1-2.1 

A single disk in an IBM 2315 Disk Cartridge or any one 
of 3 or 5 usable disks in an IBM 1316 Disk Pack, Model 
12 or 11. 
disk addresses, appendix K, decimal and hexadecimal K-l 
disk analysis subroutine, DCIP 9-9 
disk block 1-2 

One-sixteenth of a disk sector, that is, 20 disk words. A 
disk block is the smallest distinguishable increment for 
programs stored in disk system format. Thus, the monitor 
system permits packing of disk system format programs 
at smaller intervals than the hardware otherwise allows. 
disk cartridge (see disk) 

disk cartridge initialization program (see also DCIP) 9-8 
disk cartridges, summary of the contents of 2-14 
disk communications area (DCOM) 2-6 

The disk sector of cylinder that contains the work 
areas and parameters for the monitor programs. 
disk files, organization and processing of FORTRAN 6-23 
disk format, LET/FLET D-l 
disk formats 1-2 

disk core image format (DO) 1-5 

The format in which core image programs are stored on 
the disk prior to execution. 
disk data format (DDF) 1-4 

The format in which a data file is stored in either the 
user area or the fixed area. 
disk system format (DSF) 1-2 

The format in which mainlines and subprograms are 
stored on the disk as separate entities. A program in disk 
system format cannot be executed; it must first be 
converted to disk core image format with either an XEQ 
monitor control record or a STORECI DUP control 
record. 
disk I/O, how to specify FORTRAN unformatted 5-5 
disk I/O subroutine in the resident monitor 3-3 
disk I/O subroutines 
how to specify 5-8 
using the 6-4 
disk initialization, satellite 4-6 
disk input at the RJE work station 1 0-2 
disk maintenance programs 
ADRWS 4-8 
COPY 4-7 
DFCNV 4-20 
DISC 4-6 
DLOB 4-8 
DSLET 4-7 
ID 4-7 
IDENT 4-5 
MODIF 4-8 
MODSF 4-14 

system library mainline programs 4-5 
Disk Monitor System, operating the 1 130 7-1 
disk organization 2-1 
disk patch subroutine, DCIP 9-9 
disk placement of monitor system programs 3-1 
disk storage, components of 2-2 
Disk Storage Drive, readying the 2310 7-3 
disk storage unit conversion factors, appendix L L-l 
disk system format program 1-2 

A program that is stored in disk system format; 
sometimes called a DSF program. 



disk type (DTYP), in sector @IDAD 2-5 
disk utility program (DUP) 
description 3-4 
monitor system program 3-4 
DISKN, in the resident monitor 3-3 
disk-resident supervisor programs 
auxiliary supervisor 3-3 
monitor control record analyzer 3-3 
supervisor control record analyzer 3-3 
supervisor core dump program 3-3 
DISKZ 

in the resident monitor 3-3 
subroutine in sector @IDAD 2-5 
where stored on a system cartridge 2-7 
DISK1 in the resident monitor 3-3 
displaying the contents of a selected core location 7-14 
DLCIB disk maintenance program 
deleting the CIB 4-8 
error messages A-61 
messages A-61 
D-mode patch data record format 4-19 
double buffering example 6-36 
double buffering in assembler programs 6-35 
drive number, physical 1-2.3 
DSF block 1-2 

A group of data words, not more, than 9, of a program in 
disk system format. In this format, the first data word 
of every DSF block is an indicator word. Normally 
every DSF block in a DSF module consists of 9 data 
words, including an indicator word; but if the DSF 
module contains a number of data words that is not a 
multiple of 9, then the next-to-last DSF block contains 
less than 9 data words. 
DSF module 1-2 

A group of words consisting of a data header and DSF 
blocks for a program in disk system format. A new DSF 
module is created for every data break. A data break 
occurs (1) for every ORG, BSS, BES, or DSA statement, 
(2) when a new sector is required to store the words of 
a program, and (3) at the end of the program. 
DSF program 
format 1-2 
header 1-3 
DSLET dump SLET program 4-7 
DTYP, disk type in sector @IDAD 2-5 
DUMP DUP control record 

additional field information 5-24 
examples 5-24 
format 5-23 

transferring stored information to working storage or I/O 
devices 5-22 
dump format, LET/FLET D-2 
dump of core storage, manual 7-14 
dump program, supervisor core 3-3 
DUMPDATA DUP control record 
additional field information 5-26 
examples 5-26 
format 5-25 

transferring stored information to working storage or I/O 
devices 5-24 
DUMPDATA E DUP control record 
additional field information 5-27 
examples 5-28 
format 5-27 

transferring stored information to working storage or I/O 
devices 5-26 
DUMPFLET DUP control record 

additional field information 5-29 

examples 5-30 

format 5-29 

printing the contents of FLET 5-29 
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DUMPFLET listing D-6 

dumping and restoring data files, tips on monitor control and 

usage 6-8 
dumping disk: cartridges, operating procedure 9-28 
dumping FORTRAN DSF programs to cards 6-52 
dumping SLI)T, DSLET disk maintenance program 4-7 
DUMPLET DUP control record 

additional field information 5-28 

examples 5-29 

format 5-28 

printing the contents of LET 5-28 
DUMPLET listing D-3 
DUP control records 5-18 

♦DEFINE 5-45 

*DELETE 5^4 

*DFILE 5-48 

*DUMP 5-22 

*DUMPDATA 5-24 

*DUMPDATA E 5-26 

*DUMPFLET 5-29 

*DUMPLET 5-28 

*DWADR 5-47 

*MACRO UPDATE 5-49 

*STORE 5-30 

*STORECI 5-38 

*STOREDATA 5-33 

*STOREDATACI 5-37 

*STOREDATAE 5-34 

*STOREMOD 5-42 

altering LET and FLET with 5-20 

general coding information 5-18 and 19 

general functions 5-18 

information transfer and format conversion with 5-20 

where placed in input stream 5-18 
DUP error messages 

description of A-13 

listing of A-14 
DUP messages A-13 
DUP monitor control record 

format 5-6 

general function 5-6 
DUP transfer and conversion operations, summary of 5-21 
duplicate program and data file names 6-6 
duplicate program names, example 6-6 
duplicate records, deleting when caused by a disk error during 

an ISAM add operation 6-34 
DWADR DUP control record 

format 5-47 

writing sector addresses in WS 5-47 



E-field type, DFCNV J-6 
effective program length 

The ending address of a relocatable program. For 
example, in assembler language programs, this address 
is the last value used by the location assignment counter 
during assembly. This value is assigned to the END 
statement. 
EJECT monitor control record 
example 6-5 
format 5-11 

skips the printer to a new page 5-1 1 
usage of 6-5 
END MODSF patch control record 
description 4-19 
format 4-19 
end-of-data indicator for RJE user exit 10-9 
end-of-file control card, RPG 5-74 
end-of-file control record, DFCNV 4-25 



end-of-file indicators, RJE 10-6 
end-of-program card, CDS program 1-10 
ending address of RJE user exit data 10-8 
entering jobs 

from the card reader 7-12 

from the console keyboard 7-12 

from the paper tape reader 7-12 
entry point 

Either (1) the symbolic address (name) where a program 
is entered, (2) the absolute core address where a 
program is entered, or (3) the address, relative to the 
address of the first word of a subroutine, where a 
subroutine is entered. 
entry points to the skeleton supervisor 3-2 
EQUAT supervisor control record 

additional field information 5-17 

for substituting subroutines 5-17 

format 5-17 

maximum number of substitutions 5-17 

tips for using 6-48 
equatable FORTRAN I/O subroutines 6-48 
ERASE FIELD key 7-13 
error codes 

assembler, description A-2 

FORTRAN, description A-7 

listing of assembler A-3 

listing of FORTRAN A-9 
error messages 

assembler, description A-2 

auxiliary supervisor A-58 

COPY A-60 

DCOM update A-37 

DFCNV A-68 

DISC A-59 

DLCIB A-61 

DUP, description A-13 

FORTRAN compilation A-7 

ID A-60 

listing of assembler A-5 

listing of DUP A-14 

listing of MUP A-14 

MODIF A-62 

MODSF A-66 

MUP, description A-13 

RJE A-28 

SGJP A-26 

supervisor A-36 

system loader A-2 2 

SYSUP update A-37 
error notes 

listing of RPG compiler A-40 

RPG compiler, description A-38 
error recovery procedures, RJE 10-11 
error statistics, RJE 10-12 
error traps 

postoperative 3-2 

preoperative 3-2 

PROGRAM STOP key 3-2 
error wait codes 

appendix B, monitor system B-l 

PTUTL B-9 
error waits 

cold start program B-l 

ISS subroutine preoperative B-2 

listing of ISS subroutine B-3 
errors 

console printer subroutine B-8 

FORTRAN I/O 6-51 

I/O device subroutine B-5 
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errors (continued) 

paper tape subroutine B-9 
1442 card subroutine B-6 
2501 card subroutine B-8 
2501 card subroutine feed check B-8 
2501 card subroutine read check B-8 
execution 

The execution of a program specified on an XEQ monitor 
control record and any subsequent links executed via 
CALL LINK statements. The execution is complete when 
a CALL EXIT is executed. 
EXTENDED PRECISION FORTRAN control record 
format 5-68 
specifying extended FORTRAN precision 5-68 



F-field type, DFCNV J-6 

feed check error, 2501 card subroutine B-8 

field specification control record 

description 4-24 

example 4-24 

specifying repeated fields 4-24 
field type examples for DFCNV, appendix J J-l 
file description DFNCV control record 

additional field information 4-23 

description 4-2 1 

format 4-22 
file index, contents of an ISAM 6-32 
file label, computing for ISAM files 6-30 
fde labels, contents of ISAM 6-31 
file map, reading a 6-13 

file organization, indexed sequential (ISAM) 6-28 
file processing 

assembler and RPG disk file organization and processing 6-28 

sequential 6-28 
file records 

how FORTRAN formatted are written in sectors 6-25 

how unformatted FORTRAN are written in sectors 6-26 
file sizes 

calculating ISAM 6-29 

calculating sequentially organized 6-29 

computing for DFCNV 4-23 
FILE statement, assembler 3-10 
FILES supervisor control record 

additional field information 5-15 

continuing to another FILES control record 5-15 

equating program file numbers to stored data files 5-15 

format 5-15 

how processed 6-9 

maximum number of equated data files 5-15 
fixed area (FX) 

The area on disk in which you store core image programs 
and data files if you want them to always occupy the 
same sectors. Packing never occurs in the fixed area. 
Programs in disk system format cannot be stored in this 
area. 

changing the size of 5-45 

defining 5-45 

deleting information from 5-44 

description 2-9 

storing information in 
*STOREDATA 5-33 
*STOREDATACI 5-37 
*STOREDATAE 5-34 
FLET 

fixed location equivalence table 2-8 

printing the contents of 5-29 
FLET and LET, altering with DUP control records 5-20 



FLIPR 

core load construction use of 3-11 

system library utility subroutines 4-4 
flowchart blocks in operating procedures, functions of 1-1 
FOR monitor control record 

format 5-6 

general function 5-6 
format conversion and information transfer, DUP control 

records 5-20 
format of hexadecimal addresses used in this publication 1-2 
format of symbolic addresses used in this publication 1-2 
formats 

appendix I 1-1 

card 1-6 

CDC program card 1-1 1 

CDD data file card 1-1 1 

CDS data card 1-9 

CDS program 1-6 

data 1-15 

DO program 1-5 

DDF data file 1-4 

disk 1-2 

DSF program 1-2 

NCF 1-15 

paper tape 1-12 

PRD print 1-13 

print 1-13 
formatted disk file 

The organization of a FORTRAN disk data file to allow 
random accessing of fixed length records. Data 
conversion is not possible. 
formatted file records, how FORTRAN writes in sectors 6-25 
formatted FORTRAN I/O statements 6-25 
FORTRAN 

calling sequence for SYSUP 6-21 

compilation error messages A-7 

compilation messages A-7 

error codes, description A-7 

I/O wait codes B-10 

listing of error codes A-9 

messages A-7 
FORTRAN A-conversion 6-50 
FORTRAN allocation addresses, locating 6-18 
FORTRAN compiler, description 3-6 
FORTRAN control records 5-64 

**(header information) 5-69 

* ARITHMETIC TRACE 5-70 

*EXTENDED PRECISION 5-68 

*IOCS 5-65 

*LIST ALL 5-67 

*LIST SOURCE PROGRAM 5-66 

*LIST SUBPROGRAM NAMES 5-66 

*LIST SYMBOL TABLE 5-67 

*NAME 5-69 

*ONE WORD INTEGERS 5-68 

*ORIGIN 5-71 

TRANSFER TRACE 5-70 

general functions 5-64 

how to code 5-64 

where placed in the input stream 5-64 
FORTRAN core load 

A core load that is built from a mainline written in the 
FOR TRAN language. 

specifying I/O devices for 5-65 
FORTRAN core map, reading a 6-15 and 16 
FORTRAN data files, converting to RPG data files 4-20 
FORTRAN DATA statement, length of 6-5 1 
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FORTRAN disk files 

data file processing 6-23 

formatted FORTRAN I/O statements 6-25 

initializing $$$$$ data files 6-27 

organization and processing 6-23 

unformatted FORTRAN I/O statements 6-26 
FORTRAN DSF programs, dumping to cards 6-52 
FORTRAN formatted file records, how written in sectors 6-25 
FORTRAN I/O errors, tips for FORTRAN programmers 6-5 1 
FORTRAN I/O statements 

formatted 6-25 

unformatted 6-26 
FORTRAN I/O subroutines, equatable 6-48 
FORTRAN IOCS control record, I/O subroutines called by 6^9 
FORTRAN logical unit numbers 6-24 

FORTRAN object program paper tape data record format 6-49 
FORTRAN program 

control of the console printer 6-50 

listing a 5-66 

listing with subprogram names and symbol table 5-67 
FORTRAN program control of the console printer 6-50 
FORTRAN program execution 

// records read during 6-5 1 

keyboard input of data records during 6-50 
FORTRAN programmer, how to assign core load origin 3-10 
FORTRAN programmers, tips for 6-48 
FORTRAN READ and WRITE statements, maximum record sizes 

used in 6-24 
FORTRAN sample program H-l 
FORTRAN source cards, invalid characters in 6-49 
FORTRAN subprogram names, listing with a program and symbol 

table 5-67 
FORTRAN subroutines, restriction on use of core image header 

storage area 3-9 
FORTRAN symbol table, listing 5-67 

FORTRAN unformatted file records, how written in sectors 6-26 
FORTRAN unformatted I/O 

initializing $$$$$ data files for use with 6^27 

sample program using H-l 2 
FSLEN system library utility subroutines 4-4 
function 

A subprogram that evaluates a mathematical relation- 
ship between a number of variables. In FORTRAN, a 
FUNCTION is a subprogram that is restricted to a 
single value for the result. This type of subprogram is 
called by direct reference. 
functions of console operator keys during monitor system 

control 7-13 
functions of flowchart blocks in operating procedures 1-1 
header, construction of the core image 3-9 



generation of the 1130 RJE work station program 10-3 
grouping of assembler mnemonics 6-35 
G2250 supervisor control record 

examples 5-17 

format 5-16 

specifying use of graphic subroutine package 5-16 



halt codes (see wait codes) 
header 

DO program 1-5 

DSF program 1-3 
heading, how to specify a page 5-5 
hexadecimal address format used in this publication 1-2 
hexadecimal disk addresses, appendix K K-l 
hexadecimal MODIF patch data record (hex), format 4-1 1 



I-field type, DFCNV J-l 

I/O device subroutine errors B-5 

I/O devices 

list of principal 8-9 

specifying for FORTRAN coie loads 5-65 
I/O errors, FORTRAN 6-5 1 
I/O statements, unformatted FORTRAN 6-26 
I/O subroutines 

called by FORTRAN IOCS control record 6-49 

equatable FORTRAN 6-48 

how to specify disk 5-8 

using the disk 6-4 
I/O wait codes FORTRAN B-l 
IBM area 2-8 

That part of disk storage that is composed of DCOM, 
the CIB and.the monitor programs. This area is also 
known as the IBM system area or system area. 
IBM-supplied system loader control records 8-2 

PHID 8-3 

SCON 8-2 

system program sector break cards 8-4 

TERM 8-2 

type 81 8-7 
IBM system area 

CIB 2-8 

cushion area 2-6 

FLET 2-8 

LET 2-8 

SCRA in the 2-7 

system device subroutine area 2-7 
IBM system area on a nonsystem cartridge 2-13 
IBM system area on a system cartridge 2-6 
ID, disk maintenance program 4-7 

error messages A-60 

messages A-60 
IDAD 2-5 
IDENT, disk maintenance program 4-5 

messages A-59 
ILS branch table (IBT, see interrupt branch table) 

A table consisting of the addresses of the interrupt entry 
points for each ISS used for the interrupt level. An IBT 
is required by the ILS for an interrupt level with which 
more than one device is associated. 
ILS header card CDS program 1-9 
ILS subroutine example 6-44 
ILS subroutines, rules for writing 6-42 
ILSs 

how to specify special 5-8 

writing by assembler language programmers 6-42 
ILS02 in the skeleton supervisor 3-2 
ILS 04 in the skeleton supervisor 3-2 
IMM STOP key (immediate stop) 7-1 3 
incore subprogram 

A subprogram that remains in core storage during the 
entire execution of the core load of which it is a part. 
ILSs are always incore subprograms, whereas LOCALs 
and SOCALs never are. 
incorporating subroutines, core load construction 3-10 
index register 3, assembler program use of 6-35 
index sectors, computing for ISAM files 6-30 
indexed sequential access method files, calculating size of 6-29 
indexed sequential file organization, ISAM 6-28 
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indicator word 

The first word of a DSF block indicating which of the 
following data words should be incremented (relocated) 
when relocating a program in disk system format. This 
word also indicates which words are LIBF, CALL, and 
DSA names and the graphic instruction GSE, GBE, or 
GBCE. Programs in disk system format all contain 
indicator words. Each pair of bits in the indicator word 
is associated with one of the following data words; the 
first pair with the first data word following the indicator 
word, etc. 

information transfer and format conversion, DUP control 
records 5-20 

initial load, monitor system 8-1 

initial load operating procedure 
card system 8-15 
paper tape system 8-28 

initial program load 

The action that occurs when the PROGRAM LOAD key 
is pressed. One record is read into core, starting at 
location zero, from the hardware device that is physically 
wired to perform this function. Trie record read, usually 
a loader, then instructs the system as to the next action 
to be performed; such as, load more records. 

initialization, satellite disk (DISC) 4-6 

initialization subroutine of DCIP 9-8 

initializing $$$$$ data files for use with FORTRAN unformatted 
I/O 6-27 

initializing disk cartridges, operating procedure (DCIP) 9-12 

input 

changed LOGON effect on RJE input 1 0-3 
stacked job arrangement 1-3 

input at the work station, RJE 10-2 

input of data records, from the keyboard during FORTRAN 
program execution 6-50 

INT REQ key (interrupt request) 7-13 

INT REQ service subroutine 
assembler 6-45 

for any core load example 6-46 

for core load using TYPEZ, WRTYZ, TYPEO or WRTYO 6-47 
rules for coding an 6-45 

interrupt branch table 6-42 

interrupt level subroutine (ILS) 6-42 

A subroutine that analyzes all interrupts on a given level, 
that is, it determines which device on a given level caused 
the interrupt and branches to a servicing subroutine 
(ISS) for the processing of that interrupt. 

interrupt level 2, skeleton supervisor 3-2 

interrupt level 4, skeleton supervisor 3-2 

interrupt levels, specifying for ISSs (*LEVEL assembler control 
record) 5-61 

interrupt request key (INT REQ) 7-13 

interrupt service subroutine (ISS) 6-37 

A subroutine that (1) manipulates a given I/O device and 
(2) services all interrupts for that device after they are 
detected by an ILS. 

interrupt transfer vector (ITV, see transfer vector) 

The contents of words 8 through 13 or core, which are 
the automatic BSI instructions which occur with each 
interrupt. In other words, if an interrupt occurs on level 
zero and if core location 8 contains 500, an automatic 
BSI to core location 500 occurs. Similarly, interrupts on 
levels 1 through 5 cause BSIs to the contents of core 
locations 9 through 13, respectively. 

I/O device subroutines, deleting 4-3 

IOAR header 

The words required by an I/O device subroutine (ISS). 
They must be the first or the first and second words of 
the I/O buffer. 



IOCS FORTRAN control record 

format 5-65 

I/O subroutines called by 6-49 

specifying I/O devices for FORTRAN core loads 5-65 
ISAM add operation, deleting duplicate records caused by a disk 

error during an 6-34 
ISAM file, contents of 6-31 
ISAM file index, contents of 6-32 
ISAM file label, contents of 6-31 

ISAM file parameters, sample program to calculate H-17 
ISAM files 

calculating size of 6-29 

computing file label for 6-30 

computing index sectors 6-30 

computing overflow sectors 6-30 

computing prime data sectors 6-30 

random processing of 6-28 

sequential processing of 6-28 
ISAM indexed sequential file organization 6-28 
ISAM overflow area, contents of 6-33 
ISAM prime data area, contents of 6-32 
ISS, specifying interrupt level for (*LEVEL assembler control 

record) 5-6 1 
ISS, subroutines in system library 4-2 
ISS branch table 6-42 
ISS counter 

A counter in COMMA (word $IOCT) that is incremented 
by one upon the initiation of every I/O operation and 
decremented by one upon completion of the I/O 
operation, 
ISS header card, CDS program 1-8 
ISS subroutine error waits, listing of B-3 
ISS subroutine example 6-38 
ISS subroutine preoperative error waits B-2 
ISS subroutines 

nameN 4-3 

nameZ 4-2 

nameO 4-2 

namel 4-2 
ISS subroutines in system library 4-2 
ISSs, writing by assembler language programmers 6-37 



J-field type, DFCNV J-2 

JECL for the 1 1 30 RJE work station 10-5 

job 

A group of tasks (subjobs) that are performed by the 
monitor system and are interdependent; that is, the 
successful execution of any given subfob (after the first) 
depends on the successful execution of at least one of 
those that precede it. 
how to specify a temporary 5-4 

how to use SYSUP when changing cartridges during a 6-20 
JOB monitor control record 

additional field information 5-4 
examples 5-5 
format 5-2 and 3 
general function 5-2 
jobs 

entering from the card reader 7-12 
entering from the console keyboard 7-12 
entering from the paper tape reader 7-12 
restrictions on temporary 5-4 
stacked input arrangement 6-1 



keyboard, entering jobs from the console 7-12 
keyboard input at the RJE work station 10-2 
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keyboard input of data records during FORTRAN program 

execution 6-50 
keyboard operation, starting 7-12 
keyboard operation, stopping 7-13 
keyboard procedures, RJE console 10-10 
keys 

backspace (■*-) 7-12 

I- RASE FIELD 7-13 

I MM STOP 7-13 

INTREQ 7-13 

PROGRAM START 7-13 

PROGRAM STOP 7-! 3 

REST KB 7-13 

layout of core load ready for execution 3-14 
length of FORTRAN DATA statement 6-5 1 
LET 

location equivalence table 2-8 
printing the contents of *DUMPLET 5-28 
LET and FLET, altering with DUP control records 5-20 
LET/FLET 

Ihe location equivalence table (LET) for the user area 
and the fixed location equivalence table (FLET) for the 
fixed area. These are. disk resident tables through which 
the disk addresses of programs and data files stored in the 
user area or fixed area are found. On a system cartridge, 
LET occupies the cylinder preceding the user area. If a 
fixed area is defined, FLET occupies the cylinder pre- 
ceding it; otherwise, there is no FLET. 
appendix D D-l 
disk format D-l 
dump format D-2 
entry format D-l 
sector header format D-l 
IDUMYentry D-l 
LET in IBM system area 2-7 
LEVEL assembler control record, specifying interrupt levels for 

ISSs 5-6 1 
LIBF subroutine 

A subroutine that must be referenced with an LIBF 
statement. The type codes for subroutines in this cate- 
gory are 3 and 5. 
LIBF TV 3-13 

The transfer vector through which LIBF subroutines are 
entered at execution time. 
LIBFs, restriction on number in a core load 3-13 
library, monitor system 4-1 
library maintenance, system 4-14 
link 

A link is a core image program that is read into core for 
execution as a result of the execution of a CALL LINK 
statement. 
linking between programs, how to avoid overprinting when 6-5 
LIST ALL FORTRAN control record 5-67 
LIST assembler control record, listing an assembler program 5-53 
list deck 

punching (*LIST DECK) 5-5 7 
punching with error flags (*LIST DECK E) 5-59 
reading a punched 5-58 
LIST DECK assembler control record, punching a list deck 5-57 
LIST DECK E assembler control record, punching a list deck with 
error flags 5-59 
LIST SOURCE PROGRAM FORTRAN control record, listing a 

FORTRAN program 5-66 
LIST SUBPROGRAM NAMES FORTRAN control record 5-66 
LIST SYMBOL TABLE FORTRAN control record 5-67 
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DUMPFLET D-6 
DUMPLET D-3 
SLET E-l 

monitor system library, appendix C C-l 
resident monitor G-l 
load-although-not-called (NOCAL) subroutine 6-1 1 

A subroutine included in a core image program although 
it is not referenced in the core image program by an 
LIBF or CALL statement. Debugging aids such as a trace 
or a dump fall into this category. 
load mode control record (system loader) 8-8 
for card system 8-8 
for paper tape system 8-8 
format 8-8 
load mode control tape (system loader) 8-10 
materials needed for preparation of 8-10 
preparation of 8-10 
load-on-call (LOCAL) subroutine 3-1 1 

A subroutine that is a part cfa core image program, but 
resides on disk when not in use during execution. A 
LOCAL is read from the disk into a special overlay area 
incore when called during execution. LOCALs, which 
are specified for any given execution by the user, are a 
means of gaining core storage at the expense of execu- 
tion time. The core load builder constructs the LOCALs 
and all linkages to and from them. 
loading 

Tfie process of reading information into core storage, 
usually from disk. 
loading address 

The address at which a mainline, subroutine, core load, 
or DSF module is to begin. For mainlines and DSF 
modules, the loading address is either absolute or relative. 
For subroutines, it is always relative, whereas, for core 
loads, it is always absolute. 
loading the assembler and compilers 8-8 
loading the DCIP stand-alone utility program 9-1 1 
LOCAL and NOCAL control record usage, tips on monitor control 

and usage 6-10 
LOCAL-call-LOCAL, how to specify 5-8 
LOG AL-calls-a-LOC AL, usage 6- ! 
LOCAL supervisor control record 
additional field information 5-13 
coding for linked programs 5-13 
continuing to another LOCAL control record 5-13 
format 5-13 

specifying LOCAL subroutines 5-13 
when mainline program is in working storage 5-14 
LOCALs, core load builder provision for 3-11 
LOCALs, using 6-9 

locating FORTRAN allocation addresses 6-18 
location assignment counter 

A counter maintained in the assembler for assigning 
addresses to the instructions it assembles. A similar 
counter is maintained in the core load builder for loading 
purposes. 
location equivalence table (LET) 2-8 
logic flow of the monitor system 3-15 
logical cartridge assignments, specifying 5-4 
logical record length of RJE user-exit data 1 0-8 
logical unit numbers, FORTRAN 6-24 
LOGON, effect on RJE input of changed 1 0-3 
long instruction 

An assembler instruction that occupies two core storage 
locations. 
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low COMMON, how processed by core image loader 3-14 

The words of core that are saved in the core image buffer 
when linking from program to program. This area exists 
even if there is no COMMON. 



machine and device requirements, R.TE 10-1 
MACLIB assembler control record 

format 5-63 

specifying the use of the macro library 5-63 
macro libraries, reserving disk space for 5-48 
macro library, specifying the use of 5-63 
macro overflow, specifying WS sectors for 5-61 
MACRO UPDATE DUP control record 

calling the macro update program 5-49 

format 5-49 
macro update program (MUP), calling 5-49 
mainline 

A program about which a core image program is built. 
The mainline is normally the program in control and calls 
subroutines to perform various functions. 
mainline header card, CDS program 1-6 

mainline program, conversion during core load construction 3-10 
mainline programs 

error messages for monitor system library A-59 

messages for monitor system library A-59 

system library 4-5 
mainline programs that use all of core 6-9 
maintenance 

system library (MODIF) 4-8 

system library (MODSF) 4-14 
maintenance programs, disk 4-5 
manual dump of core storage 7-14 
master cartridge 2-3 

The cartridge residing on logical drive zero. A master 
cartridge must be a system cartridge. 
maximum record sizes used in FORTRAN READ and WRITE 

statements 6-24 
merging assembler symbol tables 5-60 
messages 

auxiliary supervisor error A-58 

COPY A-60 

core load builder A-54 

DCOM update error A-37 

DFCNV A-67 

DFCNV error A-68 

DISC A-59 

DLCIB A-61 

DUP A- 13 

FORTRAN A-7 

ID A-60 

I DENT A-59 

listing of DUP error A-14 

listing of MUP error A-14 

MODIF A-61 

MODIF error A-62 

MODSF A-65 

MODSF error A-66 

monitor system library mainline programs A-59 

MUP error A- 13 

printed during cold start 7-10 

RJE A-33 

RJE error A-28 

RPG compiler A-38 

SGJP error A-26 

supervisor A'35 

supervisor error A- 3 6 

system loader A-22 

SYSUP update error A-37 



messages printed during cold start 7-10 
messages sent to RJE work stations 10-12 
minimum system configuration iii 
mnemonics, grouping of assembler 6-35 
MODIF disk maintenance program 4-8 

*MON patch control record 4-9 

*SUB patch control record 4-12 

/ / DEND patch control record 4-13 

adding subroutines to the system library 4-12 

disk maintenance programs 4-8 

error messages A-62 

example 4-14 

messages A-6 1 

patch control records 4-9 

patch data records 4-11 
modified EBCDIC code {see also name code format) 

A 6-bit code used internally by the monitor programs. In 
converting from EBCDIC to modified EBCDIC, the 
leftmost 2 bits are dropped. 
MODSF disk maintenance program 4-14 

* END patch control record 4-19 

*PRO patch control record 4-15 

error messages A-66 

example 4-20 

messages A-65 
MODSF patch control and data records 4-15 
MODSF patch data records 

D-mode 4-19 

P-mode 4-17 
MON MODIF patch control record 

additional field information 4-11 

description 4-9 

format 4-10 
monitor 

A synonym for the entire 1130 Disk Monitor System, 
Version 2, which is also known as the monitor system or 
the disk monitor. 
monitor control, tips on 6-1 
monitor control record analyzer, disk-resident supervisor 

programs 3-3 
monitor control records 5-1 

/ / ^(comments) 5-9 

/ / ASM 5-5 

//CEND 5-11 

/ / COBOL 5-6 

/ / CPRNT 5-1 1 

/ / DUP 5-6 

/ / EJECT 5-1 1 

/ / FOR 5-6 

/ / JOB 5-2 

//PAUS 5-10 

/ / RPG 5-6 

//TEND 5-10 

//TYP 5-10 

/ / XEQ 5-7 

coding of 5-1 

functions of 5-1 

usage of EJECT 6-5 
monitor mode, RJE 10-1 
monitor program (see also monitor system programs) 

One of the following parts of the monitor system: 
supervisor (SUP), core image loader (CIL), core load 
builder (CLB), disk utility program (DUP), assembler 
(ASM), FORTRAN compiler (FOR), RPG compiler 
(RPG), or COBOL compiler. 
monitor system 

error wait codes B-l 

logic flow of 3-15 

using the 1 1 30 with the 7-12 
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Monitor System, operating the 1 130 Disk 7-1 

monitor system control, functions of console operator keys 

during 7-13 
monitor system error wait codes, appendix B B-l 
monitor system initial load and system reload 8-1 
monitor system library 4-1 
monitor system library listing, appendix C C-l 
monitor system library mainline programs, messages A-59 
monitor system operational and error messages, appendix A A-l 
monitor system programs 3-1 

assembler 3-5 

core image loader 3-13 

core load builder 3-7 

disk placement of 3-1 

disk utility program 3-4 

FORTRAN compiler 3-6 

RPG compiler 3-6 

supervisor 3-2 
monitor system sample programs, appendix H H-l 
monitor system sector break cards, listing of 8-5 
monitor usage, tips on 6-1 
MUP error messages A-l 3 
MUP error messages, listing of A- 14 



name code format (NCF) 1-1.5 

The format in which the names of subroutines, entry 
points, labels, etc., are stored for use in the monitor 
programs. The name consists of 5 characters, terminal 
blanks are added if necessary to make 5 characters. Each 
character is in modified EBCDIC code, and the entire 
30-bit representation is right-justified in two 16-bit words. 
The leftmost 2 bits are used for various purposes by the 
monitor. 
name data words 

The format in which constants and the names of variables 
and subprograms are stored for internal use by the FOR- 
TRAN compiler. The first bit of each name data word 
is set to zero to indicate that the word contains a constant 
and is set to one of the word contains a name. In either 
case, the remainder of the word is packed with the charac- 
ters in modified EBCDIC code. 
NAME FORTRAN control record 
format 5-69 

printing the program name on each printed page 5-69 
nameN ISS subroutines 4-3 
nameZ ISS subroutines 4-2 
nameO ISS subroutines 4-2 
namel ISS subroutines 4-2 
naturally relocatable program 2-6 

A program that can be executed from any core storage 
location without first being relocated. The only absolute 
addresses in such a program refer to parts of the resident 
monitor, which are fixed. 
NOCAL and LOCAL control record usage 6-10 
NOCAL example 6-12 
NOCAL supervisor control record 
format 5-14 

specifying NOCAL subroutines 5-14 
NOCALs, the use of 6-11 
nonsystem cartridge 2-3 

A cartridge that does not contain the monitor programs, 
although it does contain DCOM, LET, and working 
storage. A nonsystem cartridge can be used only as a 
satellite cartridge. 
CIBona 2-13 
cy Under on a 2-12 
description 2-12 
IBM system area on a 2-13 
sector @DCOM on a 2-13 
sector @ID AD on a 2-13 



notes 

listing of RPG compiler error A-40 
RPG compiler error, description A-38 

null command, RJE 10-6 and 10 



object program 

The output from either the assembler, or the FORTRAN, 
RPG, or COBOL compiler. 
object program considerations, RPG 6-52 
object program paper tape data record format, FORTRAN 6-49 
one word integers FORTRAN control record 

format 5-68 

specifying one word of core for integers 5-68 
operating procedures 

analyzing disk cartridges 9-36 

card system initial load 8-15 

card system preload 8-25 

card system reload 8-19 

console printer core dump 9-2 

copying disk cartridges 9-20 

DCIP 9-9 

disk compare 9-40 

dumping disk cartridges 9-28 

functions of flowchart blocks in 1-1 

initializing disk cartridges 9-12 

paper tape reproducing 9-42 

paper tape system initial load 8-28 

paper tape system reload 8-3 3 

patching disk cartridges 9-32 

preparation for DCIP 9-9 

printer core dump program 9-5 

PTUTL program 9-46 

RJE 10-9 
operating the 1 130 Disk Monitor System 7-1 
operator keys, console 7-13 
Optical Mark Page Reader, readying the 1231 7-9 
organization, disk 2-1 
ORIGIN FORTRAN control record 

defining an absolute starting address 5-7 1 

format 5-7 1 
origin locations, used by the CLB during core load 

construction 3-9 
origin of a core load 

assignment during core load construction 3-9 

how assigned by assembler programmer 3-10 

how assigned by FORTRAN programmer 3-10 
output 

continuing RJE 10-7 

discontinuing RJE 1 0-7 
output to the RJE work station 10-6 
overflow area, contents of the ISAM 6-34 
overflow sectors, computing ISAM file 6-30 
OVERFLOW SECTORS assembler control record 

format 5-61 

specifying WS sectors for symbol table overflow 5-61 

specifying WS sectors for macro overflow 5-6 1 
overlays, subroutines included in SOCAL 3-12 
overprinting 

how to avoid when linking between programs 6-5 

how to avoid when using // CPRNT 6-5 



P-mode patch data record format 4-19 

packing 2-11 

The process of storing programs in the user area to the 
nearest disk block, thus reducing the average wasted disk 
space from 1 60 words per program to 10 disk words 
per program. This process of moving programs toward 
the beginning of the user area makes additional space 
available in working storage. 
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padding 

Areas in the user or fixed area required to start core 
image programs and data files on a sector boundary. The 
length of the padding, which is reflected in LET or 
FLETby a 1DUMY entry, is from one to 15 disk blocks. 
page heading, how to specify 5-5 

paper tape data record format, FORTRAN object program 6-49 
paper tape formats 1-12 
paper tape input, PTUTL 4-25 
paper tape output, PTUTL 4-25 
Paper Tape Punch, readying the 1055 7-7 
paper tape reader, entering jobs from the 7-12 
Paper Tape Reader, readying the 1 1 34 7-6 
paper tape reproducing program, stand-alone utility 9-42 
paper tape subroutine errors B-9 
paper tape system cold start procedure 7-11 
paper tape system initial load 

materials needed for 8-28 

operating procedure 8-28 

organization of tapes for 8-29 
paper tape system reload 

materials needed for 8-33 

operating procedure 8-33 

organization of tapes for 8-33 
paper tape utility program {see PTUTL) 
patch control and data records 

MODIF 4-9 

MODSF 4-15 
patch control records 

MODIF 4-9 

MODIF *MON 4-9 

MODIF *SUB 4-12 

MODIF //DEND 4-13 

MODSF 4-15 

MODSF *END 4-19 

MODSF *PRO 4-15 
patch data records 

MODIF 4-1 1 

MODIF binary 4-12 

MODIF hexadecimal (hex) 4- 1 1 

MODSF 4-15 

MODSF D-mode 4-19 

MODSF P-mode 4-17 
patching disk cartridges, operating procedure 9-32 
PAUS monitor control record 

format 5-10 

general function 5-10 
phase identification control record {see also PHID control record) 
P1IID control record (IBM-supplied system loader) 

format of first 8-3 

format of second 8-4 
physical drive number 1-2.3 
Plotter, readying the 1627 7-8 
postoperative error traps, skeleton supervisor 3-2 
PRD print format 1-13 

preload operating procedure, card system 8-25 
preoperative error trap, skeleton supervisor 3-2 
preoperative error waits, ISS subroutine B-2 
preparation of a load mode control tape 8-10 
preparation of a system configuration control tape 8-10 
prime data area, contents of the ISAM 6-33 
prime data sectors computing for ISAM files 6-30 
principal I/O device 

The device used for stacked job input to the monitor 
system. The 2501, 1442, or 1134 can be assigned as the 
principal I/O device. The keyboard can be temporarily 
assigned as the principal input device (see "// TYP" 
under "Monitor Control Records" in Chapter 5). The sys- 
tem loader considers the fastest device defined on the 
REQ system configuration records to be the principal 
I/O device. 



principal I/O devices, list of 8-9 
principal print device 

The device used by the monitor system for printing sys- 
tem messages. Either the 1403, 1 132, or console printer 
can be assigned as the principal print device. The system 
loader considers the fastest print device defined on the 
REQ system configuration records to be the principal 
print device. 
print format, PRD 1-13 
print formats 1-13 

PRINT SYMBOL TABLE assembler control record 5-59 
printer, FORTRAN program control of the console 6-50 
Printer, readying the 1132 7-4 
Printer, readying the 1403 7-4 
printer core dump program 
format 9-4 

materials needed to use the 9-4 
operating procedure 9-5 
stand-alone utility 9-4 
printing a header on each page, ** header information FORTRAN 

control record 5-69 
printing an assembler listing with a cross reference symbol table, 

*XREF 5-57 
printing an assembler listing with statement numbers, *XREF 5-57 
printing cartridge IDs, IDENT disk maintenance program 4-5 
printing the contents of FLET, *DUMPFLET 5-29 
printing the contents of LET, *DUMPLET 5-28 
printing the program name on each printed page, *NAME 

FORTRAN control record 5-69 
PRO MODSF patch control record 
additional field information 4-17 
description 4-15 
format 4-16 
procedures 

card system cold start 7-1 1 
cold start 7-10 

paper tape system cold start 7-11 
RJE console keyboard 10-10 
RJE error recovery 10-11 
RJE operating 10-9 
RJE restart 10-11 
processing data files during core load construction 3-10 
processing on one disk drive a file that extends over two cartridges, 

sample program H-13 
processing on two disk drives a file that extends over two cartridges, 

sample program H-16 
processing the contents of the SCRA, core load construction 3^10 
Processing Unit, readying the 1131 Central 7-2 
program 

The highest level in the hierarchy describing various types 
of code. Subprograms and mainlines are subsets of this 
set. 
program header record 1-3 

The part of a program stored in disk system format that 
precedes the first DSF module. Its contents vary with the 
type of program with which it is associated. The program 
header record contains the information necessary to 
identify the program, to describe its properties, and to 
convert it from DSF format to disk core image format. 
program names, duplicate 6-6 
PROGRAM START key 7- 1 3 
PROGRAM STOP key 7-13 . 

PROGRAM STOP key error trap, skeleton supervisor 3-2 
program types and subtypes 1-1 
programmers 

tips for assembler language 6-35 
tips for FORTRAN 6-48 
programming tips and techniques 6-1 
data file processing 6-23 
RPG object program considerations 6-52 
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programming tips and techniques (continued) 

tips for assembler language programmers 6-35 

tips for FORTRAN programmers 6-48 

tips on monitor control and usage 6-1 
programs 

assembler sample H-7 

calculating ISAM file parameters sample H-l 7 

disk maintenance 4-5 

disk-resident supervisor 3-3 

FORTRAN sample H-l 

generation of the RJE work station 10-3 

how to avoid overprinting when linking between 6-5 

monitor system 3-1 

processing on one disk drive a file that extends over two car- 
tridges sample H-l 3 

processing on two disk drives a file that extends over two car- 
tridges sample H-l 6 

RPG sample H-9 

size discrepancies in stored 6-7 

stand-alone utility 9-1 

system library mainline 4-5 

types and subtypes 1-1 

use of FORTRAN unformatted I/O sample H-l 2 

use of reeling sample for multidrive systems H-16 

use of reeling sample for one drive systems H-l 3 

use of SYSUP sample for multidrive systems H-16 

use of SYSUP sample for one drive systems H-l 3 
PTUTL 

error wait codes B-9 

example 9-51 

materials needed to use the 9-46 

operating procedure 9-46 

paper tape input 4-25 

paper tape output 4-25 
publication, how to use this 1-1 
publications, related 1 1 30 iii 

PUNCH SYMBOL TABLE assembler control record 5-59 
punching a list deck *LIST DECK 5-57 
punching a list deck with error flags, *LIST DECK E 5-59 



R-field type, DFCNV J-2 

random processing of ISAM files 6-28 

random processing of sequential files 6-28 

RDREC, system library utility subroutine 4-4 

read check error, 2501 card subroutine B-8 

reading 

a core map and a file map, tips on monitor control and 
usage 6-13 

a cross reference symbol table 5-57 

a punched list deck 5-58 

an assembler listing 5-54 and 55 

the transfer vector 6-19 
readying the 

1055 Paper Tape Punch 7-7 

1131 Central Processing Unit 7-2 

1132 Printer 7-4 
1 1 34 Paper Tape Reader 7-6 
1231 Optical Mark Page Reader 7-9 
1403 Printer 7-4 
1442 Model 5 Card Punch 7-5 
1442 Model 6 and 7 Card Read Punch 7-5 
1627 Plotter 7-8 

2310 Disk Storage Drive 7-3 

231 1 Disk Storage Drive 7-3.1 
2501 Card Reader 7-6 

receive mode, RJE 10-2 
record format of RJE user-exit data 10-9 
record sizes, maximum used in FORTRAN READ and WRITE 
statements 6-24 



recovery procedures, RJE error 10-1 1 
reeling 

how to use on a multidrive system 6-22 
how to use on a one drive system 6-22 
how to use with SYSUP 6-22 

sample program that uses for multidrive systems H-16 
sample program that uses for one drive systems H-l 3 
related 1130 publications iii 
reload, monitor system 8-1 
reload operating procedure 
card system 8-19 
paper tape system " -33 
reload table, sector @RTBL on a system cartridge 2-5 

A table occupying one sector of the system cartridge. It 
contains a 3-word entry for each monitor phase that re- 
quests SLET information. This entry specifies where the 
SLET information is to be placed in the requesting phase 
and the number of SLET entries to be inserted. 
relocatable program 3-9 

A program that can be executed from any core location. 
Such a program is stored on the disk in DSF format. The, 
program is relocated by the core load builder. 
relocation 

The process of adding a relocation factor to address con- 
stants and to long instructions whose second words are 
not (1) invariant quantities, (2) absolute core addresses, 
or (3) symbols defined as absolute core addresses. The 
relocation factor for any program is the absolute core 
address where the first word of that program is found. 
relocation indicator 5-55 

The second bit in a pair of bits in an indicator word. If 
the relocation indicator is set to one, the associated 
data word is to be relocated unless the word is a LIBF, 
CALL, DSA name, or one of the graphic instructions: 
GSB, GBE, or GBCE. Pairs of relocation indicators 
indicate the exceptions as follows: 1 000 for LIBF, 
1 100 for CALL, 1101 for DSA names, 1110 for GBE, and 
1010 for GBCE. GBS has indicator bits 11. 
remark 

An explanation of the use or function of a statement or 
statements. A remark is a part of a statement, whereas a 
comment is a separate statement. 
remote job entry, machine and device requirements 10-1 
remote job entry program, RJE 10-1 
REQ system configuration control record 8-9 
reserved areas of sector @IDAD 2-5 
reserving disk space for data files or macro libraries, *DFILE DUP 

control record 5-48 
resident image, sector @RIAD 2-6 

The image of the resident monitor minus the disk I/O 
subroutine. The resident image resides on the disk and is 
read into core by the cold start program. 
resident monitor 3-2 

The area required in core by the monitor system for its 
operation. This area is generally unavailable for your use. 
The resident monitor consists of COMMA, the skeleton 
supervisor, and one of the disk I/O subroutines (normally 
DISKZ). 
COMMA 3-2 
disk I/O subroutine 3-3 
DISKN 3-3 
DISKZ 3-3 
DISK1 3-3 
listing of G-l 
skeleton supervisor 3-2 
supervisor 3-2 
resident monitor including table of equivalences, appendix G Gl 
REST KB (restore keyboard) key 7-1 3 
restart procedures, RJE 10-11 
restore keyboard key (REST KB) 7-13 
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restoring destroyed eartridges, tips on monitor control and 

usage 6-5 
restrictions 

caused by temporary mode 5-22 

maximum number of substituted subroutines EQUAT control 

record 5-17 
on number of CALLs in a core load 3-13 
on number of LIBFs in a core load 3-13 
on temporary jobs 5-4 

on use of core image header storage area by FORTRAN 
subroutines 3-9 

rji; 

. . DATA command 1 0-5 

. . null command 1 0-6 

card input at the work station 10-2 

changed LOGON affect on input 1 0-3 

communication considerations 10-1 

communication considerations for switched lines 10-2 

console entry switches 10-12 

console keyboard procedures 10-10 

continuing output 10-7 

discontinuing output 10-7 

disk input at the work station 10-2 

error messages A-28 

error recovery procedures 10-11 

error statistics 10-12 

generation of the 1 130 RJE work station program 10-3 

input at the work station 10-2 

JECL for the 1 1 30 work station 10-5 

keyboard input at the work station 10-2 

machine and device requirements 10-1 

messages A-33 

messages sent to work stations 1 0-1 2 

monitor mode 10-1 

null command 10-10 

operating procedures 10-9 

output to the work station 10-6 

receive mode 1 0-2 

restart procedures 10-11 

transmit mode 1 0-2 

user-exit subroutine 10-8 

work station startup 10-9 
RJE end-of-file indicators 1 0-6 
RJE messages and error messages A-27 
RJE output discontinuing 10-7 
RJE user-exit 

control characters for data 10-8 

data record format 10-9 

end-of-data indicator 10-9 

ending address of data 1 0-8 

logical record length of data 1 0-8 

parameter list 10-8 

starting address of data 1 0-8 
RJE work station, output to the 10-6 
RJE work station program, generation of the 1 130 10-3 
RPG compiler 3-6 

error notes A-38 

error notes, listing of A-40 

messages A-35 

monitor system program 3-6 
RPG control records 5-71 

end-of-file control card 5-74 

general functions 5-71 

RPG control card 5-74 

where placed in input stream 5-71 
RPG core load 

A core load that is built from a mainline written in the 
RPG language. 
RPG core map reading an 6-18 



RPG data files, converting FORTRAN data files to 4-20 

RPG disk file organization and processing, data file processing 6-27 

RPG monitor control record 

format 5-6 

general function 5-6 
RPG object program considerations 6-52 
RPG object program wait codes B-12 and 13 
RPG sample program H-9 
rules 

for coding an INT REQ service subroutine 6-45 

for writing ILS subroutines 6-42 

for writing ISS subroutines 6-37 



sample programs 

appendix H, monitor system H-l 

assembler H-7 

calculating ISAM file parameters H-l 7 

FORTRAN H-l 

processing on one disk drive a file that extends over two 
cartridges H-l 3 

processing on two disk drives a file that extends over two 
cartridges H-l 6 

RPG H-9 

use of FORTRAN unformatted I/O H- 1 2 

use of reeling for multidrive systems H-l 6 

use of reeling for one drive systems H-l 3 

use of SYSUP for multidrive systems H-16 

use of SYSUP for one drive systems H-l 3 
satellite cartridge 2-3 

A cartridge residing on a drive other than logical drive 
zero. A satellite cartridge can be either a system or a non- 
system cartridge. 
satellite disk initialization, DISC disk maintenance program 4-6 
satellite graphic job processor error messages A-26 
SAVE SYMBOL TABLE assembler control record 

format 5-60 

saving the symbol table on disk 5-60 
SCON control record, IBM supplied system loader 8-2 
SCR A 

in the IBM system area 2-7 

processing during core load construction 3-10 
sector, description of 2-2 
sector @DCOM 

on a nonsystem cartridge 2-1 3 

on a system cartridge 2-6 
sector (tf-HDNG on a system cartridge 2-6 
sector @IDAD 

cartridge copy code 2-5 

cartridge ID in 2-5 

cold start program in 2-5 

defective cylinder table in 2-5 

description 2-5 

disk type in 2-5 

DISKZ subroutine in 2-5 

on a nonsystem cartridge 2-1 3 

on a system cartridge 2-5 

reserved areas of 2-5 
sector @RIAD resident image on a system cartridge 2-6 
sector @RTBL reload table on a system cartridge 2-6 
sector addresses 

writing in WS, ADRWS disk maintenance program 4-8 

writing in WS, *DWADR DUP control record 5-47 
sector break cards 

listing of monitor system 8-5 

used by system loader 1-10 

system program 8-4 
sector header format, LET/FLET D-l 
selecting a core location 7-14 
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sequential file, calculating size of 6-29 

sequential file organization, assembler and RPG 6-28 

sequential file processing 6-28 

sequential files 

random processing of 6-28 

sequential processing of 6-28 
sequential processing of ISAM files 6-28 
sequential processing of sequential files 6-28 
short instruction 

An instruction that occupies only one core storage 
location. 
size discrepancies in stored programs, tips on monitor control and 

usage 6-7 
skeleton supervisor 

The part of the supervisor that is always in core. The 
skeleton supervisor processes CALL DUMP, CALL 
EXIT, and CALL LINK statements. Certain error traps 
are also considered part of the skeleton Supervisor, 

entry points to the 3-2 

ILS02 and ILS04 3-2 

interrupt level 2 3-2 

interrupt level 4 3-2 

postoperative error traps 3-2 

preoperative error trap 3-2 

PROGRAM STOP key error trap 3-2 

resident monitor 3-2 

SDUMP entry, use by CIL 3-1 3 

$EXIT entry, use by CIL 3-13 

SLINK entry, use by CIL 3-13 
SLET (system location equivalence table) 2-6 

dumping 4-7 

listing E-l 
SOCAL options 3-12 

SOCAL overlays, subroutines included in 3-12 
SOCALs 

core load builder provision for 3-1 1 

using 6-13 
special ILSs, how to specify 5-8 
stacked job input arrangement 6-1 
stacked job input example 6-3 

stand-alone paper tape utility program {see also PTUTL) 9-46 
stand-alone utility programs 9-1 

console printer core dump 9-1 

disk cartridge initialization 9-8 

paper tape reproducing 9-42 

printer core dump 9-4 
starting address of RJE user-exit data 10-8 
starting keyboard operation (// TYP) 7-12 
starting up the RJE work station 10-9 
stopping DCIP operating procedures 9-10 
stopping keyboard operation (// TEND) 7-13 
storage, components of disk 2-2 
storage area (core image header), restriction on use by FORTRAN 

subroutines 3-9 
storage unit conversion factors, appendix L, disk L-l 
STORE DUP control record 

additional field information 5-32 

examples 5-32 

format 5-31 

storing information in WS or UA 5-30 
STORECI DUP control record 

additional field information 5-40 

examples 5-41 

format 5-39 

storing a program in DC1 format 5-38 
stored programs, size discrepancies in 6-7 
STOREDATA DUP control record 

calculating card count after operations other tVw- 
DUMPDATA 6-8 



STOREDATA DUP control record (continued) 

examples 5-34 

format 5-33 

storing information in WS, UA, or FX 5-33 
STOREDATACI DUP control record 

examples 5-38 

format 5-37 

storing information in WS, UA, or FX 5-37 
STOREDATAE DUP control record 

additional field information 5-36 

examples 5-36 

format 5-35 

storing information in WS, UA, or FX 5-34 
STOREMOD DUP control record 

examples 5-43 

format 5-42 

replacing stored information 5-42 
storing a program in DO format 

*STORECI 5-38 

disadvantages of 6-7 
storing information in WS or UA, *STORE 5-30 
storing information in WS, UA, or FX 

* STOREDATA 5-33 
*STOREDATACI 5-37 

* STOREDATAE 5-34 
SUB MODIF patch control record 

additional field information 4-13 
description 4-12 
format 4-13 
subjob 

A monitor operation performed during a job. Each subjob 
is initiated by a monitor control record such as ASM or 
XEQ. A subjob can also be initiated by a CALL LINK 
statement. 
subprogram 

A synonym used mainly in FORTRAN for both 
FUNCTIONS and SUBROUTINES. 
subprogram header card, CDS program 1-7 
subroutine 

A subset of the set program. In FORTRAN, a SUB- 
ROUTINE is a type of subprogram that is not restricted 
to a single value for the result and is called with a CALL 
statement. 
disk I/O in the resident monitor 3-3 
how to specify disk I/O 5-8 
RJE user-exit 10-8 
subroutine errors 

console printer B-8 
I/O device B-5 
paper tape B-9 
1442 card B-5 
2501 card B-8 
subroutine types and subtypes 1-1 
subroutines 

adding to system library 4-12 

assembler INT REQ service 6-45 

assembler program use of 1403 conversion 6-37 

deleting I/O device 4-3 

equatable FORTRAN I/O 6-48 

equating during core load construction 3-1 1 

example of an INT REQ service for any core load 6-46 

example of an INT REQ service for core load using TYPEZ, 

WRTYZ, TYPE0, or WRTY0 6-47 
included in IBM system area 2-7 
included in SOCAL overlays 3-12 
incorporating during core load construction 3-10 
ISS in system library 4-2 
ISS preoperative error waits B-2 
listing of ISS error waits B-3 
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subroutines (continued) 
nameN ISS 4-3 
nameZ ISS 4-2 
nameO ISS 4-2 
namel ISS 4-2 
restriction on use of core image header storage area by 

FORTRAN 3-9 
rules for coding an INT REQ service 6-45 
rules for writing ILS 6-42 
rules for writing ISS 6-37 
substituting during core load construction 3-1 1 
system library utility 4-4 
types and subtypes 1-1 
using the disk I/O 6-4 
substituting subroutines during core load construction 3-1 1 
summary of the contents of disk cartridges 2-12 
supervisor 

auxiliary 3-3 
disk-resident programs 3-3 
error messages A-36 
messages A-35 
monitor system programs 3-2 
resident monitor 3-2 
skeleton 3-2 
supervisor control record analyzer, disk-resident supervisor 

programs 3-3 
supervisor control record area (SCRA) 2-6 

The disk cylinder in which the supervisor control records 
are written. Sectors zero and one are reserved for LOCAL 
control records, sectors 2 and 3 are reserved for NOCAL 
control records, 4 and 5 for FILES control records, 6 is 
reserved for G2250 information and 7 is reserved for 
EQUA T information, 
{see also SCRA) 
supervisor control records 5-12 
*EQUAT 5-17 

* FILES 5-15 
*G2250 5-16 

* LOCAL 5-13 
*NOCAL 5-14 
coding of 5-12 
functions of 5-12 
maximum number 5-12 

where placed in input stream 5-12 
supervisor core dump program, disk-resident supervisor 

program 3-3 
switched lines, communication considerations for RJE 10-2 
switches, RJE console entry 10-12 
symbol table, listing a FORTRAN 5-67 
symbol table, saving on disk the assembler 5-60 
symbol table overflow, specifying WS sectors for assembler 5-61 
symbol tables merging assembler 5-60 
symbolic address format used in this publication 1-2 
system 

operating the 1 130 disk monitor 7-1 

using the 1 1 30 with the monitor 7-12 
system area on a system cartridge, IBM 2-5 
system cartridge 2-4 

A cartridge that contains the monitor programs. A 
system cartridge may be used as either a master or a 
satellite cartridge. 

cylinder on a 2-4 

description 2-4 

IBM system area on a 2-5 

resident image in sector @RIAD on a 2-5 

sector @DCOM on a 2-5 

sector @HDNG on a 2-5 

sector @RTBL on a 2-5 

user area on a 2-8 



system configuration, minimum hi 

system configuration control record (system loader) 

for card system 8-9 

for paper tape system 8-9 

format 8-9 
system core image buffer 

The core image buffer used by the monitor system 
programs during a job. System CIB need not be on the 
master cartridge. The JOB monitor control record 
defines the cartridge that contains the CIB to be used 
for the job. 
system configuration control tape preparation of 8-10 
system control, functions of console opertor keys during moni- 
tor 7-13 
system device subroutine area (see also SCRA) 2-6 
system initial load, monitor 8-1 
system library 

adding subroutines 4-12 

ISS subroutines in 4-2 

mainline programs 4-5 

mainline programs error messages for monitor A-59 

mainline programs messages for monitor A-59 

monitor 4-1 

utility subroutines 4-4 
system library listing, appendix C, monitor C-l 

common arithmetic/function LIBFs C-5 

common FORTRAN CALLs C-l 

common plot CALL C-7 

common plot LIBFs C-8 

conversion subroutines C-6 

conversion tables C-6 

disk FORTRAN I/O C-3 

disk I/O C-8 

disk maintenance programs C-l 

extended arithmetic/function CALLs C-2 

extended arithmetic/function LIBFs C-4 

extended plot CALLs C-7 

extended plot LIBFs C-8 

flipper for LOCAL/SOCAL subprograms C-3 

FORTRAN common LIBFs C-3 

FORTRAN find subroutines C-3 

FORTRAN I/O and conversion subroutines C-4 

FORTRAN sign transfer CALLs C-2 

FORTRAN trace subroutines C-3 

interrupt level subroutines C-7 

interrupt service subroutines C-5 

log subroutine C-6 

mainlines C-l 

nondisk FORTRAN format I/O C-3 

paper tape utility program C-l 

RPG compare subroutine C-8 

RPG decimal arithmetic subroutines C-8 

RPG indicators C-9 

RPG miscellaneous subroutines C-9 

RPG move subroutines C-8 

RPG sterling and edit subroutines C-8 

special interrupt level subroutines C-7 

standard arithmetic/function CALLs C-2 

standard arithmetic/function LIBFs C-4 

standard plot CALLs C-7 

standard plot LIBFs C-7 

subroutines C-l 

unformatted FORTRAN disk I/O C-3 

utility call subroutines C-l 

ZIPCO conversion tables C-6 
system library mainline programs 4-5 

disk maintenance programs 4-5 

PTUTL 4-25 
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system library maintenance 

MODIF disk maintenance program 4-8 

MODSF disk maintenance program 4-14 
system library utility subroutines 4-4 

CALPR 4-4 

FLIPR 4-4 

FSLEN 4-4 

RDREC 4-4 

SYSUP 4-4 
system loader 

error messages A-22 

messages A-22 

sector break cards used by 1-10 
system loader control records 

IBM supplied 8-2 

that you punch 8-7 
system location equivalence table (see SLET) * 
system maintenance MODIF disk maintenance program 4-8 
system-overlay-to-be-loaded-on-call (SOCAL) 3-11 

One of 2 or 3 overlays the core load builder automatically 
prepares, under certain conditions, when a core load is 
too large to fit into core storage. 
system program sector break cards, IBM supplied system 
loader 8-4 
system programs, monitor 3-1 
system reload, monitor 8-1 
SYSTEM SYMBOL TABLE assembler control record 

format 5-60 

merging symbol tables 5-60 
system working storage 

Tlie working storage area used by the monitor programs 
during a job. System working storage need not be on the 
master cartridge. The JOB monitor control record defines 
the cartridge that contains working storage to be used for 
a job. 
SYSUP 

assembler calling sequence 6-20 

FORTRAN calling sequence 6-21 

how to use reeling 6-22 

how to use when changing cartridges during a job 6-20 

sample program for one drive systems that uses H-13 

sample program for multidrive systems that uses H-16 

system library utility subroutine 4-4 

tips on monitor control and usage 6-20 

update error messages A-37 
SYSUP-DCOM update error messages A-37 



techniques and tips, programming 6-1 

temporary job, how to specify 5-4 

temporary job mode, how to use 4-6 

temporary jobs, restrictions on 5-4 

temporary mode, restrictions on DUP caused by temporary 
mode 5-22 

TEND monitor control record reassigns card or paper tape reader 
as principal input device 5-10 

TERM control record, IBM-supplied system loader 8-2 

tips and techniques, programming 6-1 

tips for assembler language programmers 

assembler INT REQ service subroutine 6-45 

assembler program use of index register 3 6-35 

assembler program use of 1403 conversion subroutines 6-37 

grouping of assembler mnemonics 6-35 

programming tips and techniques 6-35 

writing ISSs and ILSs 6-37 

tips for FORTRAN programmers 6-48 

// records read during FORTRAN program execution 6-5 1 
dumping FORTRAN DSF programs to cards 6-52 



tips for FORTRAN programmers (continued) 

FORTRAN I/O errors 6-5 1 

FORTRAN object program paper tape data record format 6-49 

FORTRAN program control of the console printer 6-50 

invalid characters in FORTRAN source cards 6-49 

keyboard input of data records during FORTRAN program 
execution 6-50 

length of FORTRAN DATA statement 6-5 1 

tips for use of the EQUAT control record 6-48 
tips on monitor control and usage 

disadvantages of storing a program in DCI format 6-7 

duplicate program and data file names 6-6 

how to avoid overprinting when using // CPRNT 6-5 

how to avoid overprinting when linking between programs 6-5 

how to use temporary job mode 6-6 

LOCAL and NOCAL control record usage 6-10 

LOC AL-calls-a-LOC AL 6- 1 

locating FORTRAN allocation addresses 6-18 

mainline programs that use all of core 6-9 

programming tips and techniques 6-1 

reading a core map and a file map 6-13 

reading the transfer vector 6-19 

restoring destroyed cartridges 6-5 

size discrepancies in stored programs 6-7 

stacked job input arrangement 6-1 

SYSUP 6-20 

the use of LOCALs 6-9 

the use of NOCALs 6-1 1 

the use of SOCALs 6-13 

usage of the EJECT monitor control record 6-5 

use of defined files 6-9 

using the disk I/O subroutines 6-4 
tracing branch statement execution sequence, ^TRANSFER TRACE 

FORTRAN control record 5-70 
tracing variable values during execution, * ARITHMETIC TRACE, 
FORTRAN control record 5-70 
track, description of 2-1 

transfer and conversion operations, summary of DUP 5-21 
TRANSFER TRACE FORTRAN control record, tracing branch 
statement execution sequence 5-70 
transfer tracing, how to stop 5-70 
ansfer vector (TV) 

A combination of both the LIBF TV and the CALL TV. 

processing during core load construction 3-13 

reading 6-19 
transmit mode, RJE 10-2 
two pass mode, how to use 5-52 
TWO PASS MODE assembler control record 5-52 
TYP monitor control record, assigns console keyboard as principal 
input device 5-10 
type 81 control record, IBM-supplied system loader 8-7 



UA (see user area) 

unformatted disk file 6-26 

The organization by FOR TRAN of a disk data file to sim- 
ulate processing of a magnetic tape file with variable 
length records. Data conversion is not possible. 

unformatted disk I/O, how to specify 5-5 

unformatted file records, how FORTRAN writes in sectors 6-2(5 

unformatted FORTRAN I/O statements 6-26 

unformatted I/O 

FORTRAN sample program using H-12 

initializing $$$$$ data files for use with FORTRAN 6-27 

usage of the EJECT monitor control record 6-5 

use of defined files 6-9 

use of 1403 conversion subroutines, assembler program 6-37 
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user area (UA) 

The area on disk in which all of your programs in disk 
system format and all IBM-supplied programs are stored. 
Core image programs and data files can also be stored in 
this area. The user area occupies as many sectors as are 
required to contain the programs and files stored in it. 
deleting information from *DELETE 5-44 
packing of 2-11 
storing information in 
*STORE 5-30 
*STOREDATA 5-33 
*STOREDATACI 5-37 
* STORED AT AE 5-34 
on a system cartridge 2-9 
user area and working storage 
during delete operations 2-1 1 
during store operations 2-10 
user-exit data 

control character types for RJE 10-8 
end-of-data indicator for RJE 10-9 
ending address of RJE 10-8 
logical record length of RJE 10-8 
record format of RJE 10-9 
starting address of RJE 10-8 
user-exit parameter list, RJE 10-8 
user-exit subroutine, RJE 10-8 
user programs 2-14 

Mainlines, subroutines, or core loads that you have 
written and stored in the user or fixed area. 
utility programs, stand-alone 9-1 
utility subroutines, system library 4-4 



variable values, tracing during FORTRAN execution 5-70 



wait codes 

card core image loader B-9 

FORTRAN I/O B-10 

monitor system error B-l 

PTUTL error B-9 

RPG object program B-l 2 and 13 
waits 

cold start program error B-l 

ISS subroutine preoperative error B-2 

listing of ISS subroutine error B-3 
words, number in a sector 2-2 
work station 

JECL for the 1130 RJE 10-5 

output to the RJE 10-6 

RJE card input at the 10-2 

RJE disk input at the 10-2 

RJE input at the 10-2 

RJE keyboard input at the 10-2 
work station startup, RJE 10-9 
work stations, messages sent to RJE 10-12 
working storage (WS) 2-1 1 

The area on disk immediately following the last sector 
occupied by the user area. This is the only one of three 
major divisions of disk storage (IBM system area, user/ 
fixed area, working storage) that does not begin at a 
cylinder boundary. 



working storage (WS) (continued) 

contents during core load construction 3-8 

core load builder use of 3-8 

specifying for current job 5-4 

specifying sectors for assembler symbol table overflow 5-6 1 

specifying sectors for macro overflow 5-61 
working storage and user area 

during delete operations 2-1 1 

during store operations 2-10 
writing ISSs and ILSs 6-37 
writing sector addresses in WS 

*DWADR DUP control record 5-47 

ADRWS disk maintenance program 4-8 
WS {see working storage) 



X-field type, DFCNV J-7 
XEQ monitor control record 
• additional field information 5-7 

examples 5-9 

format 5-7 

general function 5-7 
XREF assembler control record 

format 5-56 

printing an assembler listing with statement numbers 5-57 

printing an assembler listing with a cross reference symbol 
table 5-57 
XR3, assembler program use of 6-35 



1DUMY entry format, EET/FLET D-l 

1055 Paper Tape Punch, readying the 7-7 

1130 Disk Monitor System, operating the 7-1 

1 1 30 publications, related iii 

1130 RJE work station program generation of the 1 0-3 

1130 work station, JECL for the RJE 10-5 

1131 Central Processing Unit, readying the 7-2 

1132 Printer, readying the 7-4 

1134 Paper Tape Reader, readying the 7-6 

1231 Optical Mark Page Reader, readying the 7-9 

13 '6 Disk Pack 2-1.1 

14i \ conversion subroutines, assembler program use of 6-37 

1403 Printer, readying the 7-4 

1442 card read errors B-6 

1442 card subroutine errors B-5 

1442 Model 5 Card Punch, readying the 7-5 

1442 Model 6 and 7 Card Read Punch, readying the 7-5 

1627 Plotter 

omitting subroutines 8-7 

readying the 7-8 

2310 Disk Storage Drive, readying the 7-3 

2311 Disk Storage Drive, readying the 7-3.1 
2315 Disk Cartridge 2-1.1 

2501 Card Reader, readying the 7-6 
2501 card subroutine errors 

feed check error B-8 

read check error B-8 
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Your comments, please . . . 



This manual is part of a library that serves as a reference source for systems analysts, 
programmers, and operators of IBM systems. Your comments on the other side of this 
form will be carefully reviewed by the persons responsible for writing and publishing 
this material. All comments and suggestions become the property of IBM. 
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IBM 1 1 30 Disk Monitor System, Version 2, READER'S 

Programmer's and Operator's Guide COMMENT 

GC26-3717-10 F0RM 

Your views about this publication may help improve its usefulness; this form 
will be sent to the author's department for appropriate action. Using this 
form to request system assistance or additional publications will delay response, 
however. For more direct handling of such requests, please contact your 
IBM representative or the IBM Branch Office serving your locality. 

Possible topics for comment are: 

Clarity Accuracy Completeness Organization Index Figures Examples Legibility 



What is your occupation? _____-___-»>_- 

Number of latest Technical Newsletter (if any) concerning this publication: 
Please indicate your name and address in the space below if you wish a reply. 



Thank you for your cooperation. No postage stamp necessary if mailed in the U.S.A. (Elsewhere, 
an IBM office or representative will be happy to forward your comments.) 
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